(spam-report-gmane): Adjust verbosity.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46c4e70..1e1cbf1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-01-03  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * spam-report.el (spam-report-gmane): Adjust verbosity.
+
        * spam.el: Fix many (but not all) checkdoc complaints.
        Delete trailing whitespace.
 

diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index e10639b..2238bab 100644 (file)
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -86,9 +86,9 @@ instead."
              (let* ((host (match-string 1))
                     (report (match-string 2))
                     (url (format "http://%s%s" host report)))
-               (gnus-message 10 "Reporting spam through URL %s..." url)
+               (gnus-message 7 "Reporting spam through URL %s..." url)
                (spam-report-url-ping host report))
-           (gnus-message 10 "Could not find X-Report-Spam in article %d..."
+           (gnus-message 3 "Could not find X-Report-Spam in article %d..."
                          article)))))))
 
 (defun spam-report-url-ping (host report)