From: yamaoka <yamaoka>
Date: Mon, 2 Aug 1999 02:04:51 +0000 (+0000)
Subject: (nnmail-split-it): Don't compare ".*" and VALUE of each element of
X-Git-Tag: et-gnus-6_11_08-06~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=37aa0a04ff82e20ce1892f866ebc375cd03212bc;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 7d98d8c..afd852a 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1173,7 +1173,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 "^\\(\\("