(add-hook 'wl-mail-setup-hook
  (function 
   (lambda ()
       (search-forward "--text follows" nil t)
       (forward-line 1 )
       (insert  
"> "  (current-time-string)"\n"
"> 千葉市中央区長洲\n"
"> 藤原  誠\n"
"> makoto$ki.nu\n"
"\n"
"\n"
"---\n"
"(藤原)\n"
"http://www.ki.nu/software/NetBSD/iBook2/\n"
"http://www.ki.nu/software/namazu/tutorial/\n"
     )
     (search-backward "makoto$ki.nu" nil t)
     (forward-line 1))))