Mercurial > emacs
changeset 63418:80595c2e2d74
(gnus-agent-unlist-expire-days): Follow error conventions.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 14 Jun 2005 15:15:23 +0000 |
| parents | b7f8d1563670 |
| children | 025ea93d2596 |
| files | lisp/gnus/legacy-gnus-agent.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/legacy-gnus-agent.el Tue Jun 14 15:14:01 2005 +0000 +++ b/lisp/gnus/legacy-gnus-agent.el Tue Jun 14 15:15:23 2005 +0000 @@ -25,7 +25,7 @@ ((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 @@ (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 @@ (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)