🚀 go-pugleaf

something i picked up somewhere, sometime.
-hr

----------------------------------------------------------------------
#!/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

if [ $# -eq 0 ]; then
    cat $0
    exit 
fi


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"
done

rm -f /tmp/$$.el
----------------------------------------------------------------------
--
       |^^^^^^|        ___________________________________
       |      |       /                                    \
       |      |      | Haavard Rue                          |
       | (o)(o)      | The Norwegian Instiute of Technology |
      @      _)      | Department of Mathemathical Sciences |
       | ,___|     ,,| N-7034 Trondheim NTH, Norway         |
       |   /   ..''  | fax:+47-7-593524, hrue@imf.unit.no   |
      /____\          \____________________________________/