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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 231a68035c7e814e5c7645388d21ff818e0843bc..79ba8126c2161afbc0aeeae47104a686b9076f69 100644 (file)
--- 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 6c6025b3fd2cd72578b9c1e372f20b8d1e8ac9e2..d7af9d84406b5427cec41bbb499469da587dbdad 100644 (file)
--- 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)