Mercurial > emacs
changeset 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 | fef251da6e07 |
| children | 0f44616074ba |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-comp.el |
| diffstat | 2 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 "")))