(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 (file)
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -190,8 +190,8 @@ Message \e$B$O2?=h$KJVEz$,9T$/$+$rIaDL$NJ}K!\e(B (@pxref{Responses}) \e$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