Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!kudpc!hakata!kyu-cs!lab!ntt-twins!nttslb!cabbage
From: =?ISO-2022-JP?B?GyRAJCokZCRCGyhK?=  <cabbage@nttslb.ntt.jp>
Subject: Re: [Q] rmail -> mh-e
In-Reply-To: tomimoto@qchem.kuchem.kyoto-u.ac.jp's message of Mon, 8 Nov 1993 08:07:49 GMT
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <CG6HHM.HJJ@nttslb.ntt.jp>
Sender: cabbage@nttslb.ntt.jp (Masami Ueno)
Reply-To: Masami UENO <cabbage@nttslb.ntt.jp>
Organization: NTT Software Labs.
References: <TOMIMOTO.93Nov8170749@ryoko.qchem.kuchem.kyoto-u.ac.jp>
Mime-Version: 1.0
Distribution: fj
Date: Mon, 8 Nov 1993 14:56:09 GMT
Lines: 62
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4111
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4111&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B$3$s$K$A$o(B $B>eLn@5L&!w#N#T#T$H?=$7$^$9(B

In article <TOMIMOTO.93Nov8170749@ryoko.qchem.kuchem.kyoto-u.ac.jp> 
tomimoto@qchem.kuchem.kyoto-u.ac.jp (Masaki Tomimoto) writes:
 |$B<B$O!"$$$m$$$mD4$Y$^$7$?$H$3$m(B'mh-e'$B$O$J$+$J$+$$$$$H$$$&$3$H$K5$$E$-$^(B
 |$B$7$F!"(Brmail$B$+$i(Bmh-e$B$K>h$j49$($h$&$+$J$H9M$($F$$$^$9!#$=$3$G<ALd$J$s$G(B
$B!t(B VM $B$b$J$+$J$+$$$$$G$9$h(B (^^;

 |$B$9$,(Brmail$B$N:n$k%;!<%V%U%!%$%k(B"RMAIL"$B$r$I$N$h$&$K$7$?$i(Bmh-e$B$N(Binbox$B$KJQ(B
 |$B49=PMh$k$N$G$7$g$&$+!)(B [~/mbox]$B$O(B'inc'$B%3%^%s%I$r;H$C$F(B
 |     prompt% inc -file ~/mbox
 |$B$H$9$l$P=PMh$k$N$O$o$+$C$?$N$G$9$,!"(BRMAIL$B$O(Bmbox$B$H$O%U%)!<%^%C%H$,0c$$(B

$B0JA0$?$7$+$3$N%K%e!<%:%0%k!<%W$G$I$J$?$+$,%]%9%H$7$F2<$5$C$?(B
$B$b$N$G(B rmail2mail $B$C$F$$$&$N$,<j85$K$"$j$^$9$N$G8e$m$K$D$1$^(B
$B$9!%(B
$B!t86:n<T$NJ}$N$*L>A0$O<:G0$7$F$7$^$$$^$7$?!%$4$a$s$J$5$$!%(B
RMAIL $B$O%a%C%;!<%8$R$H$D$R$H$D$r(B mbox $B7A<0$K=PNO$9$k4X?t$rMQ(B
$B0U$7$F$$$^$9$,!$$3$l$O$=$N5!G=$rMxMQ$7$F$^$H$a$FJQ49$9$k$b$N(B
$B$G$9!%(B

|       NTT Software Laboratries  Software Architecture Research Group
|____ $B>eLn@5L&(B <cabbage@nttslb.ntt.jp> TEL:03-3740-5714 FAX:03-3740-5748

---- cut --- cut --- cut ---
#!/bin/sh -e

lispfile=/tmp/rmail2mail.$$.el
input=${1-$HOME/RMAIL}
mbox=${2-$HOME/mbox}


if [ $# -ge 3 ]
then
        echo Usage: `basename $0` [ rmailfile [ mboxfile ]]
        exit 2
fi

trap "rm -f $lispfile ; exit 1" 1 2 15

touch $mbox
chmod 600 $mbox

echo '(rmail-input "'$input'")
(rmail-last-message)
(setq last (rmail-what-message))
(rmail-show-message 1)
(while (not (equal (rmail-what-message) last))
  (rmail-output "'$mbox'")
  (rmail-delete-forward nil))
(rmail-output "'$mbox'")
(kill-buffer (current-buffer))
' > $lispfile

emacs -batch -l $lispfile
rm -f $lispfile
--
|       NTT Software Laboratries  Software Architecture Research Group
|____ $B>eLn@5L&(B <cabbage@nttslb.ntt.jp> TEL:03-3740-5714 FAX:03-3740-5748
