X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnspool.el;h=6914f785a3860054d8c32b70486a853a48f36486;hb=691a45e60fb7093bed9e4ad2b7fcd0f8f00e2dc8;hp=967a4c807e6cc937c9e6d8ebfde64b124d0f2563;hpb=4c2e20a67169654caf07221554d9e637d3f7bbfa;p=elisp%2Fgnus.git-

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index 967a4c8..6914f78 100644
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -1,8 +1,8 @@
 ;;; nnspool.el --- spool access for GNU Emacs
-;; Copyright (C) 1988,89,90,93,94,95,96,97 Free Software Foundation, Inc.
+;; 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.
@@ -82,7 +82,6 @@ there.")
 (defvoo nnspool-rejected-article-hook nil
   "*A hook that will be run when an article has been rejected by the server.")
 
-;; 1997/8/14 by MORIOKA Tomohiko
 (defvoo nnspool-file-coding-system nnheader-file-coding-system
   "Coding system for nnspool.")
 
@@ -145,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)
@@ -344,7 +343,7 @@ 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)
       (run-hooks 'nnspool-rejected-article-hook))))