[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-dup.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-dup.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 17:46:09 -0400 |
Index: emacs/lisp/gnus/gnus-dup.el
diff -c emacs/lisp/gnus/gnus-dup.el:1.4.24.1
emacs/lisp/gnus/gnus-dup.el:1.4.24.2
*** emacs/lisp/gnus/gnus-dup.el:1.4.24.1 Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-dup.el Thu Sep 9 09:36:25 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-dup.el [emacs-unicode-2],
Miles Bader <=