* nnmail.el (nnmail-cache-primary-mail-backend): Not all

'respool-able backends define a global nnchoke-get-new-mail
variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ef2a90..77be1fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-12  Paul Jarc  <prj@po.cwru.edu>
+
+       * nnmail.el (nnmail-cache-primary-mail-backend): Not all
+       'respool-able backends define a global nnchoke-get-new-mail
+       variable.
+
 2003-03-17  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-mime-delete-part): New function.
@@ -24,7 +30,7 @@
        imap-open.
 
        * message.el (message-send-mail): Add courtesy string to Bcc's,
-       too. 
+       too.
 
        * gnus-cite.el (gnus-cited-line-p): New function.
 

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 81b1b20..6abe9e6 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1511,12 +1511,16 @@ See the documentation for the variable `nnmail-split-fancy' for details."
 (defun nnmail-cache-primary-mail-backend ()
   (let ((be-list (cons gnus-select-method gnus-secondary-select-methods))
        (be nil)
-       (res nil))
+       (res nil)
+        (get-new-mail nil))
     (while (and (null res) be-list)
       (setq be (car be-list))
       (setq be-list (cdr be-list))
       (when (and (gnus-method-option-p be 'respool)
-                (eval (intern (format "%s-get-new-mail" (car be)))))
+                 (setq get-new-mail
+                       (intern (format "%s-get-new-mail" (car be))))
+                 (boundp get-new-mail)
+                (symbol-value get-new-mail))
        (setq res be)))
     res))