From d024b579cdac8ee7b173885af84259392dfdf247 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 11 Feb 2014 21:48:39 -0800 Subject: [PATCH] * nnmail.el (nnmail-expand-newtext): Further sub-match fixups (bug#12375). --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnmail.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 231a68035c7..79ba8126c21 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2014-02-12 Lars Ingebrigtsen + + * nnmail.el (nnmail-expand-newtext): Further sub-match fixups + (bug#12375). + 2014-02-09 Lars Ingebrigtsen * message.el (message-tab): Mention what happens on normal tabs diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 6c6025b3fd2..d7af9d84406 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1542,6 +1542,9 @@ See the documentation for the variable `nnmail-split-fancy' for details." (if (= c ?\&) (setq N 0) (setq N (- c ?0))) + ;; We wrapped the searches in parentheses, so we have to + ;; add some parentheses here... + (setq N (+ N 3)) (when (match-beginning N) (push (if nnmail-split-lowercase-expanded (downcase (buffer-substring (match-beginning N) -- 2.39.2