diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2015-02-13 08:16:39 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-02-13 08:16:39 +0000 |
| commit | f61c87f12a36bb2063c25b6742380b5916618ab5 (patch) | |
| tree | 1dfe8f67f8f604a2569f3ce822e9a2437ce080cd /lisp/gnus/gnus-msg.el | |
| parent | a8f93d14cbc7a54bc09c7e4d841331588e86afa6 (diff) | |
| download | emacs-f61c87f12a36bb2063c25b6742380b5916618ab5.tar.gz | |
lisp/gnus/gnus-msg.el (gnus-msg-mail): Buffer-local warning fix (bug#19573)
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 6c80c0daca6..bfd3da2e69d 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -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) |