From: yamaoka <yamaoka>
Date: Fri, 20 Aug 1999 00:26:32 +0000 (+0000)
Subject: (nnmail-split-it): Match whole word for getting group name with `\N'.
X-Git-Tag: t-gnus-6_13_0-08~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c371be78799e09a740dd95419a463c3d1c4440ab;p=elisp%2Fgnus.git-

(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 afd852a..92a9191 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1160,7 +1160,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))))))