From 13450d1fda3c3784cc63731a95801e63d22ef4df Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sat, 1 May 2004 23:58:37 +0000 Subject: [PATCH] Synch to No Gnus v0.2. --- lisp/ChangeLog | 9 +++++++++ lisp/gnus-agent.el | 5 +++-- lisp/gnus-int.el | 2 +- 3 files changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2ba903..e9fd32b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2004-05-01 Lars Magne Ingebrigtsen + + * gnus.el: No Gnus v0.2 is released. + +2004-05-01 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-read-agentview): Inline + gnus-uncompress-range. + 2004-05-01 TSUCHIYA Masatoshi * spam.el (spam-bsfilter-path): Use `executable-find' instead of diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 638217b..eea914b 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1873,8 +1873,9 @@ FILE and places the combined headers into `nntp-server-buffer'." (mapcar (lambda (comp-list) (let ((state (car comp-list)) - (sequence (gnus-uncompress-sequence - (cdr comp-list)))) + (sequence (inline + (gnus-uncompress-range + (cdr comp-list))))) (mapcar (lambda (article-id) (setq uncomp (cons (cons article-id state) uncomp))) sequence))) diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 9ab6afd..922d575 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -177,7 +177,7 @@ If it is down, start it up (again)." (setq method (gnus-server-to-method method))) ;; Check cache of constructed names. (let* ((method-sym (if gnus-agent - (gnus-agent-get-function method) + (inline (gnus-agent-get-function method)) (car method))) (method-fns (get method-sym 'gnus-method-functions)) (func (let ((method-fnlist-elt (assq function method-fns))) -- 1.7.10.4