From: yamaoka <yamaoka>
Date: Thu, 5 Feb 2004 22:10:08 +0000 (+0000)
Subject: Synch to No Gnus 200402052206.
X-Git-Tag: t-gnus-6_17_4-quimby-~1082
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd81adc7b79c6b9f2c4fec1403ac0f84eaa5711b;p=elisp%2Fgnus.git-

Synch to No Gnus 200402052206.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0043d7c..4f2b2dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* spam-report.el (spam-report-process-queue): New function.
 	Process requests from `spam-report-requests-file'.
+	(spam-report-process-queue): Doc fix.
 
 2004-02-05  Teodor Zlatanov  <tzz@lifelogs.com>
 
diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index b4ed75b..59ef414 100644
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -128,8 +128,9 @@ the function specified by `spam-report-url-ping-function'."
 (defun spam-report-process-queue (&optional file keep)
   "Report all queued requests from `spam-report-requests-file'.
 
-If KEEP is t, leave old requests in the file.  If KEEP is
-the symbol `ask', query before flushing the queue file."
+If FILE is given, use it instead of `spam-report-requests-file'.
+If KEEP is t, leave old requests in the file.  If KEEP is the
+symbol `ask', query before flushing the queue file."
   (interactive
    (list (read-file-name
 	  "File: "
@@ -142,7 +143,7 @@ the symbol `ask', query before flushing the queue file."
   (if (eq spam-report-url-ping-function 'spam-report-url-to-file)
       (error (concat "Cannot process requests when "
 		     "`spam-report-url-ping-function' is "
-		     "`spam-report-url-to-file'"))
+		     "`spam-report-url-to-file'."))
     (gnus-message 7 "Processing requests using `%s'."
 		  spam-report-url-ping-function))
   (or file (setq file spam-report-requests-file))