bbdb-mail-abbrev-expand-hook): honor the

	pop-up settings, e.g. bbdb-pop-up-target-lines

1 files changed, 8 insertions, 7 deletions

diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el
index 8e8096d..25fe5db 100644
--- a/lisp/bbdb-com.el
+++ b/lisp/bbdb-com.el
@@ -2233,18 +2233,19 @@ of all of those people."
         (fset alias (list 'lambda '()
                           (list 'bbdb-mail-abbrev-expand-hook
                                 (list 'quote
-                      (mapcar (lambda (x)
-                        (car (bbdb-record-net x)))
+                                      (mapcar (lambda (x)
+                                                (car (bbdb-record-net x)))
                                               (cdr (car result))))))))
       (setq result (cdr result)))))
 
 (defun bbdb-mail-abbrev-expand-hook (records)
   (mail-abbrev-expand-hook)
-  (if bbdb-completion-display-record
-      (let ((bbdb-gag-messages t))
-        (bbdb-display-records-1
-         (mapcar (lambda (x) (bbdb-search-simple nil x)) records)
-         t))))
+  (when bbdb-completion-display-record
+    (bbdb-pop-up-bbdb-buffer bbdb-use-pop-up)
+    (let ((bbdb-gag-messages t))
+      (bbdb-display-records-1
+       (mapcar (lambda (x) (bbdb-search-simple nil x)) records)
+       t))))
 
 (defun bbdb-get-mail-aliases ()
   "Return a list of mail aliases used in the BBDB.