(gnus-agent-read-agentview): Inline

gnus-uncompress-range.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2ba903..d604225 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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 07d8ac4..66bc357 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1857,8 +1857,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 f1e8418..41344cc 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -176,7 +176,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)))