(mh-insert-fields): Handle nil values. Rmail, at least, will deliver

them to us.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 3b7e56a571d9fd55818a5855972ca7312066c217..d9df32907439c8d654019913a20757bf0570623f 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,19 @@
+2006-01-29  Bill Wohler  <wohler@newt.com>
+
+       * mh-comp.el (mh-insert-fields): Handle nil values. Rmail, at
+       least, will deliver them to us.
+
+       * mh-e.el (mh-after-commands-processed-hook)
+       (mh-before-commands-processed-hook): Specify what sort of requests
+       in docstring.
+
+       * mh-folder.el (mh-folder-mode): Use add-to-list to modify
+       minor-mode-alias.
+
+       * mh-letter.el (mh-letter-menu): Remove. Defvar no longer needed
+       to shush compiler.
+       (mh-letter-mode): Remove Mail menu.
+
 2006-01-29  Bill Wohler  <wohler@newt.com>
 
        The Great Cleanup

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index d9ce48a959b739c2f0e333b807a7d040d98c5ebf..529aac777d253fe08dc768b55fb0965548330d3d 100644 (file)
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -870,7 +870,8 @@ Do not insert any pairs whose value is the empty string."
             (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 "")))