Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 85ec50267440
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
1211 (save-excursion 1211 (save-excursion
1212 (set-buffer gnus-dribble-buffer) 1212 (set-buffer gnus-dribble-buffer)
1213 (not (zerop (buffer-size)))))) 1213 (not (zerop (buffer-size))))))
1214 (mode-string (eval gformat))) 1214 (mode-string (eval gformat)))
1215 ;; Say whether the dribble buffer has been modified. 1215 ;; Say whether the dribble buffer has been modified.
1216 (setq mode-line-modified 1216 (setq mode-line-modified (if modified "**" "--"))
1217 (if modified "--**- " "----- "))
1218 ;; If the line is too long, we chop it off. 1217 ;; If the line is too long, we chop it off.
1219 (when (> (length mode-string) max-len) 1218 (when (> (length mode-string) max-len)
1220 (setq mode-string (substring mode-string 0 (- max-len 4)))) 1219 (setq mode-string (substring mode-string 0 (- max-len 4))))
1221 (prog1 1220 (prog1
1222 (setq mode-line-buffer-identification 1221 (setq mode-line-buffer-identification
2144 (interactive "sCreate new, empty virtual group: ") 2143 (interactive "sCreate new, empty virtual group: ")
2145 (let* ((method (list 'nnvirtual "^$")) 2144 (let* ((method (list 'nnvirtual "^$"))
2146 (pgroup (gnus-group-prefixed-name group method))) 2145 (pgroup (gnus-group-prefixed-name group method)))
2147 ;; Check whether it exists already. 2146 ;; Check whether it exists already.
2148 (when (gnus-gethash pgroup gnus-newsrc-hashtb) 2147 (when (gnus-gethash pgroup gnus-newsrc-hashtb)
2149 (error "Group %s already exists." pgroup)) 2148 (error "Group %s already exists" pgroup))
2150 ;; Subscribe the new group after the group on the current line. 2149 ;; Subscribe the new group after the group on the current line.
2151 (gnus-subscribe-group pgroup (gnus-group-group-name) method) 2150 (gnus-subscribe-group pgroup (gnus-group-group-name) method)
2152 (gnus-group-update-group pgroup) 2151 (gnus-group-update-group pgroup)
2153 (forward-line -1) 2152 (forward-line -1)
2154 (gnus-group-position-point))) 2153 (gnus-group-position-point)))