* nnmail.el (nnmail-expand-newtext): Further sub-match fixups (bug#12375).

2 files changed, 8 insertions, 0 deletions

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  <larsi@gnus.org>
+
+        * nnmail.el (nnmail-expand-newtext): Further sub-match fixups
+        (bug#12375).
+
 2014-02-09  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * 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)