procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2015-02-13 08:16:39 +00:00 • committed by Katsumi Yamaoka
parent a8f93d14cb
commit f61c87f12a
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,5 +1,9 @@
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'.

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

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