mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't running.

Browse source
This commit is contained in:
Lars Ingebrigtsen 2012-02-09 23:07:49 +00:00 • committed by Katsumi Yamaoka
parent 4c7e65bf4f
commit 7582f84423
2 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2012-02-09 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't
running.
* nnimap.el (nnimap-wait-for-response): Minor fixup of message string.
* gnus.el (gnus-server-extend-method): Don't add an -address component

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

@ -478,22 +478,26 @@ 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."
Gcc: header for archiving purposes.
If Gnus isn't running, a plain `message-mail' setup is used
instead."
(interactive)
(let ((buf (current-buffer))
mail-buf)
(gnus-setup-message 'message
(message-mail to subject other-headers continue
nil yank-action send-actions return-action))
(when switch-action
(setq mail-buf (current-buffer))
(switch-to-buffer buf)
(apply switch-action mail-buf nil)))
;; COMPOSEFUNC should return t if succeed. Undocumented ???
t)
(if (not (gnus-alive-p))
(message-mail)
(let ((buf (current-buffer))
mail-buf)
(gnus-setup-message 'message
(message-mail to subject other-headers continue
nil yank-action send-actions return-action))
(when switch-action
(setq mail-buf (current-buffer))
(switch-to-buffer buf)
(apply switch-action mail-buf nil))
;; COMPOSEFUNC should return t if succeed. Undocumented ???
t)))
;;;###autoload
(defun gnus-button-mailto (address)