Commit f61c87f1 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

lisp/gnus/gnus-msg.el (gnus-msg-mail): Buffer-local warning fix (bug#19573)

parent a8f93d14
2015-02-13 Lars Ingebrigtsen <larsi@gnus.org>
 
* gnus-msg.el (gnus-msg-mail): Don't let-bind `gnus-newsgroup-name' so
that we don't get a warning when setting the buffer-local variable
(bug#19573).
* nnmail.el (nnmail-expiry-target-group): Supply the info structure to
`gnus-request-group'.
 
......
......@@ -541,11 +541,15 @@ instead."
nil yank-action send-actions return-action))
(let ((buf (current-buffer))
;; Don't use posting styles corresponding to any existing group.
(gnus-newsgroup-name "")
(group-name gnus-newsgroup-name)
mail-buf)
(gnus-setup-message 'message
(message-mail to subject other-headers continue
nil yank-action send-actions return-action))
(unwind-protect
(progn
(setq gnus-newsgroup-name "")
(gnus-setup-message 'message
(message-mail to subject other-headers continue
nil yank-action send-actions return-action)))
(setq gnus-newsgroup-name group-name))
(when switch-action
(setq mail-buf (current-buffer))
(switch-to-buffer buf)
......
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