(nnmail-split-it): Match whole word for getting group name with `\N'.

;; referred to Nana-gnus 6.13.5.

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index e742727..1bc980d 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1159,7 +1159,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
                    (setq value (cdr (assq value nnmail-split-abbrev-alist))))
                ;; Someone might want to do a \N sub on this match, so get the
                ;; correct match positions.
-               (re-search-backward value start-of-value))
+               (re-search-backward (concat "\\<" value "\\>") start-of-value))
              (dolist (sp (nnmail-split-it (car split-rest)))
                (unless (memq sp split-result)
                  (push sp split-result))))))