Oops: misplaced close paren, and groups may not always contain a meth…

…od prefix.
marktriggs · Jun 7, 2011 · d29fee8 · d29fee8
1 parent 6dbcdf3
commit d29fee8
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/contrib/mailindex.el b/contrib/mailindex.el
@@ -109,13 +109,15 @@ Otherwise, just search for the subset.")
                            (push (cons group-name
                                        (mailindex-to-nov article-number
                                                          headers))
-                                 mailindex-headers))
-                         (vector group-name article-number score))
+                                 mailindex-headers)
+                           (vector group-name article-number score)))
                        (car (ignore-errors (read-from-string result))))))))
 
 
 (defun mailindex-retrieve-headers (artlist artgroup)
-  (destructuring-bind (method group) (split-string artgroup ":")
+  (destructuring-bind (method group) (if (string-match ":" artgroup)
+                                         (split-string artgroup ":")
+                                       (list nil artgroup))
     (with-current-buffer nntp-server-buffer
       (erase-buffer)
       (loop for header in mailindex-headers