Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!sun-barr!newstop!sun!Sun.COM!mcgrew
From: mcgrew@Sun.COM (Darin McGrew)
Newsgroups: comp.mail.mh
Subject: intellegent In-reply-to field
Summary: Here's my solution
Message-ID: <119465@sun.Eng.Sun.COM>
Date: 3 Aug 89 23:46:55 GMT
Sender: news@sun.Eng.Sun.COM
Reply-To: mcgrew@Sun.COM (Darin McGrew)
Organization: Sun Microsystems, Mountain View
Lines: 34

I wanted my replcomps to format the In-reply-to field of my
replies intellegently.  By this I mean, if I'm only sending mail
to one person, it would look like

	In-reply-to: Your mail dated [date]
		[message-id] 

but if I'm sending mail to more than one person (ie, if there is
anything in the cc: field), it would look like

	In-reply-to: Mail from [address]
		dated [date]
		[message-id] 

Well, it took me long enough to figure this out that I thought
someone else might be interested in it too.  Here is my new
replcomps.

	%(lit)%(formataddr %<{reply-to}%|%<{from}%|%{sender}%>%>)\
	%(void(width))%(putaddr To: )\n\
	%(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))\
	%<(nonnull)%(void(width))%(putaddr cc: )\n%>\
	Fcc: outbox
	%<{subject}Subject: Re: %{subject}\n%>\
	In-reply-to: \
	%(formataddr{to})%(formataddr{cc})%(formataddr(me))%(void(width))\
	%<(nonnull)%(void(width))Mail from %{from}\n	%|Your mail %>\
	dated %<(nodate{date})%{date}%|%(pretty{date})%>
		%{message-id}
	Precedence: 
	--------

Darin McGrew			mcgrew@Eng.Sun.COM
Affiliation given for identification purposes only.