Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 48d667d6f17f
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:23:06 2007 +0200
@@ -530,8 +530,7 @@
        ["Select" gnus-browse-read-group t]
        ["Next" gnus-browse-next-group t]
        ["Prev" gnus-browse-next-group t]
-       ["Exit" gnus-browse-exit t]
-       ))
+       ["Exit" gnus-browse-exit t]))
     (run-hooks 'gnus-browse-menu-hook)))
 
 (defvar gnus-browse-current-method nil)
@@ -543,6 +542,8 @@
   "Browse the server METHOD."
   (setq gnus-browse-current-method method)
   (setq gnus-browse-return-buffer return-buffer)
+  (when (stringp method)
+    (setq method (gnus-server-to-method method)))
   (let ((gnus-select-method method)
 	groups group)
     (gnus-message 5 "Connecting to %s..." (nth 1 method))