From 25cfd2a8bb7825d0c99ec3560c383a1dfdad62aa Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 2 Aug 1999 02:01:09 +0000 Subject: [PATCH] (nnmail-split-it): Don't compare ".*" and VALUE of each element of `nnmail-split-fancy' if the length of VALUE is less than 2. --- lisp/nnmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 "^\\(\\(" -- 1.7.10.4