🚀 go-pugleaf

In article <TANAKA.92Feb4115530@sarah.ling.flab.fujitsu.co.jp>
tanaka@flab.fujitsu.co.jp (TANAKA Hiroshi) writes:
   In article <TOSHIKI.92Feb3133641@amadei.sm.sony.co.jp>
	   toshiki@sm.sony.co.jp (Toshiki Kikuchi) writes:

    >MH mail -> UNIX mail $@$X$NJQ49$K$D$$$F$N>pJs$r$*;}$A$NJ}$O$$(J
    >$@$^$;$s$+(J?

   $@$I$3$+$K%D!<%k$,$"$C$?$h$&$J5$$,(J$@$7$^$9$,!"8+$D$+$j$^$;$s!#(J

$@8fK\?M$,$=$&8@$o$l$k$N$J$i!"0JA0EDCf$5$s$,%K%e!<%9$KEj9F$5$l$?(J($@$H;W$&(J)$@$=$N(J
$@%D!<%k$rEj9F$7$^$7$g$&!#(J ;-)

---
$@4]@n!!0l;V(J	(kazushi@kubota.co.jp, Kubota Computer Inc.)

;;
;; from tanaka@flab.fujitsu.co.jp
(defun mh-write-msg-to-mail (msg file)
  "Append MESSAGE to the end of a unix mail file named FILE."
  (interactive (list (mh-get-msg-num t)
		     (expand-file-name
		      (read-file-name "Save message in file: "
				      (if (eq 'write (car mh-last-destination))
					  (cdr mh-last-destination)
					  "")))))
  (setq mh-last-destination (cons 'write file))
  (let ((file-name (mh-msg-filename msg)) from)
    (save-excursion
      (set-buffer (get-buffer-create " *mh-temp*"))
      (erase-buffer)
      (insert-file-contents file-name)
      (setq from (or (mail-strip-quoted-names (mail-fetch-field "from"))
		     "unknown"))
      (goto-char (point-min))
      (if (file-exists-p file) (insert "\n"))
      (insert "From " from
	      " " (current-time-string) "\n")
      (append-to-file (point-min) (point-max) file))))