Change message-send-hook to mime-edit-translate-hook

diff --git a/ChangeLog b/ChangeLog
index cf01d22..f363df8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-17  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/pop3-fma.el (pop3-fma-init-message-hook): Change
+       message-send-hook to mime-edit-translate-hook.
+
 1998-10-14  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * lisp/pop3-fma.el (pop3-fma-read-char-exclusive): New macro. Use

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 9801644..4f10cc8 100644 (file)
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -154,7 +154,7 @@ Please do not set this valiable non-nil if you do not use Meadow.")
 (defvar pop3-fma-commandline-arguments nil)
 
 (defun pop3-fma-init-message-hook ()
-  (add-hook 'message-send-hook 'pop3-fma-message-add-header))
+  (add-hook 'mime-edit-translate-hook 'pop3-fma-message-add-header))
 
 (eval-after-load "message"
   '(pop3-fma-init-message-hook))