From: ari <ari>
Date: Thu, 6 Jan 2005 00:50:07 +0000 (+0000)
Subject: (Reply): Fixed the sample of message-reply-to-function.
X-Git-Tag: t-gnus-6_17_4-quimby-~602
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6b86e1bc3678f35111b9867e36abeda3f6febba;p=elisp%2Fgnus.git-

(Reply): Fixed the sample of message-reply-to-function.
---

diff --git a/texi/message-ja.texi b/texi/message-ja.texi
index db156b7..307e64f 100644
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -153,8 +153,8 @@ Message $B$O2?=h$KJVEz$,9T$/$+$rIaDL$NJ}K!(B (@pxref{Responses}) $B$G7hDj$7$^
 @lisp
 (setq message-reply-to-function
       (lambda ()
-       (cond ((equal (mail-fecth-field "from") "somebody")
-               (mail-fetch-field "sender"))
+       (cond ((equal (mail-fetch-field "from") "somebody")
+               (list (cons 'To (mail-fetch-field "sender"))))
              (t
               nil))))
 @end lisp