[gnus git] branch master updated: =1= message.el (message-mail): A compose-mail function should accept headers as strings.

       via  6920cf3a7d75c29ae267fa8906090dc22af09609 (commit)
      from  a28756d54b5ecb21426950a5fa12cfbea88225e7 (commit)


- Log -----------------------------------------------------------------
commit 6920cf3a7d75c29ae267fa8906090dc22af09609
Author: Glenn Morris <[email protected]>
Date:   Sun Jan 16 00:41:48 2011 +0000

    message.el (message-mail): A compose-mail function should accept headers as strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ce01f4..a43ed96 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-15  Glenn Morris  <[email protected]>
+
+	* message.el (message-mail): A compose-mail function should
+	accept headers as strings.
+
 2011-01-13  Chong Yidong  <[email protected]>
 
 	* message.el (message-tool-bar-gnome): Tweak tool-bar items.  Add
diff --git a/lisp/message.el b/lisp/message.el
index 266578d..f514fd7 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6556,7 +6556,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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    8 +++++++-
 2 files changed, 12 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project