@@ -1,3 +1,7 @@

+2002-02-11  John Foderaro  <jkf@tiger.franz.com>

+

+	* imap.cl: fix parse-mail-header to handle valueless header lines

+

 2001-08-10  John Foderaro  <jkf@tiger.franz.com>

 	* imap.cl - fix problems of too many #\returns in the header

@@ -19,7 +19,7 @@

 ;; Commercial Software developed at private expense as specified in

 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.

 ;;

-;; $Id: imap.cl,v 1.18 2001/06/26 21:01:09 jkf Exp $

+;; $Id: imap.cl,v 1.19 2002/02/11 18:08:51 jkf Exp $

 ;; Description:

 ;;

@@ -1321,6 +1321,10 @@

 				  (if* (eq ch #\linefeed)

 				     then ; empty continuation line, ignore

 					  (incf next)

+					  (if* header

+					     then ; header and no value

+						  (setq value "")

+						  (return :start))

 					  (go again)

 				   elseif (not (member ch

 						       (member ch

@@ -1332,6 +1336,7 @@

 				 (3 ; reading the header

 				  (if* (eq ch #\linefeed)

 				     then ; bogus header line, ignore

+					  (setq state 1)

 					  (go again)

 				   elseif (eq ch #\:)

 				     then (setq header