From ee30fbcdd3813fef35f401702c9fbedfdf837397 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Sun, 4 Mar 2012 22:19:10 +0000 Subject: [PATCH] gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus isn't running (bug#10897). --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-msg.el | 6 ++++-- 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 + + * gnus-msg.el (gnus-msg-mail): Call `message-mail' correctly when Gnus + isn't running (bug#10897). + 2012-02-25 Lars Magne Ingebrigtsen * 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 -- 2.11.4.GIT