X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=2934ccdec2ad6e32e91569c91a4d5a029f4444f8;hb=ebc4b20fe8aaacb1c677f85d02e6a25b4de336c7;hp=bad3ffe67a53131aaef8d19b00e8fbf4ab40a1b3;hpb=dd10d5ed3c36e476c024ec3c5410cbb4f7dea18c;p=gnus

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index bad3ffe67..2934ccdec 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -342,7 +342,7 @@ hierarchy in its entirety."
   :type 'boolean)
 
 (defcustom gnus-auto-subscribed-groups
-  "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir"
+  "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir\\|^nnimap"
   "*All new groups that match this regexp will be subscribed automatically.
 Note that this variable only deals with new groups.  It has no effect
 whatsoever on old groups.
@@ -1986,7 +1986,9 @@ If SCAN, request a scan of that group as well."
       (while (setq method (pop methods))
 	;; Only do each method once, in case the methods appear more
 	;; than once in this list.
-	(unless (member method methods)
+	(when (and (not (member method methods))
+		   ;; Check whether the backend exists.
+		   (ignore-errors (gnus-get-function method 'open-server)))
 	  (if (or debug-on-error debug-on-quit)
 	      (gnus-read-active-file-1 method force)
 	    (condition-case ()