[Emacs-diffs] /srv/bzr/emacs/trunk r107505: gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus isn't running (bug#10897).

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107505
author: Thierry Volpiatto <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2012-03-04 22:19:10 +0000
message:
  gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus isn't 
running (bug#10897).
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-msg.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-02-25 13:20:57 +0000
+++ b/lisp/gnus/ChangeLog       2012-03-04 22:19:10 +0000
@@ -1,3 +1,8 @@
+2012-03-04  Thierry Volpiatto  <address@hidden>
+
+       * gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus
+       isn't running (bug#10897).
+
 2012-02-25  Lars Magne Ingebrigtsen  <address@hidden>
 
        * shr.el (shr-column-specs): Protect against TDs with "width: 0%".

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2012-02-20 09:07:54 +0000
+++ b/lisp/gnus/gnus-msg.el     2012-03-04 22:19:10 +0000
@@ -478,7 +478,8 @@
 
 ;;;###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 @@
 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