X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/1e6e0b5cc1bd2d49ffcef4ea7bb1bb6c256d07b7..77ce4cf16b51da4e873519978a9808bfd83febaa:/etc/replcomps?ds=sidebyside

diff --git a/etc/replcomps b/etc/replcomps
index 04451812..b5227469 100644
--- a/etc/replcomps
+++ b/etc/replcomps
@@ -1,29 +1,42 @@
-%; replcomps
+%; replcomps - our default component file for "repl"
 %;
-%; default form (components) file for `repl'
 %;
-%; Check for the following headers (in this order)
-%; to construct the return address
+%; First, output a "From" header.
+%(void(localmbox))%(void(width))%(putaddr From: )
 %;
-%; Mail-Reply-To
-%; Reply-To
-%; From
-%; Sender
-%; Return-Path
+%; These next lines slurp in lots of addresses for To: and cc:.
+%; Use with repl -query or else you may get flooded with addresses!
+%; Currently %(decode) should NOT be used on address fields, in case invalid
+%; characters are in an address.
 %;
-%; AND
+%; If no To:/cc:/Fcc: text, we output empty fields for prompter to fill in.
 %;
-%; cc: To              (and)
-%;     cc              (and)
-%;     personal address
+%(lit)%(formataddr{reply-to})\
+%(formataddr %<{from}%(void{from})%|%(void{apparently-from})%>)\
+%(formataddr{resent-to})\
+%(formataddr{prev-resent-to})\
+%(formataddr{x-to})\
+%(formataddr{apparently-to})\
+%(void(width))%(putaddr To: )
+%(lit)%(formataddr{to})\
+%(formataddr{cc})\
+%(formataddr{x-cc})\
+%(formataddr{resent-cc})\
+%(formataddr{prev-resent-cc})\
+%(formataddr(localmbox))\
+%(void(width))%(putaddr cc: )
+Fcc: %<{fcc}%{fcc}%|+outbox%>
+Subject: %<{subject}Re: %(void{subject})%(trim)%(putstr)%>
 %;
-%(lit)%(formataddr %<{mail-reply-to}%?{reply-to}%?{from}%?{sender}%?{return-path}%>)\
-%<(nonnull)%(void(width))%(putaddr To: )\n%>\
-%(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))\
-%<(nonnull)%(void(width))%(putaddr cc: )\n%>\
-%<{fcc}Fcc: %{fcc}\n%>\
-%<{subject}Subject: Re: %{subject}\n%>\
-%<{date}In-Reply-To: Your message of "\
-%<(nodate{date})%{date}%|%(pretty{date})%>."%<{message-id}
-             %{message-id}%>\n%>\
+%; Make References: and In-reply-to: fields for threading.
+%; Use (void), (trim) and (putstr) to eat trailing whitespace.
+%;
+%<{message-id}In-reply-to: %{message-id}\n%>\
+%<{message-id}References: \
+%<{references}%(void{references})%(trim)%(putstr) %>\
+%(void{message-id})%(trim)%(putstr)\n%>\
+Comments: In-reply-to \
+%<{from}%(void{from})%?(void{apparently-from})%|%(void{sender})%>\
+%(trim)%(putstr)\n\
+   message dated "%<(nodate{date})%{date}%|%(tws{date})%>."
 --------