projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
520e9a7
)
Synch to No Gnus 200402052206.
author
yamaoka
<yamaoka>
Thu, 5 Feb 2004 22:10:08 +0000
(22:10 +0000)
committer
yamaoka
<yamaoka>
Thu, 5 Feb 2004 22:10:08 +0000
(22:10 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/spam-report.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
0043d7c
..
4f2b2dc
100644
(file)
--- 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.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>
2004-02-05 Teodor Zlatanov <tzz@lifelogs.com>
diff --git
a/lisp/spam-report.el
b/lisp/spam-report.el
index
b4ed75b
..
59ef414
100644
(file)
--- 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'.
(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: "
(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 "
(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))
(gnus-message 7 "Processing requests using `%s'."
spam-report-url-ping-function))
(or file (setq file spam-report-requests-file))