X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-group.el;h=377c606ba7fbeacd1b454951142414f08d95087d;hb=b19ab0bcf7b463d4b14b41bd23f2a5d62d03795a;hp=35daf95292b72da69993cbfe7454ddb68ccb4124;hpb=1a96d7bf660263f25557962103bc0ec2495d1d07;p=gnus

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 35daf9529..377c606ba 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1299,14 +1299,13 @@ Returns whether the fetching was successful or not."
 
 ;; Enter a group that is not in the group buffer.  Non-nil is returned
 ;; if selection was successful.
-(defun gnus-group-read-ephemeral-group
-  (group method &optional activate quit-config request-only)
+(defun gnus-group-read-ephemeral-group (group method &optional activate 
+					      quit-config request-only)
   "Read GROUP from METHOD as an ephemeral group.
 If ACTIVATE, request the group first.
-If QUIT-CONFIG, use that window configuration when
-exiting from the ephemeral group.
-If REQUEST-ONLY, don't actually read the group; just
-request it.
+If QUIT-CONFIG, use that window configuration when exiting from the
+ephemeral group.
+If REQUEST-ONLY, don't actually read the group; just request it.
 
 Return the name of the group is selection was successful."
   (let ((group (if (gnus-group-foreign-p group) group
@@ -1322,7 +1321,8 @@ Return the name of the group is selection was successful."
       (error "Unable to contact server: %s" (gnus-status-message method)))
     (when activate
       (unless (gnus-request-group group)
-	(error "Couldn't request group")))
+	(error "Couldn't request group: %s" 
+	       (nnheader-get-report (car method)))))
     (if request-only
 	group
       (condition-case ()