diff options
| author | Juanma Barranquero | 2005-06-14 15:15:23 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-06-14 15:15:23 +0000 |
| commit | 401d9d1a51ca2606440aebb5d4030cf90dbedd1a (patch) | |
| tree | 5970e71b73e426f323ada222d4ac4ebdcb84ac74 | |
| parent | 7f3a834027e2a5e0b39c61d59496de9d8123df45 (diff) | |
| download | emacs-401d9d1a51ca2606440aebb5d4030cf90dbedd1a.tar.gz emacs-401d9d1a51ca2606440aebb5d4030cf90dbedd1a.zip | |
(gnus-agent-unlist-expire-days): Follow error conventions.
| -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." | |||
| 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) |