* nnagent.el (nnagent-request-type): Bind gnus-agent to nil to

	avoid infinite recursion via gnus-get-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89642ad..3b1a7f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-02  Kevin Greiner  <kgreiner@compsol.cc>
+
+       * nnagent.el (nnagent-request-type): Bind gnus-agent to nil to
+       avoid infinite recursion via gnus-get-function.
+
 2004-10-02  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-partial.el (mm-partial-find-parts): Use with-current-buffer.

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index df4293e..a17e92c 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -103,7 +103,7 @@
 
 (defun nnagent-request-type (group article)
   (unless (stringp article)
-    (let ((gnus-plugged t))
+    (let ((gnus-agent nil))
       (if (not (gnus-check-backend-function
                'request-type (car gnus-command-method)))
          'unknown