From: 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 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))