Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!clyde.concordia.ca!nstn.ns.ca!news.cs.indiana.edu!bronze!cica!ogre!mr
From: mr@ogre.cica.indiana.edu (Michael Regoli)
Newsgroups: comp.emacs
Subject: Re: RMAIL Question
Message-ID: <1991Feb14.201507.3494@cica.indiana.edu>
Date: 14 Feb 91 20:15:07 GMT
References: <1991Feb14.162216.22786@cica.indiana.edu> <_.9G5m6n@cs.psu.edu>
Sender: news@cica.indiana.edu (News System)
Organization: Indiana University
Lines: 60
Nntp-Posting-Host: ogre.cica.indiana.edu

In <_.9G5m6n@cs.psu.edu> melling@cs.psu.edu (Michael D Mellinger) writes:


>Create a macro. C-( C-o RET n C-).  Then repeat it 89 times by typing
>M-89 C-x e.  Do this on a copy of your RMAIL file.  I think the macro
>is right, but I am guessing.  I use VM(visual mailer) now.

>-Mike

Thanks to all the replies.  The best solution (below) cleaned up the
file perfectly.  My thanks to all!

--CUT--

#!/bin/sh
#
# usage:	rmail-to-mail file1 file2 ...
#
# result:	file1~     is the original Babyl file
#		file1      is an empty Babyl file
#		file1.mail is a UNIX mail file with the messages from file1

cat > /tmp/$$.el << EOF
;;;
;;; Author:  Nathan Hess  (woodstock@hobbes.intel.com)
;;;
;;

(let ((file-to-be-converted (buffer-file-name))
      (message-count 0)
      (rmail-delete-after-output t)
      (unix-style-file-name (concat (buffer-file-name) ".mail")))
  (kill-buffer (current-buffer))
  (rmail file-to-be-converted)
  (rmail-show-message 1)
  (while (not (rmail-output unix-style-file-name))
    (setq message-count (1+ message-count)))
  (rmail-quit))
EOF

for f in "$@" ; do
    echo ">>> Doing $f"
    emacs -batch $f -l /tmp/$$.el -kill
    echo ">>> Done"
#    mv -f $f.mail $f
#    rm -f $f~
done

rm -f /tmp/$$.el

exit 0

--CUT--

--
--
michael regoli
mr@ogre.cica.indiana.edu
regoli@iubacs.BITNET
..rutgers!iuvax!ogre!mr