* man/repl.man, etc/mhl.reply:

Add an attribution line when replying to messages.

diff --git a/ChangeLog b/ChangeLog
index 785aeca..d08bcdd 100644 (file)
--- 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,
 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 0caf5db..3498263 100644 (file)
--- a/etc/mhl.reply
+++ b/etc/mhl.reply
@@ -2,4 +2,5 @@
 ;
 ; default message filter for `repl' (repl -format)
 ;
 ;
 ; default message filter for `repl' (repl -format)
 ;

+from:nocomponent,formatfield="%(decode(friendly{text})) writes:"

 body:component="> ",overflowtext="> ",overflowoffset=0
 body:component="> ",overflowtext="> ",overflowoffset=0

diff --git a/man/repl.man b/man/repl.man
index 89ab11e..41f5870 100644 (file)
--- a/man/repl.man
+++ b/man/repl.man
@@ -295,7 +295,7 @@ is:
 .nf
 message-id:nocomponent,\|nonewline,\\
 formatfield=\*(lqIn message %{text},\ \*(rq
 .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
 body:component=\*(lq>\*(rq,\|overflowtext=\*(lq>\*(rq,\|overflowoffset=0
 .fi
 .RE