From: morioka <morioka>
Date: Fri, 13 Feb 1998 10:14:03 +0000 (+0000)
Subject: Delete because it is not used.
X-Git-Tag: mu-cite-199811302358~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=701786822577aa8a4faa8b143737cdbcf2e256d6;p=elisp%2Fmu-cite.git

Delete because it is not used.
---

diff --git a/mu-register.el b/mu-register.el
deleted file mode 100644
index fdbc2fe..0000000
--- a/mu-register.el
+++ /dev/null
@@ -1,178 +0,0 @@
-;;;
-;;; mu-register.el --- `register' function for mu-cite.
-;;;
-;;; Copyright (C) 1995 MINOURA Makoto
-;;;
-;;; Author: MINOURA Makoto <minoura@leo.bekkoame.or.jp>
-;;;         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.12 1996-01-17 05:35:06 morioka Exp $
-;;;
-;;; This file is part of tl (Tiny Library).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with This program.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;;
-;;; - How to install.
-;;;   1. bytecompile this file and copy it to the apropriate directory.
-;;;   2. put the following lines to your .emacs.
-;;;     (add-hook 'mu-cite-load-hook
-;;;                (function
-;;;                 (lambda ()
-;;;                   (require 'mu-register))))
-;;;   3. you can use the keyword `registered' in your
-;;;    mu-cite/top-form and mu-cite/prefix-form, for example:
-;;;     (setq mu-cite/prefix-format (list 'registered "> "))
-;;;
-;;; - ChangeLog.
-;;;   Wed Dec 27 14:28:17 1995  MINOURA Makoto <minoura@leo.bekkoame.or.jp>
-;;;
-;;;	* Written.
-;;;
-
-;;; Code:
-
-(require 'mu-cite)
-
-
-;;; @ variables
-;;;
-
-(defvar mu-register/registration-file
-  (expand-file-name "~/.mu-register")
-  "*The name of the user environment file for mu-register.")
-
-(defvar mu-register/registration-symbol 'mu-register/citation-name-alist)
-
-(defvar mu-register/citation-name-alist nil)
-(load mu-register/registration-file t t t)
-(or (eq 'mu-register/citation-name-alist mu-register/registration-symbol)
-    (setq mu-register/citation-name-alist
-	  (symbol-value mu-register/registration-symbol))
-    )
-(defvar mu-register/minibuffer-history nil)
-
-
-;;; @ database accessers
-;;;
-
-;; get citation-name from the database
-(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)
-  (let* ((elt (assoc from mu-register/citation-name-alist)))
-    (if elt
-	(setq mu-register/citation-name-alist
-	      (delq elt mu-register/citation-name-alist)))
-    (setq elt (cons from name))
-    (setq mu-register/citation-name-alist
-	  (cons elt
-		mu-register/citation-name-alist))
-    (mu-register/save-to-file)
-    ))
-
-;; 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
-	   (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)
-	(setq return1 fullname))
-    (setq return
-	  (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))
-
-
-
-;;; @ Installation
-;;;
-
-(set-alist 'mu-cite/default-methods-alist
-	   'prefix-register
-	   (function mu-register/citation-name-quietly))
-(set-alist 'mu-cite/default-methods-alist
-	   'prefix-register-verbose
-	   (function mu-register/citation-name))
-
-
-;;; @ end
-;;;
-
-(provide 'mu-register)
-
-;;; mu-register.el ends here