[Emacs-diffs] Changes to emacs/lisp/gnus/legacy-gnus-agent.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/legacy-gnus-agent.el
diff -c emacs/lisp/gnus/legacy-gnus-agent.el:1.1 
emacs/lisp/gnus/legacy-gnus-agent.el:1.2
*** emacs/lisp/gnus/legacy-gnus-agent.el:1.1    Thu Oct 21 00:07:18 2004
--- emacs/lisp/gnus/legacy-gnus-agent.el        Tue Jun 14 15:15:23 2005
***************
*** 25,31 ****
              ((file-directory-p member)
               (push member search-in))
                ((equal (file-name-nondirectory member) ".agentview")
!                (setq converted-something 
                       (or (gnus-agent-convert-agentview member)
                           converted-something))))))
  
--- 25,31 ----
              ((file-directory-p member)
               (push member search-in))
                ((equal (file-name-nondirectory member) ".agentview")
!                (setq converted-something
                       (or (gnus-agent-convert-agentview member)
                           converted-something))))))
  
***************
*** 175,181 ****
                                    (t
                                     t))))))
          (kill-buffer buffer))
!       (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.
--- 175,181 ----
                                    (t
                                     t))))))
          (kill-buffer buffer))
!       (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,205 ****
  
            (when (cond ((eq (type-of func) 'compiled-function)
                         ;; Search def. of compiled function for 
gnus-agent-do-once string
!                        (let* (definition 
!                                print-level 
                                 print-length
                                 (standard-output
                                  (lambda (char)
--- 198,205 ----
  
            (when (cond ((eq (type-of func) 'compiled-function)
                         ;; Search def. of compiled function for 
gnus-agent-do-once string
!                        (let* (definition
!                                print-level
                                 print-length
                                 (standard-output
                                  (lambda (char)