From: keiichi <keiichi>
Date: Thu, 19 Aug 1999 04:09:41 +0000 (+0000)
Subject: (nnmail-split-it): Match whole word for getting group name with `\N'.
X-Git-Tag: nana-gnus-6_13_5~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=61f5f91242d7b5a061e11ef4a1733bb19b88907a;p=elisp%2Fgnus.git-

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

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 2a2d476..6c0fc78 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1384,10 +1384,13 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	;; correct match positions.
 	(goto-char (match-end 0))
 	(let ((value (nth 1 split)))
-	  (re-search-backward (if (symbolp value)
-				  (cdr (assq value nnmail-split-abbrev-alist))
-				value)
-			      (match-end 1)))
+	  (re-search-backward
+	   (concat "\\<"
+		   (if (symbolp value)
+		       (cdr (assq value nnmail-split-abbrev-alist))
+		     value)
+		   "\\>")
+	   (match-end 1)))
 	(nnmail-split-it (nth 2 split))))
 
      ;; Not in cache, compute a regexp for the field/value pair.