Path: utzoo!utgpu!water!watmath!clyde!rutgers!husc6!bbn!uwmcsd1!ig!jade!ucbvax!hplabs!well!pokey
From: pokey@well.UUCP (Jef Poskanzer)
Newsgroups: comp.mail.mh
Subject: Re: Formats and filters in forw in mh
Message-ID: <4951@well.UUCP>
Date: 10 Jan 88 07:11:22 GMT
References: <1833@decuac.DEC.COM>
Organization: Paratheo-Anametamystikhood Of Eris Esoteric, Ada Lovelace Cabal
Lines: 121

In the referenced message, avolio@decuac.DEC.COM (Frederick M. Avolio) wrote:
}This is probably quite basic, so just answer to me via email please. 
}
}I would like, when forwarding, to have format header lines understood
}in my forwcomps file just as they are in my replcomps file.

As far as I've been able to tell, it's not at all basic.  This is yet
another of the mysterious deficiencies in MH.  Fortunately, you can get
around it by using repl to do forwarding.  I posted a message showing
how to do this a few months ago, but I might as well post the info again.
Appended is a shar file with the necessary stuff.

If there's a simpler way to do this, I would certainly like to hear
about it.
---
Jef

              Jef Poskanzer   jef@lbl-rtsg.arpa   ...well!pokey
             No postage necessary if mailed in the United States.

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	scripts/forw
#	mh/forw1.comps
#	mh/forw1.mhl
# This archive created: Sat Jan  9 23:08:44 1988
# By:	Jef Poskanzer
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'scripts/forw'" '(488 characters)'
if test -f 'scripts/forw'
then
	echo shar: "will not over-write existing file 'scripts/forw'"
else
sed 's/^X//' << \SHAR_EOF > 'scripts/forw'
X#!/bin/csh -f
X#
X# forw - use repl to forward a single message, otherwise fall back on forw
X#
X# v01a - 29jul87 - Jef Poskanzer
X
Xset realforw=/usr/new/mh/forw
X
Xforeach a ( $* )
X    switch ( "$a" )
X	case -*:
X	    breaksw
X	case *-*:
X	case *:*:
X	case all:
X	    $realforw $*
X	    exit 0
X	default:
X	    if ( $?foundsingle ) then
X		$realforw $*
X		exit 0
X	    endif
X	    set foundsingle
X	    breaksw
X    endsw
Xend
X
X# Only one message, handle specially.
Xrepl -form forw1.comps -filter forw1.mhl $*
SHAR_EOF
if test 488 -ne "`wc -c < 'scripts/forw'`"
then
	echo shar: "error transmitting 'scripts/forw'" '(should have been 488 characters)'
fi
chmod +x 'scripts/forw'
fi
echo shar: "extracting 'mh/forw1.comps'" '(142 characters)'
if test -f 'mh/forw1.comps'
then
	echo shar: "will not over-write existing file 'mh/forw1.comps'"
else
sed 's/^X//' << \SHAR_EOF > 'mh/forw1.comps'
XTo: 
X%<{subject}Subject: Re: %{subject}\n%>\
XOrganization: Paratheo-Anametamystikhood Of Eris Esoteric, Ada Lovelace Cabal
XFcc: +out
X--------
SHAR_EOF
if test 142 -ne "`wc -c < 'mh/forw1.comps'`"
then
	echo shar: "error transmitting 'mh/forw1.comps'" '(should have been 142 characters)'
fi
chmod +x 'mh/forw1.comps'
fi
echo shar: "extracting 'mh/forw1.mhl'" '(493 characters)'
if test -f 'mh/forw1.mhl'
then
	echo shar: "will not over-write existing file 'mh/forw1.mhl'"
else
sed 's/^X//' << \SHAR_EOF > 'mh/forw1.mhl'
X:
X:------- Forwarded Message
X:
Xwidth=80,overflowtext="    ",compwidth=4
Xignores=approved,control,date-received,distribution,followup-to,in-reply-to,lines,message-id,newsgroups,nf-id,organization,path,posting-version,received,references,relay-version,reply-to,return-path,sender,status,x-mailer,x-st-status,xpath,xref
XDate:leftadjust
XFrom:leftadjust
XSubject:leftadjust
XTo:leftadjust
Xextras:nocomponent,leftadjust
X:
Xbody:width=30000,nocomponent,compwidth=0
X:
X:------- End of Forwarded Message
X:
SHAR_EOF
if test 493 -ne "`wc -c < 'mh/forw1.mhl'`"
then
	echo shar: "error transmitting 'mh/forw1.mhl'" '(should have been 493 characters)'
fi
chmod +x 'mh/forw1.mhl'
fi
exit 0
#	End of shell archive