Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Thierry Volpiatto 2012-03-04 22:19:10 +00:00 committed by Katsumi Yamaoka
parent f20f95c65c
commit ee30fbcdd3
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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%".

6
lisp/gnus/gnus-msg.el
View file

@ -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