X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-registry.el;h=35347ae4e951103a4e25186ae154bb786393f08b;hb=8145852ab9b9e2f1ceea9b433fc6fface47cf6fd;hp=0acdb28e42246d9c70bbce58efc10acfbe83e4f9;hpb=a867412adbc36b5303743ccd84e4efa6e39b5503;p=gnus

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 0acdb28e4..35347ae4e 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -369,9 +369,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 	     nnmail-split-fancy-with-parent-ignore-groups
 	   (list nnmail-split-fancy-with-parent-ignore-groups)))
 	references res)
-    (if refstr
+    ;; the references string must be valid and parse to valid references
+    (if (and refstr (gnus-extract-references refstr))
 	(progn
-	  (setq references (nreverse (gnus-split-references refstr)))
+	  (setq references (nreverse (gnus-extract-references refstr)))
 	  (mapcar (lambda (x)
 		    (setq res (or (gnus-registry-fetch-group x) res))
 		    (when (or (gnus-registry-grep-in-list