diff lisp/mh-e/mh-comp.el @ 68476:a58223a143bc

(mh-insert-fields): Handle nil values. Rmail, at least, will deliver them to us.
author Bill Wohler <wohler@newt.com>
date Mon, 30 Jan 2006 00:53:30 +0000
parents 37d03b3298bf
children 0f44616074ba
line wrap: on
line diff
--- a/lisp/mh-e/mh-comp.el	Mon Jan 30 00:51:51 2006 +0000
+++ b/lisp/mh-e/mh-comp.el	Mon Jan 30 00:53:30 2006 +0000
@@ -870,7 +870,8 @@
             (value (car (cdr name-values))))
         (if (not (string-match "^.*:$" field-name))
             (setq field-name (concat field-name ":")))
-        (cond ((equal value "")
+        (cond ((or (null value)
+                   (equal value ""))
                nil)
               ((mh-position-on-field field-name)
                (insert " " (or value "")))