# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1138582410 0
# Node ID a58223a143bc2d15d30684e54fcf070debe698d9
# Parent  fef251da6e07e883eb818b788b2c4c37b35bf231
(mh-insert-fields): Handle nil values. Rmail, at least, will deliver
them to us.

diff -r fef251da6e07 -r a58223a143bc lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Mon Jan 30 00:51:51 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Mon Jan 30 00:53:30 2006 +0000
@@ -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 -r fef251da6e07 -r a58223a143bc lisp/mh-e/mh-comp.el
--- 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 "")))