[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-dup.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/gnus-dup.el
diff -c emacs/lisp/gnus/gnus-dup.el:1.4.18.1 
emacs/lisp/gnus/gnus-dup.el:1.4.18.2
*** emacs/lisp/gnus/gnus-dup.el:1.4.18.1        Tue Oct 14 23:34:50 2003
--- emacs/lisp/gnus/gnus-dup.el Thu Sep 16 00:12:15 2004
***************
*** 113,119 ****
      (gnus-dup-open))
    (setq gnus-dup-list-dirty t)                ; mark list for saving
    (let ((data gnus-newsgroup-data)
!       datum msgid)
      ;; Enter the Message-IDs of all read articles into the list
      ;; and hash table.
      (while (setq datum (pop data))
--- 113,119 ----
      (gnus-dup-open))
    (setq gnus-dup-list-dirty t)                ; mark list for saving
    (let ((data gnus-newsgroup-data)
!       datum msgid)
      ;; Enter the Message-IDs of all read articles into the list
      ;; and hash table.
      (while (setq datum (pop data))
***************
*** 121,131 ****
                 (> (gnus-data-number datum) 0)
                 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads))
                 (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)))
        (push msgid gnus-dup-list)
!       (intern msgid gnus-dup-hashtb))))
    ;; Chop off excess Message-IDs from the list.
    (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list)))
      (when end
--- 121,131 ----
                 (> (gnus-data-number datum) 0)
                 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads))
                 (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)))
        (push msgid gnus-dup-list)
!       (intern msgid gnus-dup-hashtb))))
    ;; Chop off excess Message-IDs from the list.
    (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list)))
      (when end