Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents d620409f5eb8
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:54:26 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:54:51 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))