Mercurial > emacs
comparison lisp/gnus/gnus-dup.el @ 82951:0fde48feb604
Import Gnus 5.10 from the v5_10 branch of the Gnus repository.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 22 Jul 2004 16:45:51 +0000 |
| parents | 695cf19ef79e |
| children | 18a818a2ee7c cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56503:8bbd2323fbf2 | 82951:0fde48feb604 |
|---|---|
| 111 "Enter articles from the current group for future duplicate suppression." | 111 "Enter articles from the current group for future duplicate suppression." |
| 112 (unless gnus-dup-list | 112 (unless gnus-dup-list |
| 113 (gnus-dup-open)) | 113 (gnus-dup-open)) |
| 114 (setq gnus-dup-list-dirty t) ; mark list for saving | 114 (setq gnus-dup-list-dirty t) ; mark list for saving |
| 115 (let ((data gnus-newsgroup-data) | 115 (let ((data gnus-newsgroup-data) |
| 116 datum msgid) | 116 datum msgid) |
| 117 ;; Enter the Message-IDs of all read articles into the list | 117 ;; Enter the Message-IDs of all read articles into the list |
| 118 ;; and hash table. | 118 ;; and hash table. |
| 119 (while (setq datum (pop data)) | 119 (while (setq datum (pop data)) |
| 120 (when (and (not (gnus-data-pseudo-p datum)) | 120 (when (and (not (gnus-data-pseudo-p datum)) |
| 121 (> (gnus-data-number datum) 0) | 121 (> (gnus-data-number datum) 0) |
| 122 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads)) | 122 (not (memq (gnus-data-number datum) gnus-newsgroup-unreads)) |
| 123 (not (= (gnus-data-mark datum) gnus-canceled-mark)) | 123 (not (= (gnus-data-mark datum) gnus-canceled-mark)) |
| 124 (setq msgid (mail-header-id (gnus-data-header datum))) | 124 (setq msgid (mail-header-id (gnus-data-header datum))) |
| 125 (not (nnheader-fake-message-id-p msgid)) | 125 (not (nnheader-fake-message-id-p msgid)) |
| 126 (not (intern-soft msgid gnus-dup-hashtb))) | 126 (not (intern-soft msgid gnus-dup-hashtb))) |
| 127 (push msgid gnus-dup-list) | 127 (push msgid gnus-dup-list) |
| 128 (intern msgid gnus-dup-hashtb)))) | 128 (intern msgid gnus-dup-hashtb)))) |
| 129 ;; Chop off excess Message-IDs from the list. | 129 ;; Chop off excess Message-IDs from the list. |
| 130 (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list))) | 130 (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list))) |
| 131 (when end | 131 (when end |
| 132 (setcdr end nil)))) | 132 (setcdr end nil)))) |
| 133 | 133 |