v08i020: another rn-to-MH saver

[Brandon S. Allbery - comp.sources.misc]

Posting-number: Volume 8, Issue 20
Submitted-by: leres at helios.ee.lbl.gov (Craig Leres)
Archive-name: rntomh_cl

Well, I use a script that does the same thing. And I agree that
rcvstore is the right way to do it. For your amusement, I've appended
my script.
------
#! /bin/sh
# This file was wrapped with "dummyshar".  "sh" this file to extract.
# Contents:  rn2mh2
echo extracting 'rn2mh2'
if test -f 'rn2mh2' -a -z "$1"; then echo Not overwriting 'rn2mh2'; else
sed 's/^X//' << \EOF > 'rn2mh2'
X#!/bin/csh -f
X#
X# rntomh
X#
X# Arguments:
X#   %C  newsgroup name, dot form
X#   %a  article number
X#
X# Stdin:
X#   the article to save
X
Xset folder=+news
X( echo "Article: $2 of $1" ; cat ) | /usr/new/lib/mh/rcvstore $folder
X
Xecho Saved article $2 of $1 to $folder.
EOF
chars=`wc -c < 'rn2mh2'`
if test $chars !=      260; then echo 'rn2mh2' is $chars characters, should be      260 characters!; fi
fi
exit 0