(gnus-setup-message): Define missing variable from last checkin.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c91ae14..d63e3fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -31,6 +31,7 @@
 
        * gnus-msg.el (gnus-inews-add-send-actions): Restore the winconf name
        after exit.
+       (gnus-setup-message): Define missing variable from last checkin.
 
        * gnus-sum.el (gnus-summary-show-article): When called with t as the
        value, show the raw article.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 29ac431..093eec3 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/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-name"))
        (buffer (make-symbol "gnus-setup-message-buffer"))
        (article (make-symbol "gnus-setup-message-article"))
        (yanked (make-symbol "gnus-setup-yanked-articles"))
@@ -433,7 +434,7 @@ Thank you for your help in stamping out bugs.
           (progn
             ,@forms)
         (gnus-inews-add-send-actions ,winconf ,buffer ,article ,config
-                                     ,yanked ,winconf-name)
+                                     ,yanked ',winconf-name)
         (setq gnus-message-buffer (current-buffer))
         (set (make-local-variable 'gnus-message-group-art)
              (cons ,group ,article))
@@ -541,7 +542,7 @@ Gcc: header for archiving purposes."
           (gnus-post-method arg ,gnus-newsgroup-name)))
   (message-add-action
    `(progn
-      (setq gnus-current-window-configuration ,winconf-name)
+      (setq gnus-current-window-configuration ',winconf-name)
       (when (gnus-buffer-exists-p ,buffer)
        (set-window-configuration ,winconf)))
    'exit 'postpone 'kill)