* gnus-group.el (gnus-group-read-ephemeral-group): Restore the old

	behavior of quit-config.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72174bb..4d4ae62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-group.el (gnus-group-read-ephemeral-group): Restore the old
+       behavior of quit-config.
+       
        * message.el (message-make-from): Don't quote fullname.
        From: Bj\e,Ax\e(Brn Mork <bmork@dod.no>
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 30d1f4e..9278e09 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1894,12 +1894,13 @@ Return the name of the group if selection was successful."
      group
      `(-1 nil (,group
               ,gnus-level-default-subscribed nil nil ,method
-              ,(append
-                parameters
-                (list
-                 (cons 'quit-config quit-config)
-                 (cons gnus-summary-buffer
-                       gnus-current-window-configuration)))))
+              ,(cons
+                (if quit-config 
+                    (cons 'quit-config quit-config)
+                  (cons 'quit-config
+                        (cons gnus-summary-buffer
+                              gnus-current-window-configuration)))
+                parameters)))
      gnus-newsrc-hashtb)
     (push method gnus-ephemeral-servers)
     (set-buffer gnus-group-buffer)