* gnus-dup.el (gnus-dup-suppress-articles): Move "Suppressing duplicates" to a higher level.
This commit is contained in:
parent
389e85727b
commit
a98e746832
2 changed files with 5 additions and 2 deletions
|
@ -1,5 +1,8 @@
|
|||
2011-09-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* gnus-dup.el (gnus-dup-suppress-articles): Move "Suppressing
|
||||
duplicates" to a higher level.
|
||||
|
||||
* gnus-util.el (gnus-verbose): Lower default to 6 to get rid of the
|
||||
most egregious messages.
|
||||
|
||||
|
|
|
@ -131,7 +131,7 @@ seen in the same session."
|
|||
"Mark duplicate articles as read."
|
||||
(unless gnus-dup-list
|
||||
(gnus-dup-open))
|
||||
(gnus-message 6 "Suppressing duplicates...")
|
||||
(gnus-message 8 "Suppressing duplicates...")
|
||||
(let ((auto (and gnus-newsgroup-auto-expire
|
||||
(memq gnus-duplicate-mark gnus-auto-expirable-marks)))
|
||||
number)
|
||||
|
@ -145,7 +145,7 @@ seen in the same session."
|
|||
(push (cons number gnus-duplicate-mark) gnus-newsgroup-reads)
|
||||
(push number gnus-newsgroup-expirable)
|
||||
(push (cons number gnus-expirable-mark) gnus-newsgroup-reads)))))
|
||||
(gnus-message 6 "Suppressing duplicates...done"))
|
||||
(gnus-message 8 "Suppressing duplicates...done"))
|
||||
|
||||
(defun gnus-dup-unsuppress-article (article)
|
||||
"Stop suppression of ARTICLE."
|
||||
|
|
Loading…
Add table
Reference in a new issue