X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-bbdb.el;h=55232e36a775958936880841b079549460528ec1;hb=refs%2Ftags%2Ft-gnus-6_15_3-06-last-;hp=2388b3c443531fcf8509f4157c577df7cde803b7;hpb=abd6595c6fec5cc471913799aa136cf7ff6e7aa5;p=elisp%2Fgnus.git-

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))