Mercurial > emacs

comparison lisp/gnus/gnus-group.el @ 60239:bbe4bd573f0c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-128 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-28 - miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-30 Update from CVS 2005-02-24 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/nnheader.el (nnheader-find-file-noselect): Added doc string. * lisp/gnus/nnfolder.el (nnfolder-read-folder): Use RAWFILE for `nnheader-find-file-noselect' to avoid `large-file-warning-threshold'. * lisp/gnus/gnus-sum.el (gnus-summary-caesar-message): Apply `gnus-treat-article' after rotation. * lisp/gnus/gnus-group.el (gnus-group-clear-data): Mention process/prefix in doc string. 2005-02-22 Arne J,Ax(Brgensen <arne@arnested.dk> * lisp/gnus/smime.el (smime-sign-buffer): Signal an error if `smime-sign-region' fails. (smime-encrypt-buffer): Signal an error if `smime-encrypt-region' fails.
author Miles Bader <miles@gnu.org>
date Fri, 25 Feb 2005 01:52:09 +0000
parents b070535d2416
children c0aa521e0ca7 bbc2e661b93c
comparison
equal deleted inserted replaced
60238:b88558eeedbb 60239:bbe4bd573f0c
3026 (> (gnus-info-score info1) (gnus-info-score info2)))))) 3026 (> (gnus-info-score info1) (gnus-info-score info2))))))
3027 3027
3028 ;;; Clearing data 3028 ;;; Clearing data
3029 3029
3030 (defun gnus-group-clear-data (&optional arg) 3030 (defun gnus-group-clear-data (&optional arg)
3031 "Clear all marks and read ranges from the current group." 3031 "Clear all marks and read ranges from the current group.
3032 Obeys the process/prefix convention."
3032 (interactive "P") 3033 (interactive "P")
3033 (gnus-group-iterate arg 3034 (gnus-group-iterate arg
3034 (lambda (group) 3035 (lambda (group)
3035 (let (info) 3036 (let (info)
3036 (gnus-info-clear-data (setq info (gnus-get-info group))) 3037 (gnus-info-clear-data (setq info (gnus-get-info group)))