Synch with Nana-gnus 7.1.0.26.

diff --git a/ChangeLog b/ChangeLog
index d2706c3..1d49001 100644 (file)
--- 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 (file)
--- 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))