Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-dup.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
115 ;; and hash table. 115 ;; and hash table.
116 (while (setq datum (pop data)) 116 (while (setq datum (pop data))
117 (when (and (not (gnus-data-pseudo-p datum)) 117 (when (and (not (gnus-data-pseudo-p datum))
118 (> (gnus-data-number datum) 0) 118 (> (gnus-data-number datum) 0)
119 (gnus-data-read-p datum) 119 (gnus-data-read-p datum)
120 (not (= (gnus-data-mark datum) gnus-canceled-mark))
120 (setq msgid (mail-header-id (gnus-data-header datum))) 121 (setq msgid (mail-header-id (gnus-data-header datum)))
121 (not (nnheader-fake-message-id-p msgid)) 122 (not (nnheader-fake-message-id-p msgid))
122 (not (intern-soft msgid gnus-dup-hashtb))) 123 (not (intern-soft msgid gnus-dup-hashtb)))
123 (push msgid gnus-dup-list) 124 (push msgid gnus-dup-list)
124 (intern msgid gnus-dup-hashtb)))) 125 (intern msgid gnus-dup-hashtb))))