From 2f20bd31ffaee4d09454ab754e9bbcc437a97b52 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 19 Jul 1999 13:11:06 +0000 Subject: [PATCH] (mu-bbdb-history): New variable. (mu-bbdb-get-prefix-register-method): Use it instead of `mu-cite/minibuffer-history'. (mu-bbdb-get-prefix-register-verbose-method): Likewise. --- mu-bbdb.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/mu-bbdb.el b/mu-bbdb.el index 672db40..71a2d0b 100644 --- a/mu-bbdb.el +++ b/mu-bbdb.el @@ -34,7 +34,6 @@ ;; (require 'mu-bbdb) ;; ))) - ;;; Code: (eval-when-compile (require 'cl)) @@ -50,7 +49,7 @@ ;;; @ obsolete functions ;;; -;; This part will be abolished in the future. +;; This part will be abolished in the near future. (eval-and-compile (defconst mu-bbdb-obsolete-function-alist @@ -83,6 +82,8 @@ :type 'hook :group 'mu-bbdb) +(defvar mu-bbdb-history nil) + ;;; @@ prefix and registration using BBDB ;;; @@ -116,7 +117,7 @@ (read-string "Citation name? " (or (mu-cite-get-value 'x-attribution) (mu-cite-get-value 'full-name)) - 'mu-cite-minibuffer-history))) + 'mu-bbdb-history))) (if (and (not (string-equal return "")) (y-or-n-p (format "Register \"%s\"? " return))) (mu-bbdb-set-attr return addr)) @@ -129,7 +130,7 @@ (or attr (mu-cite-get-value 'x-attribution) (mu-cite-get-value 'full-name)) - 'mu-cite-minibuffer-history))) + 'mu-bbdb-history))) (if (and (not (string-equal return "")) (not (string-equal return attr)) (y-or-n-p (format "Register \"%s\"? " return))) @@ -148,7 +149,7 @@ (function mu-bbdb-get-prefix-register-verbose-method)))))) - + ;;; @ end ;;; -- 1.7.10.4