[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f61c87f: lisp/gnus/gnus-msg.el (gnus-msg-mail): Buf
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master f61c87f: lisp/gnus/gnus-msg.el (gnus-msg-mail): Buffer-local warning fix (bug#19573) |
Date: |
Fri, 13 Feb 2015 08:16:48 +0000 |
branch: master
commit f61c87f12a36bb2063c25b6742380b5916618ab5
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
lisp/gnus/gnus-msg.el (gnus-msg-mail): Buffer-local warning fix (bug#19573)
---
lisp/gnus/ChangeLog | 4 ++++
lisp/gnus/gnus-msg.el | 12 ++++++++----
2 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9ff191d..67929a3 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,9 @@
2015-02-13 Lars Ingebrigtsen <address@hidden>
+ * 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'.
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 6c80c0d..bfd3da2 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f61c87f: lisp/gnus/gnus-msg.el (gnus-msg-mail): Buffer-local warning fix (bug#19573),
Katsumi Yamaoka <=