Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 0132846995bd
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
312 (gnus-server-position-point))) 312 (gnus-server-position-point)))
313 313
314 (defun gnus-server-exit () 314 (defun gnus-server-exit ()
315 "Return to the group buffer." 315 "Return to the group buffer."
316 (interactive) 316 (interactive)
317 (run-hooks 'gnus-server-exit-hook)
317 (kill-buffer (current-buffer)) 318 (kill-buffer (current-buffer))
318 (switch-to-buffer gnus-group-buffer) 319 (gnus-configure-windows 'group t))
319 (run-hooks 'gnus-server-exit-hook))
320 320
321 (defun gnus-server-list-servers () 321 (defun gnus-server-list-servers ()
322 "List all available servers." 322 "List all available servers."
323 (interactive) 323 (interactive)
324 (let ((cur (gnus-server-server-name))) 324 (let ((cur (gnus-server-server-name)))