From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Sun, 4 Mar 2012 22:19:10 +0000 (+0000)
Subject: gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus isn't running... 
X-Git-Tag: emacs-pretest-24.0.05~167
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee30fbcdd3813fef35f401702c9fbedfdf837397;p=emacs.git

gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus isn't running (bug#10897).
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b9ffc07d1c..a4c1513926d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-04  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
+
+	* gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus
+	isn't running (bug#10897).
+
 2012-02-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el (shr-column-specs): Protect against TDs with "width: 0%".
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index bf75f94c195..7c8d194f26b 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -478,7 +478,8 @@ Thank you for your help in stamping out bugs.
 
 ;;;###autoload
 (defun gnus-msg-mail (&optional to subject other-headers continue
-				switch-action yank-action send-actions return-action)
+				switch-action yank-action send-actions
+				return-action)
   "Start editing a mail message to be sent.
 Like `message-mail', but with Gnus paraphernalia, particularly the
 Gcc: header for archiving purposes.
@@ -486,7 +487,8 @@ If Gnus isn't running, a plain `message-mail' setup is used
 instead."
   (interactive)
   (if (not (gnus-alive-p))
-      (message-mail)
+      (message-mail to subject other-headers continue
+                    nil yank-action send-actions return-action)
     (let ((buf (current-buffer))
 	  mail-buf)
       (gnus-setup-message 'message