From: morioka Date: Mon, 15 Jan 1996 16:08:10 +0000 (+0000) Subject: Comments were translated from Japanese to English. X-Git-Tag: XEmacs-20_3-b27-viet~134 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6264a2d8557b93e2c3c0d9b838d855c6abf28087;p=elisp%2Fmu-cite.git Comments were translated from Japanese to English. --- diff --git a/mu-register.el b/mu-register.el index e459fb6..defa3ae 100644 --- a/mu-register.el +++ b/mu-register.el @@ -4,6 +4,8 @@ ;;; Copyright (C) 1995 MINOURA Makoto ;;; ;;; Author: MINOURA Makoto +;;; 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). ;;; @@ -53,12 +55,12 @@ ;; -;; from から引用名を得る +;; get citation-name from From field (defsubst mu-register/get-citation-name (from) (cdr (assoc from mu-register/citation-name-alist))) ;; -;; 引用名を登録する +;; 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 @@ )) ;; -;; 実際に呼び出される関数 +;; main function (defun mu-register/citation-name () (let* ((from (rfc822/address-string @@ -104,7 +106,7 @@ return)) ;; -;; ファイルに保存 +;; save to file (defun mu-register/save-to-file () (let* ((filename mu-register/registration-file) (buffer (get-buffer-create " *mu-register*")))