Delete because it is not used.

[elisp/mu-cite.git] / mu-register.el

diff --git a/mu-register.el b/mu-register.el
index 25a10a6..fdbc2fe 100644 (file)
--- a/mu-register.el
+++ b/mu-register.el
@@ -7,7 +7,7 @@
 ;;;         modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/12/27 by MINOURA Makoto <minoura@leo.bekkoame.or.jp>
 ;;; Version:
-;;;    $Id: mu-register.el,v 1.5 1996-01-15 20:04:52 morioka Exp $
+;;;    $Id: mu-register.el,v 1.12 1996-01-17 05:35:06 morioka Exp $
 ;;;
 ;;; This file is part of tl (Tiny Library).
 ;;;
@@ -46,6 +46,9 @@
 \f
 ;;; Code:
 
+(require 'mu-cite)
+
+
 ;;; @ variables
 ;;;
 
@@ -64,12 +67,12 @@
 (defvar mu-register/minibuffer-history nil)
 
 
-;;; @ functions
+;;; @ database accessers
 ;;;
 
 ;; get citation-name from the database
-(defsubst mu-register/get-citation-name (from)
-  (cdr (assoc from mu-register/citation-name-alist)))
+(defmacro mu-register/get-citation-name (from)
+  (` (cdr (assoc (, from) mu-register/citation-name-alist))))
 
 ;; register citation-name to the database
 (defun mu-register/add-citation-name (name from)
@@ -84,7 +87,28 @@
     (mu-register/save-to-file)
     ))
 
-;; main function
+;; save to file
+(defun mu-register/save-to-file ()
+  (let* ((filename mu-register/registration-file)
+        (buffer (get-buffer-create " *mu-register*")))
+    (save-excursion
+      (set-buffer buffer)
+      (setq buffer-file-name filename)
+      (erase-buffer)
+      (insert ";; generated automatically by mu-register.\n")
+      (insert (format "(setq %s
+ '(" mu-register/registration-symbol))
+      (insert (mapconcat
+              (function prin1-to-string)
+              mu-register/citation-name-alist "\n   "))
+      (insert "\n   ))\n")
+      (save-buffer))
+    (kill-buffer buffer)))
+
+
+;;; @ main functions
+;;;
+
 (defun mu-register/citation-name ()
   (let* ((from
          (rfc822/address-string
@@ -98,46 +122,51 @@
     (if (null return1)
        (setq return1 fullname))
     (setq return
-         (read-string "Citation name? "
-                      return1
-                      'mu-register/minibuffer-history))
-    (if (not (string-equal return return1))
-       (let ((ans)
-             (cursor-in-echo-area t))
-         (while (null ans)
-           (message (format "Register \"%s\" (y/n)? " return))
-           (setq ans (read-event))
-           (if (not (or (eq ans ?y)
-                        (eq ans ?n)))
-               (setq ans nil)))
-         (message "")
-         (if (eq ans ?y)
-             (mu-register/add-citation-name return from))))
+         (tl:read-string "Citation name? "
+                         return1
+                         'mu-register/minibuffer-history))
+    (if (and (not (string-equal return return1))
+            (y-or-n-p (format "Register \"%s\"? " return))
+            )
+       (mu-register/add-citation-name return from)
+      )
+    return))
+
+(defun mu-register/citation-name-quietly ()
+  (let* ((from
+         (rfc822/address-string
+          (car (rfc822/parse-address
+                (rfc822/lexical-analyze
+                 (mu-cite/get-value 'from))))))
+        (fullname (mu-cite/get-value 'full-name))
+        (return1
+         (mu-register/get-citation-name from))
+        return)
+    (if (null return1)
+       (progn
+         (setq return
+               (tl:read-string "Citation name? "
+                               fullname
+                               'mu-register/minibuffer-history))
+         (if (and (not (string-equal return return1))
+                  (y-or-n-p (format "Register \"%s\"? " return))
+                  )
+             (mu-register/add-citation-name return from)
+           ))
+      (setq return return1)
+      )
     return))
 
-;; save to file
-(defun mu-register/save-to-file ()
-  (let* ((filename mu-register/registration-file)
-        (buffer (get-buffer-create " *mu-register*")))
-    (save-excursion
-      (set-buffer buffer)
-      (setq buffer-file-name filename)
-      (erase-buffer)
-      (insert ";; generated automatically by mu-register.\n")
-      (insert (format "(setq %s
- '" mu-register/registration-symbol))
-      (insert (prin1-to-string mu-register/citation-name-alist))
-      (insert "\n)\n")
-      (save-buffer))
-    (kill-buffer buffer)))
 \f
 
 ;;; @ Installation
 ;;;
 
-(require 'mu-cite)
 (set-alist 'mu-cite/default-methods-alist
-          'registered 
+          'prefix-register
+          (function mu-register/citation-name-quietly))
+(set-alist 'mu-cite/default-methods-alist
+          'prefix-register-verbose
           (function mu-register/citation-name))