mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

* gnus-dup.el (gnus-dup-suppress-articles): Move "Suppressing duplicates" to a higher level.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-09-11 18:15:00 +02:00
parent 389e85727b
commit a98e746832
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -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.

4
lisp/gnus/gnus-dup.el
View File

@ -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."