# HG changeset patch # User Juanma Barranquero # Date 1118762123 0 # Node ID 80595c2e2d743486e3571609e4ba8671f5d050da # Parent b7f8d156367042a8739f06906df49bc8aa7e1cdf (gnus-agent-unlist-expire-days): Follow error conventions. diff -r b7f8d1563670 -r 80595c2e2d74 lisp/gnus/legacy-gnus-agent.el --- 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)