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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e3e141124c41f57a201af7b23c7a35d0d2015767..4911f2433431da66c63419a6fba8d0b8a0e116ed 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.
 

diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el
index eaecc07d7675f1ac63e80600117dda97dbe4a7c6..8db1905ef8bcffa1262c98ecbdedc7dfb26d513d 100644 (file)
--- a/lisp/gnus/gnus-dup.el
+++ b/lisp/gnus/gnus-dup.el
@@ -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."