Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
222 (setq opened (cdr opened)))) 222 (setq opened (cdr opened))))
223 (goto-char (point-min)) 223 (goto-char (point-min))
224 (gnus-server-position-point)) 224 (gnus-server-position-point))
225 225
226 (defun gnus-server-server-name () 226 (defun gnus-server-server-name ()
227 (let ((server (get-text-property (point-at-bol) 'gnus-server))) 227 (let ((server (get-text-property (gnus-point-at-bol) 'gnus-server)))
228 (and server (symbol-name server)))) 228 (and server (symbol-name server))))
229 229
230 (defalias 'gnus-server-position-point 'gnus-goto-colon) 230 (defalias 'gnus-server-position-point 'gnus-goto-colon)
231 231
232 (defconst gnus-server-edit-buffer "*Gnus edit server*") 232 (defconst gnus-server-edit-buffer "*Gnus edit server*")
669 arg)) 669 arg))
670 670
671 (defun gnus-browse-group-name () 671 (defun gnus-browse-group-name ()
672 (save-excursion 672 (save-excursion
673 (beginning-of-line) 673 (beginning-of-line)
674 (when (re-search-forward ": \\(.*\\)$" (point-at-eol) t) 674 (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t)
675 (gnus-group-prefixed-name (match-string 1) gnus-browse-current-method)))) 675 (gnus-group-prefixed-name (match-string 1) gnus-browse-current-method))))
676 676
677 (defun gnus-browse-unsubscribe-group () 677 (defun gnus-browse-unsubscribe-group ()
678 "Toggle subscription of the current group in the browse buffer." 678 "Toggle subscription of the current group in the browse buffer."
679 (let ((sub nil) 679 (let ((sub nil)