Comments were translated from Japanese to English.
authormorioka <morioka>
Mon, 15 Jan 1996 16:08:10 +0000 (16:08 +0000)
committermorioka <morioka>
Mon, 15 Jan 1996 16:08:10 +0000 (16:08 +0000)
mu-register.el

index e459fb6..defa3ae 100644 (file)
@@ -4,6 +4,8 @@
 ;;; 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
@@ -72,7 +74,7 @@
     ))
 
 ;;
-;; \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*")))