This commit was generated by cvs2svn to compensate for changes in r4526,

[elisp/gnus.git-] / lisp / nnspool.el

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index eec8578..6914f78 100644 (file)
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -2,7 +2,7 @@
 ;; Copyright (C) 1988,89,90,93,94,95,96,97,98 Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;;     Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+;;     Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -144,11 +144,11 @@ there.")
 
            (and do-message
                 (zerop (% (incf count) 20))
-                (message "nnspool: Receiving headers... %d%%"
+                (nnheader-message 5 "nnspool: Receiving headers... %d%%"
                          (/ (* count 100) number))))
 
          (when do-message
-           (message "nnspool: Receiving headers...done"))
+           (nnheader-message 5 "nnspool: Receiving headers...done"))
 
          ;; Fold continuation lines.
          (nnheader-fold-continuation-lines)
@@ -343,9 +343,9 @@ there.")
       (while (re-search-forward "[ \t\n]+" nil t)
        (replace-match " " t t))
       (nnheader-report 'nnspool "%s" (buffer-string))
-      (message "nnspool: %s" nnspool-status-string)
+      (nnheader-message 5 "nnspool: %s" nnspool-status-string)
       (ding)
-      (gnus-run-hooks 'nnspool-rejected-article-hook))))
+      (run-hooks 'nnspool-rejected-article-hook))))
 
 (defun nnspool-retrieve-headers-with-nov (articles &optional fetch-old)
   (if (or gnus-nov-is-evil nnspool-nov-is-evil)