From: keiichi <keiichi>
Date: Mon, 17 Sep 2001 00:54:59 +0000 (+0000)
Subject: (gnus-bbdb/insert-address-regexp): `regexp-quote' for each addresses.
X-Git-Tag: nana-gnus-7_1_0_26~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=da3fdcefea713b3515ea72bd60500716931bbe7b;p=elisp%2Fgnus.git-

(gnus-bbdb/insert-address-regexp): `regexp-quote' for each addresses.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index eed92b3..c2647f5 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -211,10 +211,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))