*** empty log message ***

[gnus] / lisp / gnus-dup.el

diff --git a/lisp/gnus-dup.el b/lisp/gnus-dup.el
index e2282aa..5a2802d 100644 (file)
--- a/lisp/gnus-dup.el
+++ b/lisp/gnus-dup.el
@@ -106,7 +106,9 @@ seen in the same session.")
     ;; and hash table.
     (while (setq datum (pop data))
       (when (and (not (gnus-data-pseudo-p datum))
-                (gnus-data-read-p datum))
+                (gnus-data-read-p datum)
+                (not (intern-soft (mail-header-id (gnus-data-header datum))
+                                  gnus-dup-hashtb)))
        (intern (car (push (mail-header-id (gnus-data-header datum))
                           gnus-dup-list))
                gnus-dup-hashtb))))