Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
528 ["Subscribe" gnus-browse-unsubscribe-current-group t] 528 ["Subscribe" gnus-browse-unsubscribe-current-group t]
529 ["Read" gnus-browse-read-group t] 529 ["Read" gnus-browse-read-group t]
530 ["Select" gnus-browse-read-group t] 530 ["Select" gnus-browse-read-group t]
531 ["Next" gnus-browse-next-group t] 531 ["Next" gnus-browse-next-group t]
532 ["Prev" gnus-browse-next-group t] 532 ["Prev" gnus-browse-next-group t]
533 ["Exit" gnus-browse-exit t] 533 ["Exit" gnus-browse-exit t]))
534 ))
535 (run-hooks 'gnus-browse-menu-hook))) 534 (run-hooks 'gnus-browse-menu-hook)))
536 535
537 (defvar gnus-browse-current-method nil) 536 (defvar gnus-browse-current-method nil)
538 (defvar gnus-browse-return-buffer nil) 537 (defvar gnus-browse-return-buffer nil)
539 538
541 540
542 (defun gnus-browse-foreign-server (method &optional return-buffer) 541 (defun gnus-browse-foreign-server (method &optional return-buffer)
543 "Browse the server METHOD." 542 "Browse the server METHOD."
544 (setq gnus-browse-current-method method) 543 (setq gnus-browse-current-method method)
545 (setq gnus-browse-return-buffer return-buffer) 544 (setq gnus-browse-return-buffer return-buffer)
545 (when (stringp method)
546 (setq method (gnus-server-to-method method)))
546 (let ((gnus-select-method method) 547 (let ((gnus-select-method method)
547 groups group) 548 groups group)
548 (gnus-message 5 "Connecting to %s..." (nth 1 method)) 549 (gnus-message 5 "Connecting to %s..." (nth 1 method))
549 (cond 550 (cond
550 ((not (gnus-check-server method)) 551 ((not (gnus-check-server method))