🚀 go-pugleaf

$BDL$j$9$,$j$N<c5\!wIY;NDL8&$G$9!%(B

KANNO> RMAIL$B$r(Bmbox$B$K=q$-49$($k5!G=$O!"%5%]!<%H$5$l$F$$$^$9$G$7$g$&$+!)(B

  $BBg@N$K:n(B$B$C$?$3$H$,$"$k$N$r;W$$=P$7$^$7$?!$0J2<$N4X?t$G$9!%(BRMAIL $B%U%!(B
  $B%$%k$r%P(B$B%C%U%!$K<h$j9~$s$G!$(BM-x r2m $B$H$d$C$F$_$F2<$5$$!%%P%C%U%!$NCf(B
  $B?H$,(B mbox $B7A<0$KJQ$o$j$^$9!%(B

$B!t$7$+$7$h$/<h$C$F$"$C$?$J$!!%(B
--
$B#W%1%s%B!wIY;NDL(B$B8&(B
wkenji@flab.Fujitsu.Co.JP
---------->8---------->8---------->8---------->8---------->8----------
;;; A function for file conversion RMAIL to mbox

(provide 'r2m)
(require 'mail-utils)

(defun r2m ()
  "Convert RMAIL file in current buffer to mbox format."
  (interactive)
  (goto-char (point-min))
  (re-search-forward "^\^_" nil t)
  (delete-region (point-min) (point))
  (while (= (following-char) ?\^L)
    (set-mark (1- (point)))
    (re-search-forward "^\\*\\*\\* EOOH \\*\\*\\*\n" nil t)
    (delete-region (mark) (point))
    (narrow-to-region (point) (point-max))
    (insert "From "
	    (or (mail-strip-quoted-names (mail-fetch-field "from"))
		"unknown")
	    " "
	    (current-time-string)
	    "\n")
    (re-search-forward "^\^_" nil t)
    (save-excursion (beginning-of-line) (insert "\n")))
  (delete-char -1)
  (widen))