Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 9f59509498e1
children d2f30a177268
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
676 676
677 (defun gnus-browse-group-name () 677 (defun gnus-browse-group-name ()
678 (save-excursion 678 (save-excursion
679 (beginning-of-line) 679 (beginning-of-line)
680 (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t) 680 (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t)
681 (gnus-group-prefixed-name (match-string 1) gnus-browse-current-method)))) 681 (gnus-group-prefixed-name
682 ;; Remove text props.
683 (format "%s" (match-string 1))
684 gnus-browse-current-method))))
682 685
683 (defun gnus-browse-unsubscribe-group () 686 (defun gnus-browse-unsubscribe-group ()
684 "Toggle subscription of the current group in the browse buffer." 687 "Toggle subscription of the current group in the browse buffer."
685 (let ((sub nil) 688 (let ((sub nil)
686 (buffer-read-only nil) 689 (buffer-read-only nil)