diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 6ebcdc28766..64569cfb994 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -6512,7 +6512,13 @@ is a function used to switch to and display the mail buffer." (message-setup (nconc `((To . ,(or to "")) (Subject . ,(or subject ""))) - (when other-headers other-headers)) + ;; C-h f compose-mail says that headers should be specified as + ;; (string . value); however all the rest of message expects + ;; headers to be symbols, not strings (eg message-header-format-alist). + ;; http://lists.gnu.org/archive/html/emacs-devel/2011-01/msg00337.html + ;; We need to convert any string input, eg from rmail-start-mail. + (dolist (h other-headers other-headers) + (if (stringp (car h)) (setcar h (intern (capitalize (car h))))))) yank-action send-actions continue switch-function return-action) ;; FIXME: Should return nil if failure. |