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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
