Ephemeral group border case fixup

* gnus-group.el (gnus-group-read-ephemeral-group): If no quit-config is
given, mark the group as ephemeral with the current window conf.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6841b50..0ea8277 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-group.el (gnus-group-read-ephemeral-group): If no quit-config is
+       given, mark the group as ephemeral with the current window conf.
+
        * gnus-sum.el (gnus-set-global-variables): Don't assume that the group
        buffer exists, which it doesn't if we haven't started Gnus.
        (gnus-summary-exit): Allow quitting when we don't have a group buffer.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index ca745f4..b777436 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2315,14 +2315,17 @@ Return the name of the group if selection was successful."
      `(-1 nil (,group
               ,gnus-level-default-subscribed nil nil ,method
               ,(cons
-                (cond
-                 (quit-config
-                  (cons 'quit-config quit-config))
-                 ((assq gnus-current-window-configuration
-                        gnus-buffer-configuration)
-                  (cons 'quit-config
+                (cons 'quit-config
+                      (cond
+                       (quit-config
+                        quit-config)
+                       ((assq gnus-current-window-configuration
+                              gnus-buffer-configuration)
                         (cons gnus-summary-buffer
-                              gnus-current-window-configuration))))
+                              gnus-current-window-configuration))
+                       (t
+                        (cons (current-buffer)
+                              (current-window-configuration)))))
                 parameters)))
      gnus-newsrc-hashtb)
     (push method gnus-ephemeral-servers)