From: yamaoka <yamaoka>
Date: Mon, 2 Aug 1999 02:01:09 +0000 (+0000)
Subject: (nnmail-split-it): Don't compare ".*" and VALUE of each element of
X-Git-Tag: diverging-point-to-t-gnus-6_12-and-t-gnus-6_13-~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25cfd2a8bb7825d0c99ec3560c383a1dfdad62aa;p=elisp%2Fgnus.git-

(nnmail-split-it): Don't compare ".*" and VALUE of each element of
`nnmail-split-fancy' if the length of VALUE is less than 2.
---

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 2f07a42..e742727 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1172,7 +1172,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	     partial regexp)
 	(if (symbolp value)
 	    (setq value (cdr (assq value nnmail-split-abbrev-alist))))
-	(if (string= ".*" (substring value 0 2))
+	(if (and (>= (length value) 2)
+		 (string= ".*" (substring value 0 2)))
 	    (setq value (substring value 2)
 		  partial ""))
 	(setq regexp (concat "^\\(\\("