🚀 go-pugleaf

$@$&!<$s!#(Jmail alias $@$r(J$@E83+$7$?8e(J, $@3NG'$7$F$b(J, 

        $@!V4V0c$($k$b$N$O4V0c$($k!#!W(J

$@$H$$$&?M$,B?$$$h$&$G$9!#(J^_^;

$@KM$O(J, Johan Vromans <jv@mh.nl> $@$5$s$N(J forms.el $@$rMQ$$$F(J address $@D"(J
$@$r:n$C$F$$$?$N$G(J, $@$D$$$G$K$=$3$+$i(J mail mode $@$K$$$/$h$&$K$7$^$7$?!#(J

forms-find-file $@$G(J address.form $@$r8F$S$@$7(J($@%G!<%?$O(J address.dat),
$@$=$3$+$i(J `m' $@$G(J mail $@$r5/F0$7$^$9!#(J 

# $@$^$?0UL#$b$J$/(J code $@$r$D$1$k$%(J!
--
GniiBE
$@;0I)Am9g8&5f=j(J
=================== FILE: address.form =========
;       -*- Emacs-Lisp -*-

(setq forms-file "address.dat")

(setq forms-number-of-fields
      (forms-enumerate
       '(address-address
         address-name-in-english
         address-name-in-japanese
         address-date
         address-organisation
         address-remarks)))

(defun forms-new-record-filter (the-record)
  "Form a new record with some defaults."
  (aset the-record address-date (current-time-string))
  the-record
)

(setq forms-format-list
     (list
       "====== E-mail Address Database ======\n\n"
       "E-mail: " address-address
       "\n\n"
       "Name:   " address-name-in-english
       "\n\n"
       "$@L>A0(J:   " address-name-in-japanese
       "\n\n"
       "Date:   " address-date
       "\n\n"
       "ORG:    " address-organisation
       "\n\n-- Remarks --\n\n"
       address-remarks
     ))

(setq forms-read-only t)
(setq forms-mode-hooks (function
                        (lambda ()
                          (local-set-key "m" 'address-mail))))
(defun address-mail (subject)
  "invoke mail mode with To: field of this address."
  (interactive "sSubject: ")
  (let ((to (car forms--the-record-list)))
    (mail nil to subject)))

======================== address.dat $@$NNc(J =================
gniibe@mri.co.jp	NIIBE Yutaka	$@?7It(J $@M5(J	Mon Mar 16 10:12:55 1992	$@;0I)Am9g8&5f=j(J	GniiBE