From: yamaoka <yamaoka>
Date: Mon, 17 Sep 2001 02:04:52 +0000 (+0000)
Subject: Synch with Nana-gnus 7.1.0.26.
X-Git-Tag: t-gnus-6_15_3-06~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e21dfe1824c078cf06b101a0b75412cb10abd16;p=elisp%2Fgnus.git-

Synch with Nana-gnus 7.1.0.26.
---

diff --git a/ChangeLog b/ChangeLog
index d2706c3..1d49001 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-17  Keiichi Suzuki  <keiichi@nanap.org>
+
+	* lisp/gnus-bbdb.el (gnus-bbdb/insert-address-regexp):
+	`regexp-quote' for each addresses.
+
 2001-09-16  Katsuhiro Hermit Endo  <hermit@koka-in.org>
 
 	* gnus-ja.texi (Drafts): Fix typo.
diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 2388b3c..55232e3 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -196,10 +196,10 @@ BBDB-FIELD values is returned.  Otherwise, GROUP is returned."
 	 (unless (eq (point) (point-min))
 	   (insert "\\|"))
 	 (let ((addr (nth 1 address)))
-	   (insert (std11-addr-to-string
-		    (if (eq (car addr) 'phrase-route-addr)
-			(nth 2 addr)
-		      (cdr addr))))))))
+	   (insert (regexp-quote (std11-addr-to-string
+				  (if (eq (car addr) 'phrase-route-addr)
+				      (nth 2 addr)
+				    (cdr addr)))))))))
 
 (defun gnus-bbdb/split-mail-1 (address-regexp bbdb-field regexp group)
   (let ((records (bbdb-search (bbdb-records) nil nil address-regexp))