Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.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 7d55a9ba150c
children d2f30a177268
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
521 "l" gnus-group-sort-groups-by-level 521 "l" gnus-group-sort-groups-by-level
522 "v" gnus-group-sort-groups-by-score 522 "v" gnus-group-sort-groups-by-score
523 "r" gnus-group-sort-groups-by-rank 523 "r" gnus-group-sort-groups-by-rank
524 "m" gnus-group-sort-groups-by-method) 524 "m" gnus-group-sort-groups-by-method)
525 525
526 (gnus-define-keys (gnus-group-sort-map "P" gnus-group-group-map) 526 (gnus-define-keys (gnus-group-sort-selected-map "P" gnus-group-group-map)
527 "s" gnus-group-sort-selected-groups 527 "s" gnus-group-sort-selected-groups
528 "a" gnus-group-sort-selected-groups-by-alphabet 528 "a" gnus-group-sort-selected-groups-by-alphabet
529 "u" gnus-group-sort-selected-groups-by-unread 529 "u" gnus-group-sort-selected-groups-by-unread
530 "l" gnus-group-sort-selected-groups-by-level 530 "l" gnus-group-sort-selected-groups-by-level
531 "v" gnus-group-sort-selected-groups-by-score 531 "v" gnus-group-sort-selected-groups-by-score
2176 determined by the `gnus-group-sort-function' variable. 2176 determined by the `gnus-group-sort-function' variable.
2177 If REVERSE (the prefix), reverse the sorting order." 2177 If REVERSE (the prefix), reverse the sorting order."
2178 (interactive (list gnus-group-sort-function current-prefix-arg)) 2178 (interactive (list gnus-group-sort-function current-prefix-arg))
2179 (funcall gnus-group-sort-alist-function 2179 (funcall gnus-group-sort-alist-function
2180 (gnus-make-sort-function func) reverse) 2180 (gnus-make-sort-function func) reverse)
2181 (gnus-group-list-groups)) 2181 (gnus-group-list-groups)
2182 (gnus-dribble-touch))
2182 2183
2183 (defun gnus-group-sort-flat (func reverse) 2184 (defun gnus-group-sort-flat (func reverse)
2184 ;; We peel off the dummy group from the alist. 2185 ;; We peel off the dummy group from the alist.
2185 (when func 2186 (when func
2186 (when (equal (car (gnus-info-group gnus-newsrc-alist)) "dummy.group") 2187 (when (equal (gnus-info-group (car gnus-newsrc-alist)) "dummy.group")
2187 (pop gnus-newsrc-alist)) 2188 (pop gnus-newsrc-alist))
2188 ;; Do the sorting. 2189 ;; Do the sorting.
2189 (setq gnus-newsrc-alist 2190 (setq gnus-newsrc-alist
2190 (sort gnus-newsrc-alist func)) 2191 (sort gnus-newsrc-alist func))
2191 (when reverse 2192 (when reverse