Commit 7582f844 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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

parent 4c7e65bf
2012-02-09 Lars Ingebrigtsen <larsi@gnus.org> 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. * nnimap.el (nnimap-wait-for-response): Minor fixup of message string.
   
* gnus.el (gnus-server-extend-method): Don't add an -address component * gnus.el (gnus-server-extend-method): Don't add an -address component
......
...@@ -478,22 +478,26 @@ Thank you for your help in stamping out bugs. ...@@ -478,22 +478,26 @@ Thank you for your help in stamping out bugs.
;;;###autoload ;;;###autoload
(defun gnus-msg-mail (&optional to subject other-headers continue (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. "Start editing a mail message to be sent.
Like `message-mail', but with Gnus paraphernalia, particularly the 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) (interactive)
(let ((buf (current-buffer)) (if (not (gnus-alive-p))
mail-buf) (message-mail)
(gnus-setup-message 'message (let ((buf (current-buffer))
(message-mail to subject other-headers continue mail-buf)
nil yank-action send-actions return-action)) (gnus-setup-message 'message
(when switch-action (message-mail to subject other-headers continue
(setq mail-buf (current-buffer)) nil yank-action send-actions return-action))
(switch-to-buffer buf) (when switch-action
(apply switch-action mail-buf nil))) (setq mail-buf (current-buffer))
;; COMPOSEFUNC should return t if succeed. Undocumented ??? (switch-to-buffer buf)
t) (apply switch-action mail-buf nil))
;; COMPOSEFUNC should return t if succeed. Undocumented ???
t)))
;;;###autoload ;;;###autoload
(defun gnus-button-mailto (address) (defun gnus-button-mailto (address)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment