[gnus git] branch master updated: n0-17-194-gf88e15e =1= Make sure we don't enter invalid buffer configurations into the quit form

Lars Magne Ingebrigtsen <[email protected]>
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  f88e15e8d4e5e4871d6e6fb57b19c7269673c7a8 (commit)
      from  8c0d252681e082751a5925886facbcca21f87377 (commit)


- Log -----------------------------------------------------------------
commit f88e15e8d4e5e4871d6e6fb57b19c7269673c7a8
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue Jul 19 20:24:43 2011 +0200

    Make sure we don't enter invalid buffer configurations into the quit form

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29ed11a..3c76be3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-19  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* gnus-group.el (gnus-group-read-ephemeral-group): Make sure we don't
+	enter invalid buffer configurations into the quit form (bug#9107).
+
 	* gnus-sum.el (gnus-summary-refer-thread): When inserting new headers,
 	keep track of which ones are unread (bug#9061).
 
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index b4dca3e..e24d4d3 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2298,11 +2298,14 @@ Return the name of the group if selection was successful."
      `(-1 nil (,group
 	       ,gnus-level-default-subscribed nil nil ,method
 	       ,(cons
-		 (if quit-config
-		     (cons 'quit-config quit-config)
+		 (cond
+		  (quit-config
+		   (cons 'quit-config quit-config))
+		  ((assq gnus-current-window-configuration
+			 gnus-buffer-configuration)
 		   (cons 'quit-config
 			 (cons gnus-summary-buffer
-			       gnus-current-window-configuration)))
+			       gnus-current-window-configuration))))
 		 parameters)))
      gnus-newsrc-hashtb)
     (push method gnus-ephemeral-servers)

-----------------------------------------------------------------------
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     |    3 +++
 lisp/gnus-group.el |    9 ++++++---
 2 files changed, 9 insertions(+), 3 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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.