* lisp/gnus/gnus-msg.el (gnus-setup-message): Also bind `winconf-name'.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3695b94b5104468c10aff5bc58879cfba9d72713..fae73613d1ffbf97e8a27aa96aaf5ebb1aeeaf16 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-22  Sam Steingold  <sds@gnu.org>
+
+       * gnus-msg.el (gnus-setup-message): Also bind `winconf-name'.
+
 2011-02-22  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-inews-add-send-actions): Restore the winconf name

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 29ac43115c88161c9012ad6fd5f4f250beb54fbc..4e88b871ac077e99f5fd493d5ecf62483ef8a922 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -383,6 +383,7 @@ Thank you for your help in stamping out bugs.
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)
   (let ((winconf (make-symbol "gnus-setup-message-winconf"))
+        (winconf-name (make-symbol "gnus-setup-message-winconf"))
        (buffer (make-symbol "gnus-setup-message-buffer"))
        (article (make-symbol "gnus-setup-message-article"))
        (yanked (make-symbol "gnus-setup-yanked-articles"))