Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.u-tokyo.ac.jp!train.ad.jp!sks4ec!tmu04!kyamamur
From: kyamamur@image1.archi.metro-u.ac.jp (YAMAMURA Kazushige)
Subject: Re: RMAIL -> MH-E
In-Reply-To: akihikok@cck.dendai.ac.jp's message of 24 Dec 1994 04:41:46 GMT
Message-ID: <KYAMAMUR.95Jan7142909@image1.archi.metro-u.ac.jp>
Sender: usenet@yamabuki.comp.metro-u.ac.jp
Nntp-Posting-Host: image1.archi.metro-u.ac.jp
Organization: Tokyo Metropolitan University, Tokyo, Japan.
References: <AKIHIKOK.94Dec24134146@cck88.cck.dendai.ac.jp>
Distribution: fj
Date: Sat, 7 Jan 1995 05:29:09 GMT
Lines: 73
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5215
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5215&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.


In article <AKIHIKOK.94Dec24134146@cck88.cck.dendai.ac.jp>
akihikok@cck.dendai.ac.jp (Akihiko Kitamura) writes:

>> $B<B$O!"@hF|(Bmailer$B$r(Brmail$B$+$i(Bmh-e$B$K49$($^$7$?!#(B
>> $B$=$N$?$a!":#$^$G$N(BRMAIL$B7A<0$N%a!<%k$,(Brmbox$B$K;D$C$?$^$^$K$J$C$F$$$^$9!#(B
>> $B$=$3$G!"$3$l$r$I$&$K$+$7$F!"(Bmh-e$B$NJ}$K;}$C$F$$$-$?$$$N$G$9$,!"NI$$J}K!(B
>> $B$O$J$$$G$7$g$&$+!)(B

$BB?J,(B FAQ $B$J$s$G$7$g$&$M!#$3$s$J5-;v$OG!2?$G$7$g$&!#$H$C$F$b4JC1$G$9(B :-)

----- $B$3$3$+$i(B
From: saka@pfu.fujitsu.co.JP (SAKAEDA Ken-ichi)
Newsgroups: fj.editor.emacs
Subject: Re: Which is better mh-e or Rmail (Re: Why Nemacs)
Date: 22 Jan 90 03:19:41 GMT
Distribution: fj
Organization: PFU Limited, Tokyo Japan.
In-reply-to: kawa@yesun.yelab.yaskawa.co.jp's message of 18 Jan 90 16:24:03 GMT

$B1IED!w#P#F#U$G$9(B

In article <KAWA.90Jan19012403@yesun.yelab.yaskawa.co.jp>
kawa@yesun.yelab.yaskawa.co.jp (Mitsunori Kawabe) says:

>$B$5$i$K!"$+$J$j$D$^$C$?(B Rmail $B%U%!%$%k$,#1#08D0J>e$b$"$k$N$G!"(BMH $B7A<0$X(B
>$B$NJQ49$bFs$NB-$rF'$`860x$N0l$D$G$9!#(B

>  $B0J>e$N:n6H$r$d$C$F$/$l$k(BEmacs Lisp$B%W%m%0%i%`$r=q$/$3$H$O!"$=$s$J$KFq(B
>$B$7$/$J$5$=$&$G$9$M!#;d$O%W%m%0%i%`$r=q$+$:$K<j$G$d$j$^$7$?$1$I!#(B

$B$($C$H!$(BRMAIL -> mbox $B$KJQ49$9$k%D!<%k(B rmail2mbox.el $B$r%]%9(B
$B%H$7$^$9!%!!$3$l$O$\$/$,:n$C$?$s$8$c$J$/$F!$<RFb$G;H$o$l$F$$(B
$B$k$b$N$G$9!%(B

$B=PMh>e$,$C$?(B mbox $B$O!$(Binc +inbox -file mbox $B$9$l$P!$(Binbox folder
$B$KF~$j$^$9!%(B

------- CUT HERE ----- CUT HERE ----- CUT HERE -------
;;
;; rmail-to-mbox
;;K.Yasuda, K.Shirakami and H.Tsujimura (PFU Ltd.)

(defun rmail-to-mbox (&optional rfile mfile no-mesg)
"Convert and append Rmail file to Unix-format mail file.
Optional arg RMAIL means Rmail format file.
Optional arg MBOX means Unix-format mail file."
  (interactive)
  (if (null rfile)
      (setq rfile
    (read-file-name "Rmail File name (input): "
    "~/RMAIL" "~/RMAIL" t)))
  (if (null mfile)
      (setq mfile
    (read-file-name "Mbox File name (output): "
    "~/mbox" "~/mbox" nil)))
  (let (buf (current-buffer))
    (rmail rfile)
    (let ((abc rmail-total-messages))
      (rmail-show-message 1)
      (while (> abc 0)
(rmail-output mfile)
(rmail-next-message 1)
(setq  abc (1- abc))))
    (bury-buffer (current-buffer))
    (switch-to-buffer buf))
  (if (not no-mesg)
      (message (format "%s to %s ... done" rfile mfile))))
----- $B$3$3$^$G(B

--
YAMAMURA Kazushige   Dept. of Architecture, Tokyo Metropolitan Univ.
internet: kyamamur@image1.archi.metro-u.ac.jp
