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

2 files changed, 9 insertions, 2 deletions

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