From: ari <ari>
Date: Thu, 6 Jan 2005 00:50:47 +0000 (+0000)
Subject: (Reply): Fixed the sample of message-reply-to-function.
X-Git-Tag: t-gnus-6_17_3-00~148
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=465b55770aebe1b18430201663397c3e9595205b;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 50644bf..add6697 100644
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -190,8 +190,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