From: yamaoka <yamaoka>
Date: Sat, 1 May 2004 23:58:37 +0000 (+0000)
Subject: Synch to No Gnus v0.2.
X-Git-Tag: t-gnus-6_17_4-quimby-~953
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=13450d1fda3c3784cc63731a95801e63d22ef4df;hp=4176c1a6a55e2ccddea026dbe2fee3e0d97191ce;p=elisp%2Fgnus.git-

Synch to No Gnus v0.2.
---

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 <lars@ingebrigtsen.no>
+
+	* gnus.el: No Gnus v0.2 is released.
+
+2004-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-agent.el (gnus-agent-read-agentview): Inline
+	gnus-uncompress-range. 
+
 2004-05-01  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* 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)))