25 |
((file-directory-p member) |
((file-directory-p member) |
26 |
(push member search-in)) |
(push member search-in)) |
27 |
((equal (file-name-nondirectory member) ".agentview") |
((equal (file-name-nondirectory member) ".agentview") |
28 |
(setq converted-something |
(setq converted-something |
29 |
(or (gnus-agent-convert-agentview member) |
(or (gnus-agent-convert-agentview member) |
30 |
converted-something)))))) |
converted-something)))))) |
31 |
|
|
175 |
(t |
(t |
176 |
t)))))) |
t)))))) |
177 |
(kill-buffer buffer)) |
(kill-buffer buffer)) |
178 |
(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")))) |
179 |
|
|
180 |
;; The gnus-agent-unlist-expire-days has its own conversion prompt. |
;; The gnus-agent-unlist-expire-days has its own conversion prompt. |
181 |
;; Therefore, hide the default prompt. |
;; Therefore, hide the default prompt. |
198 |
|
|
199 |
(when (cond ((eq (type-of func) 'compiled-function) |
(when (cond ((eq (type-of func) 'compiled-function) |
200 |
;; Search def. of compiled function for gnus-agent-do-once string |
;; Search def. of compiled function for gnus-agent-do-once string |
201 |
(let* (definition |
(let* (definition |
202 |
print-level |
print-level |
203 |
print-length |
print-length |
204 |
(standard-output |
(standard-output |
205 |
(lambda (char) |
(lambda (char) |