procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the last patch to work from non-fancy splits, too

Browse source
This commit is contained in:
Lars Ingebrigtsen 2014-02-11 21:51:37 -08:00
parent d024b579cd
commit 6227467f0b
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/nnmail.el
View file

@ -1397,7 +1397,7 @@ See the documentation for the variable `nnmail-split-fancy' for details."
((stringp split)
(when nnmail-split-tracing
(push split nnmail-split-trace))
(list (nnmail-expand-newtext split)))
(list (nnmail-expand-newtext split t)))
;; Junk the message.
((eq split 'junk)
@ -1517,7 +1517,7 @@ See the documentation for the variable `nnmail-split-fancy' for details."
;; on the same split, which will find it immediately in the cache.
(nnmail-split-it split))))))
(defun nnmail-expand-newtext (newtext)
(defun nnmail-expand-newtext (newtext &optional fancyp)
(let ((len (length newtext))
(pos 0)
c expanded beg N did-expand)
@ -1544,7 +1544,8 @@ See the documentation for the variable `nnmail-split-fancy' for details."
(setq N (- c ?0)))
;; We wrapped the searches in parentheses, so we have to
;; add some parentheses here...
(setq N (+ N 3))
(when fancyp
(setq N (+ N 3)))
(when (match-beginning N)
(push (if nnmail-split-lowercase-expanded
(downcase (buffer-substring (match-beginning N)