*** empty log message ***

[gnus] / lisp / gnus-int.el

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 027adb4..8953df2 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -192,8 +192,9 @@ If it is down, start it up (again)."
   "Request all new groups since DATE from METHOD."
   (when (stringp method)
     (setq method (gnus-server-to-method method)))
-  (funcall (gnus-get-function method 'request-newgroups)
-          date (nth 1 method)))
+  (let ((func (gnus-get-function method 'request-newgroups t)))
+    (when func
+      (funcall func date (nth 1 method)))))
 
 (defun gnus-server-opened (method)
   "Check whether a connection to METHOD has been opened."
@@ -401,6 +402,16 @@ If GROUP is nil, all groups on METHOD are scanned."
     (when (fboundp func)
       (funcall func))))
 
+(defun gnus-remove-denial (method)
+  (when (stringp method)
+    (setq method (gnus-server-to-method method)))
+  (let* ((elem (assoc method gnus-opened-servers))
+        (status (cadr elem)))
+    ;; If this hasn't been opened before, we add it to the list.
+    (when (eq status 'denied)
+      ;; Set the status of this server.
+      (setcar (cdr elem) 'closed))))
+
 (provide 'gnus-int)
 
 ;;; gnus-int.el ends here