From da3fdcefea713b3515ea72bd60500716931bbe7b Mon Sep 17 00:00:00 2001 From: keiichi Date: Mon, 17 Sep 2001 00:54:59 +0000 Subject: [PATCH] (gnus-bbdb/insert-address-regexp): `regexp-quote' for each addresses. --- lisp/gnus-bbdb.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4