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)