From c5c67ec8377a840c2111a03991047c2ab9f8b338 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 28 Aug 2002 10:10:00 +0000
Subject: [PATCH] add delete-headers to rfc822, that removes a header entry

---
 scheme/lib/rfc822.scm | 8 ++++++++
 scheme/packages.scm   | 1 +
 2 files changed, 9 insertions(+)

diff --git a/scheme/lib/rfc822.scm b/scheme/lib/rfc822.scm
index d8b93fc..8b141a6 100644
--- a/scheme/lib/rfc822.scm
+++ b/scheme/lib/rfc822.scm
@@ -200,6 +200,14 @@
 	 (string-join (cadr entry)
 		      (:optional maybe-sep "\n")))))
 
+(define (delete-headers headers name)
+  (fold (lambda (entry rest)
+	  (if (eq? (car entry) name)
+	      rest
+	      (cons entry rest)))
+	'()
+	headers))
+
 
 
 ;;; Other desireable functionality
diff --git a/scheme/packages.scm b/scheme/packages.scm
index 870c9d8..7a7abe6 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -61,6 +61,7 @@
 	  get-header-all
 	  get-header-lines
 	  get-header
+	  delete-headers
 	  ))
 
 (define-interface uri-interface