From: yamaoka <yamaoka>
Date: Mon, 19 Jul 1999 13:11:06 +0000 (+0000)
Subject: (mu-bbdb-history): New variable.
X-Git-Tag: mu-cite-8_0~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2f20bd31ffaee4d09454ab754e9bbcc437a97b52;p=elisp%2Fmu-cite.git

(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.
---

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