;;; Copyright (C) 1995 MINOURA Makoto
;;;
;;; Author: MINOURA Makoto <minoura@leo.bekkoame.or.jp>
+;;; Version:
+;;; $Id: mu-register.el,v 1.2 1996-01-15 16:08:10 morioka Exp $
;;;
;;; This file is not part of tm (Tools for MIME).
;;;
;;
-;; from \e$B$+$i0zMQL>$rF@$k\e(B
+;; get citation-name from From field
(defsubst mu-register/get-citation-name (from)
(cdr (assoc from mu-register/citation-name-alist)))
;;
-;; \e$B0zMQL>$rEPO?$9$k\e(B
+;; register citation-name
(defun mu-register/add-citation-name (name from)
(let* ((elt (assoc from mu-register/citation-name-alist)))
(if elt
))
;;
-;; \e$B<B:]$K8F$S=P$5$l$k4X?t\e(B
+;; main function
(defun mu-register/citation-name ()
(let* ((from
(rfc822/address-string
return))
;;
-;; \e$B%U%!%$%k$KJ]B8\e(B
+;; save to file
(defun mu-register/save-to-file ()
(let* ((filename mu-register/registration-file)
(buffer (get-buffer-create " *mu-register*")))