Mercurial > emacs
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 "")))