Mercurial > emacs

comparison lisp/gnus/gnus-dup.el @ 56927:55fd4f77387a after-merge-gnus-5_10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Sat, 04 Sep 2004 13:13:48 +0000
parents 695cf19ef79e
children 18a818a2ee7c cce1c0ee76ee
comparison
equal deleted inserted replaced
56926:f8e248e9a717 56927:55fd4f77387a
111 "Enter articles from the current group for future duplicate suppression." 111 "Enter articles from the current group for future duplicate suppression."
112 (unless gnus-dup-list 112 (unless gnus-dup-list
113 (gnus-dup-open)) 113 (gnus-dup-open))
114 (setq gnus-dup-list-dirty t) ; mark list for saving 114 (setq gnus-dup-list-dirty t) ; mark list for saving
115 (let ((data gnus-newsgroup-data) 115 (let ((data gnus-newsgroup-data)
116 datum msgid) 116 datum msgid)
117 ;; Enter the Message-IDs of all read articles into the list 117 ;; Enter the Message-IDs of all read articles into the list
118 ;; and hash table. 118 ;; and hash table.
119 (while (setq datum (pop data)) 119 (while (setq datum (pop data))
120 (when (and (not (gnus-data-pseudo-p datum)) 120 (when (and (not (gnus-data-pseudo-p datum))
121 (> (gnus-data-number datum) 0) 121 (> (gnus-data-number datum) 0)
122 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads)) 122 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads))
123 (not (= (gnus-data-mark datum) gnus-canceled-mark)) 123 (not (= (gnus-data-mark datum) gnus-canceled-mark))
124 (setq msgid (mail-header-id (gnus-data-header datum))) 124 (setq msgid (mail-header-id (gnus-data-header datum)))
125 (not (nnheader-fake-message-id-p msgid)) 125 (not (nnheader-fake-message-id-p msgid))
126 (not (intern-soft msgid gnus-dup-hashtb))) 126 (not (intern-soft msgid gnus-dup-hashtb)))
127 (push msgid gnus-dup-list) 127 (push msgid gnus-dup-list)
128 (intern msgid gnus-dup-hashtb)))) 128 (intern msgid gnus-dup-hashtb))))
129 ;; Chop off excess Message-IDs from the list. 129 ;; Chop off excess Message-IDs from the list.
130 (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list))) 130 (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list)))
131 (when end 131 (when end
132 (setcdr end nil)))) 132 (setcdr end nil))))
133 133