[gnus git] branch master updated: m0-11-157-g99b7b0d =1= Buffer-local warning fix

       via  99b7b0ddf235365e9becb0bd97879367874f66e7 (commit)
      from  d83466449a86bdeb0ce341fc1e0634f2737cde31 (commit)


- Log -----------------------------------------------------------------
commit 99b7b0ddf235365e9becb0bd97879367874f66e7
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Fri Feb 13 18:28:23 2015 +1100

    Buffer-local warning fix
    
    * 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).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 070b970..8110acc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2015-02-13  Lars Ingebrigtsen  <[email protected]>
 
+	* 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-msg.el b/lisp/gnus-msg.el
index 6c80c0d..bfd3da2 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/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)
+      (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))
+			    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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    4 ++++
 lisp/gnus-msg.el |   12 ++++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project