Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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))