From 6227467f0b9ca559b711c7a0e744cf97519ac30f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 11 Feb 2014 21:51:37 -0800 Subject: [PATCH] Fix the last patch to work from non-fancy splits, too --- lisp/gnus/nnmail.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index d7af9d84406..ac4b638fda0 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1397,7 +1397,7 @@ See the documentation for the variable `nnmail-split-fancy' for details." ((stringp split) (when nnmail-split-tracing (push split nnmail-split-trace)) - (list (nnmail-expand-newtext split))) + (list (nnmail-expand-newtext split t))) ;; Junk the message. ((eq split 'junk) @@ -1517,7 +1517,7 @@ See the documentation for the variable `nnmail-split-fancy' for details." ;; on the same split, which will find it immediately in the cache. (nnmail-split-it split)))))) -(defun nnmail-expand-newtext (newtext) +(defun nnmail-expand-newtext (newtext &optional fancyp) (let ((len (length newtext)) (pos 0) c expanded beg N did-expand) @@ -1544,7 +1544,8 @@ See the documentation for the variable `nnmail-split-fancy' for details." (setq N (- c ?0))) ;; We wrapped the searches in parentheses, so we have to ;; add some parentheses here... - (setq N (+ N 3)) + (when fancyp + (setq N (+ N 3))) (when (match-beginning N) (push (if nnmail-split-lowercase-expanded (downcase (buffer-substring (match-beginning N) -- 2.39.2