From: morioka <morioka>
Date: Mon, 19 Jul 1999 11:19:40 +0000 (+0000)
Subject: (mu-bbdb-history): New variable.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=91d478a0b84d1747a30449ef23bbd816bb58802d;p=elisp%2Fmu-cite.git

(mu-bbdb-history): New variable.
(mu-cite/get-bbdb-prefix-method): Use `mu-cite-get-value' instead of
`mu-cite/get-value'.
(mu-cite/get-bbdb-prefix-register-method): Likewise; use
`mu-bbdb-history' instead of `mu-cite/minibuffer-history'.
(mu-cite/get-bbdb-prefix-register-verbose-method): Likewise.
---

diff --git a/mu-bbdb.el b/mu-bbdb.el
index d8c5844..1a8b446 100644
--- a/mu-bbdb.el
+++ b/mu-bbdb.el
@@ -43,11 +43,14 @@
 (defvar mu-bbdb-load-hook nil
   "*List of functions called after mu-bbdb is loaded.")
 
-;;; @@ prefix and registration using BBDB
+(defvar mu-bbdb-history nil)
+
+
+;;; @ prefix and registration using BBDB
 ;;;
 
 (defun mu-cite/get-bbdb-prefix-method ()
-  (or (mu-cite/get-bbdb-attr (mu-cite/get-value 'address))
+  (or (mu-cite/get-bbdb-attr (mu-cite-get-value 'address))
       ">")
   )
 
@@ -73,13 +76,13 @@
       )))
 
 (defun mu-cite/get-bbdb-prefix-register-method ()
-  (let ((addr (mu-cite/get-value 'address)))
+  (let ((addr (mu-cite-get-value 'address)))
     (or (mu-cite/get-bbdb-attr addr)
     	(let ((return
 	       (read-string "Citation name? "
-			    (or (mu-cite/get-value 'x-attribution)
-				(mu-cite/get-value 'full-name))
-			    'mu-cite/minibuffer-history)
+			    (or (mu-cite-get-value 'x-attribution)
+				(mu-cite-get-value 'full-name))
+			    'mu-bbdb-history)
 	       ))
 	  (if (and (not (string-equal return ""))
                    (y-or-n-p (format "Register \"%s\"? " return)))
@@ -88,13 +91,13 @@
 	  return))))
 
 (defun mu-cite/get-bbdb-prefix-register-verbose-method ()
-  (let* ((addr (mu-cite/get-value 'address))
+  (let* ((addr (mu-cite-get-value 'address))
          (attr (mu-cite/get-bbdb-attr addr))
 	 (return (read-string "Citation name? "
 			      (or attr
-				  (mu-cite/get-value 'x-attribution)
-				  (mu-cite/get-value 'full-name))
-			      'mu-cite/minibuffer-history))
+				  (mu-cite-get-value 'x-attribution)
+				  (mu-cite-get-value 'full-name))
+			      'mu-bbdb-history))
 	 )
     (if (and (not (string-equal return ""))
              (not (string-equal return attr))