From: Lars Ingebrigtsen Date: Wed, 12 Feb 2014 05:48:39 +0000 (-0800) Subject: * nnmail.el (nnmail-expand-newtext): Further sub-match fixups (bug#12375). X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~22 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d024b579cdac8ee7b173885af84259392dfdf247;p=emacs.git * nnmail.el (nnmail-expand-newtext): Further sub-match fixups (bug#12375). --- 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)