From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Jun 2000 19:44:53 +0000 (+0000)
Subject: Allow arbitrary whitespace in IMAIL flags header, so that flags lines
X-Git-Tag: 20090517-FFI~3470
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1867c53c9a1df8468a652362a7c2ce8f1b94d2a3;p=mit-scheme.git

Allow arbitrary whitespace in IMAIL flags header, so that flags lines
can be folded.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index c0a950b18..3d2aab34f 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.105 2000/06/19 22:06:21 cph Exp $
+;;; $Id: imail-core.scm,v 1.106 2000/06/20 19:44:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -107,7 +107,7 @@
   (let ((colon (string-find-next-char string #\:)))
     (if colon
 	(parse-url-body (string-tail string (fix:+ colon 1))
-			   (get-default-url (string-head string colon)))
+			(get-default-url (string-head string colon)))
 	(parse-url-body string (get-default-url #f)))))
 
 ;; Protocol-specific parsing.  Dispatch on the class of DEFAULT-URL.
@@ -353,8 +353,8 @@
 (define-generic expunge-deleted-messages (folder))
 
 ;; -------------------------------------------------------------------
-;; Search FOLDER for messages matching CRITERIA.  [Possible values for
-;; CRITERIA not yet defined.]  Returns a list of messages.
+;; Search FOLDER for messages matching CRITERIA.  At present, CRITERIA
+;; may be a string.  Returns a list of messages.
 
 (define-generic search-folder (folder criteria))
 
@@ -569,7 +569,10 @@
 (define (header-field->message-flags header)
   (and (string-ci=? message-flags:name (header-field-name header))
        ;; Extra pair needed to distinguish #F from ().
-       (cons #f (burst-string (header-field-value header) char-set:lwsp #t))))
+       (cons #f
+	     (burst-string (header-field-value header)
+			   char-set:whitespace
+			   #t))))
 
 (define message-flags:name "X-IMAIL-FLAGS")