Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-dup.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/gnus-dup.el	Mon Aug 13 08:49:43 2007 +0200
@@ -117,6 +117,7 @@
       (when (and (not (gnus-data-pseudo-p datum))
 		 (> (gnus-data-number datum) 0)
 		 (gnus-data-read-p datum)
+		 (not (= (gnus-data-mark datum) gnus-canceled-mark))
  		 (setq msgid (mail-header-id (gnus-data-header datum)))
  		 (not (nnheader-fake-message-id-p msgid))
  		 (not (intern-soft msgid gnus-dup-hashtb)))