aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-06-14 15:15:23 +0000
committerJuanma Barranquero2005-06-14 15:15:23 +0000
commit401d9d1a51ca2606440aebb5d4030cf90dbedd1a (patch)
tree5970e71b73e426f323ada222d4ac4ebdcb84ac74
parent7f3a834027e2a5e0b39c61d59496de9d8123df45 (diff)
downloademacs-401d9d1a51ca2606440aebb5d4030cf90dbedd1a.tar.gz
emacs-401d9d1a51ca2606440aebb5d4030cf90dbedd1a.zip
(gnus-agent-unlist-expire-days): Follow error conventions.
-rw-r--r--lisp/gnus/legacy-gnus-agent.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/legacy-gnus-agent.el b/lisp/gnus/legacy-gnus-agent.el
index 16b0cf6c89f..50675b0ba27 100644
--- a/lisp/gnus/legacy-gnus-agent.el
+++ b/lisp/gnus/legacy-gnus-agent.el
@@ -25,7 +25,7 @@ converted to the compressed format."
25 ((file-directory-p member) 25 ((file-directory-p member)
26 (push member search-in)) 26 (push member search-in))
27 ((equal (file-name-nondirectory member) ".agentview") 27 ((equal (file-name-nondirectory member) ".agentview")
28 (setq converted-something 28 (setq converted-something
29 (or (gnus-agent-convert-agentview member) 29 (or (gnus-agent-convert-agentview member)
30 converted-something)))))) 30 converted-something))))))
31 31
@@ -175,7 +175,7 @@ converted to the compressed format."
175 (t 175 (t
176 t)))))) 176 t))))))
177 (kill-buffer buffer)) 177 (kill-buffer buffer))
178 (error "Change gnus-agent-expire-days to an integer for gnus to start.")))) 178 (error "Change gnus-agent-expire-days to an integer for gnus to start"))))
179 179
180;; The gnus-agent-unlist-expire-days has its own conversion prompt. 180;; The gnus-agent-unlist-expire-days has its own conversion prompt.
181;; Therefore, hide the default prompt. 181;; Therefore, hide the default prompt.
@@ -198,8 +198,8 @@ possible that the hook was persistently saved."
198 198
199 (when (cond ((eq (type-of func) 'compiled-function) 199 (when (cond ((eq (type-of func) 'compiled-function)
200 ;; Search def. of compiled function for gnus-agent-do-once string 200 ;; Search def. of compiled function for gnus-agent-do-once string
201 (let* (definition 201 (let* (definition
202 print-level 202 print-level
203 print-length 203 print-length
204 (standard-output 204 (standard-output
205 (lambda (char) 205 (lambda (char)