(gnus-request-update-info): Protect against backends not having the function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0113ef1..e45b785 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-int.el (gnus-request-update-info): Protect against backends not
+       having the function.
+
        * nnimap.el (nnimap-stream): Mention starttls.
        (nnimap-open-connection): Add starttls support.
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index e9d4e21..395f47d 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -585,18 +585,20 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
               (nth 1 gnus-command-method)))))
 
 (defun gnus-request-update-info (info gnus-command-method)
-  (when (stringp gnus-command-method)
-    (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
-  (funcall (gnus-get-function gnus-command-method 'request-update-info)
-          (gnus-group-real-name (gnus-info-group info)) info
-          (nth 1 gnus-command-method)))
+  (when (gnus-check-backend-function
+        'request-update-info (car gnus-command-method))
+    (when (stringp gnus-command-method)
+      (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
+    (funcall (gnus-get-function gnus-command-method 'request-update-info)
+            (gnus-group-real-name (gnus-info-group info)) info
+            (nth 1 gnus-command-method))))
 
 (defsubst gnus-request-marks (info gnus-command-method)
   "Request that GNUS-COMMAND-METHOD update INFO."
   (when (stringp gnus-command-method)
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
   (when (gnus-check-backend-function
-        'request-update-info (car gnus-command-method))
+        'request-marks (car gnus-command-method))
     (let ((group (gnus-info-group info)))
       (and (funcall (gnus-get-function gnus-command-method
                                       'request-update-info)