From 3bade3916feaf3cb52e1dd8a12004eda26f6980b Mon Sep 17 00:00:00 2001
From: Josh Bressers <josh@bress.net>
Date: Fri, 13 Jun 2008 00:11:49 +0000
Subject: [PATCH] * man/repl.man, etc/mhl.reply: Add an attribution line when
 replying to messages.

---
 ChangeLog     | 4 ++++
 etc/mhl.reply | 1 +
 man/repl.man  | 2 +-
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 785aeca1..d08bcdd2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-12  Josh Bressers <josh@bress.net>
+	* man/repl.man, etc/mhl.reply:
+	Add an attribution line when replying to messages.
+
 2008-06-02  Peter Maydell  <pmaydell@chiark.greenend.org.uk>
 
 	* h/mh.h, h/prototypes.h, sbr/done.c, uip/inc.c,
diff --git a/etc/mhl.reply b/etc/mhl.reply
index 0caf5db2..3498263b 100644
--- a/etc/mhl.reply
+++ b/etc/mhl.reply
@@ -2,4 +2,5 @@
 ;
 ; default message filter for `repl' (repl -format)
 ;
+from:nocomponent,formatfield="%(decode(friendly{text})) writes:"
 body:component="> ",overflowtext="> ",overflowoffset=0
diff --git a/man/repl.man b/man/repl.man
index 89ab11e7..41f58709 100644
--- a/man/repl.man
+++ b/man/repl.man
@@ -295,7 +295,7 @@ is:
 .nf
 message-id:nocomponent,\|nonewline,\\
 formatfield=\*(lqIn message %{text},\ \*(rq
-from:nocomponent,\|formatfield=\*(lq%(friendly{text}) writes:\*(rq
+from:nocomponent,\|formatfield=\*(lq%(decode(friendly{text})) writes:\*(rq
 body:component=\*(lq>\*(rq,\|overflowtext=\*(lq>\*(rq,\|overflowoffset=0
 .fi
 .RE
-- 
2.39.5