Mercurial > emacs

comparison lisp/gnus/nnml.el @ 83211:b85b19b8eb65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-567 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-568 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-569 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-570 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-571 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-572 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-573 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-574 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-575 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-576 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-577 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-578 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-579 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-580 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-31 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-32 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-33 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-34 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-35 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-36 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-37 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-251
author Karoly Lorentey <lorentey@elte.hu>
date Wed, 29 Sep 2004 08:38:15 +0000
parents cee5a9d8ee71
children dd462aabc959 e23928ac5a97
comparison
equal deleted inserted replaced
83210:e2877f047180 83211:b85b19b8eb65
921 (nnml-open-marks group server) 921 (nnml-open-marks group server)
922 (dolist (action actions) 922 (dolist (action actions)
923 (let ((range (nth 0 action)) 923 (let ((range (nth 0 action))
924 (what (nth 1 action)) 924 (what (nth 1 action))
925 (marks (nth 2 action))) 925 (marks (nth 2 action)))
926 (assert (or (eq what 'add) (eq what 'del)) t 926 (assert (or (eq what 'add) (eq what 'del)) nil
927 "Unknown request-set-mark action: %s" what) 927 "Unknown request-set-mark action: %s" what)
928 (dolist (mark marks) 928 (dolist (mark marks)
929 (setq nnml-marks (gnus-update-alist-soft 929 (setq nnml-marks (gnus-update-alist-soft
930 mark 930 mark
931 (funcall (if (eq what 'add) 'gnus-range-add 931 (funcall (if (eq what 'add) 'gnus-range-add