diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:15:23 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:15:23 +0000 |
| commit | 401d9d1a51ca2606440aebb5d4030cf90dbedd1a (patch) | |
| tree | 5970e71b73e426f323ada222d4ac4ebdcb84ac74 /lisp/gnus | |
| parent | 7f3a834027e2a5e0b39c61d59496de9d8123df45 (diff) | |
| download | emacs-401d9d1a51ca2606440aebb5d4030cf90dbedd1a.tar.gz | |
(gnus-agent-unlist-expire-days): Follow error conventions.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/legacy-gnus-agent.el | 8 |
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." ((file-directory-p member) (push member search-in)) ((equal (file-name-nondirectory member) ".agentview") - (setq converted-something + (setq converted-something (or (gnus-agent-convert-agentview member) converted-something)))))) @@ -175,7 +175,7 @@ converted to the compressed format." (t t)))))) (kill-buffer buffer)) - (error "Change gnus-agent-expire-days to an integer for gnus to start.")))) + (error "Change gnus-agent-expire-days to an integer for gnus to start")))) ;; The gnus-agent-unlist-expire-days has its own conversion prompt. ;; Therefore, hide the default prompt. @@ -198,8 +198,8 @@ possible that the hook was persistently saved." (when (cond ((eq (type-of func) 'compiled-function) ;; Search def. of compiled function for gnus-agent-do-once string - (let* (definition - print-level + (let* (definition + print-level print-length (standard-output (lambda (char) |