Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
153 %P Topic indentation (string) 153 %P Topic indentation (string)
154 %m Whether there is new(ish) mail in the group (char, \"%\") 154 %m Whether there is new(ish) mail in the group (char, \"%\")
155 %l Whether there are GroupLens predictions for this group (string) 155 %l Whether there are GroupLens predictions for this group (string)
156 %n Select from where (string) 156 %n Select from where (string)
157 %z A string that look like `<%s:%n>' if a foreign select method is used 157 %z A string that look like `<%s:%n>' if a foreign select method is used
158 ?d The date the group was last entered. 158 %d The date the group was last entered.
159 %u User defined specifier. The next character in the format string should 159 %u User defined specifier. The next character in the format string should
160 be a letter. Gnus will call the function gnus-user-format-function-X, 160 be a letter. Gnus will call the function gnus-user-format-function-X,
161 where X is the letter following %u. The function will be passed the 161 where X is the letter following %u. The function will be passed the
162 current header as argument. The function should return a string, which 162 current header as argument. The function should return a string, which
163 will be inserted into the buffer just like information from any other 163 will be inserted into the buffer just like information from any other
1206 (set-buffer gnus-dribble-buffer) 1206 (set-buffer gnus-dribble-buffer)
1207 (not (zerop (buffer-size)))))) 1207 (not (zerop (buffer-size))))))
1208 (mode-string (eval gformat))) 1208 (mode-string (eval gformat)))
1209 ;; Say whether the dribble buffer has been modified. 1209 ;; Say whether the dribble buffer has been modified.
1210 (setq mode-line-modified 1210 (setq mode-line-modified
1211 (if modified "---*- " "----- ")) 1211 (if modified "--**- " "----- "))
1212 ;; If the line is too long, we chop it off. 1212 ;; If the line is too long, we chop it off.
1213 (when (> (length mode-string) max-len) 1213 (when (> (length mode-string) max-len)
1214 (setq mode-string (substring mode-string 0 (- max-len 4)))) 1214 (setq mode-string (substring mode-string 0 (- max-len 4))))
1215 (prog1 1215 (prog1
1216 (setq mode-line-buffer-identification 1216 (setq mode-line-buffer-identification
1411 (setq group (gnus-group-group-name))) 1411 (setq group (gnus-group-group-name)))
1412 (push group groups) 1412 (push group groups)
1413 (setq n (1- n)) 1413 (setq n (1- n))
1414 (gnus-group-next-group way))) 1414 (gnus-group-next-group way)))
1415 (nreverse groups))) 1415 (nreverse groups)))
1416 ((and (boundp 'transient-mark-mode) 1416 ((gnus-region-active-p)
1417 transient-mark-mode
1418 (boundp 'mark-active)
1419 mark-active)
1420 ;; Work on the region between point and mark. 1417 ;; Work on the region between point and mark.
1421 (let ((max (max (point) (mark))) 1418 (let ((max (max (point) (mark)))
1422 groups) 1419 groups)
1423 (save-excursion 1420 (save-excursion
1424 (goto-char (min (point) (mark))) 1421 (goto-char (min (point) (mark)))
1499 buffer." 1496 buffer."
1500 (interactive "P") 1497 (interactive "P")
1501 (require 'gnus-score) 1498 (require 'gnus-score)
1502 (let (gnus-visual 1499 (let (gnus-visual
1503 gnus-score-find-score-files-function 1500 gnus-score-find-score-files-function
1501 gnus-home-score-file
1504 gnus-apply-kill-hook 1502 gnus-apply-kill-hook
1505 gnus-summary-expunge-below) 1503 gnus-summary-expunge-below)
1506 (gnus-group-read-group all t))) 1504 (gnus-group-read-group all t)))
1507 1505
1508 (defun gnus-group-visible-select-group (&optional all) 1506 (defun gnus-group-visible-select-group (&optional all)
1880 ((eq part 'params) 1878 ((eq part 'params)
1881 (gnus-info-params info)) 1879 (gnus-info-params info))
1882 (t info)) 1880 (t info))
1883 ;; The proper documentation. 1881 ;; The proper documentation.
1884 (format 1882 (format
1885 "Editing the %s." 1883 "Editing the %s for `%s'."
1886 (cond 1884 (cond
1887 ((eq part 'method) "select method") 1885 ((eq part 'method) "select method")
1888 ((eq part 'params) "group parameters") 1886 ((eq part 'params) "group parameters")
1889 (t "group info"))) 1887 (t "group info"))
1888 group)
1890 `(lambda (form) 1889 `(lambda (form)
1891 (gnus-group-edit-group-done ',part ,group form))))) 1890 (gnus-group-edit-group-done ',part ,group form)))))
1892 1891
1893 (defun gnus-group-edit-group-method (group) 1892 (defun gnus-group-edit-group-method (group)
1894 "Edit the select method of GROUP." 1893 "Edit the select method of GROUP."