diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 548b6ec..3caa58e 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -416,7 +416,8 @@ not done by default on servers that doesn't support that command.")
     (when (car result)
       (dolist (line (cdr result))
 	(when (and (equal (car line) "LIST")
-		   (not (string-match "noselect" (caadr line))))
+		   (not (and (caadr line)
+			     (string-match "noselect" (caadr line)))))
 	  (push (car (last line)) groups)))
       (nreverse groups))))