/[emacs]/emacs/lisp/gnus/legacy-gnus-agent.el
ViewVC logotype

Diff of /emacs/lisp/gnus/legacy-gnus-agent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by miles, Thu Oct 21 00:07:18 2004 UTC revision 1.2 by lektu, Tue Jun 14 15:15:23 2005 UTC
# Line 25  converted to the compressed format." Line 25  converted to the compressed format."
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    
# Line 175  converted to the compressed format." Line 175  converted to the compressed format."
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.
# Line 198  possible that the hook was persistently Line 198  possible that the hook was persistently
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26