From 465b55770aebe1b18430201663397c3e9595205b Mon Sep 17 00:00:00 2001
From: ari <ari>
Date: Thu, 6 Jan 2005 00:50:47 +0000
Subject: [PATCH] (Reply): Fixed the sample of message-reply-to-function.

---
 texi/message-ja.texi |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4