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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b9ffc0..a4c1513 100644 (file)
--- 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 bf75f94..7c8d194 100644 (file)
--- 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