From 8e21dfe1824c078cf06b101a0b75412cb10abd16 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 17 Sep 2001 02:04:52 +0000 Subject: [PATCH] Synch with Nana-gnus 7.1.0.26. --- ChangeLog | 5 +++++ lisp/gnus-bbdb.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index d2706c3..1d49001 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-09-17 Keiichi Suzuki + + * lisp/gnus-bbdb.el (gnus-bbdb/insert-address-regexp): + `regexp-quote' for each addresses. + 2001-09-16 Katsuhiro Hermit Endo * 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)) -- 1.7.10.4