@@ -2,6 +2,11 @@

 	* imap.cl: threadsafe resource management

+2009-12-21  Kevin Layer  <layer@gemini.franz.com>

+

+	* mime-api.cl (decode-header-text): bug18646: put in error

+	  check for `nil'.

+

 2009-09-30  Kevin Layer  <layer@gemini.franz.com>

 	* mime-api.cl: rfe9010: decode-header-text: remove "soft"

@@ -425,6 +425,7 @@ This is a multi-part message in MIME format.~%"))

 (defun decode-header-text (text)

   (declare (optimize (speed 3))

 	   (string text))

+  (when (null text) (error "first argument expected to be non-nil."))

   (let ((pos 0)

 	(len (length text))

 	last-tail)