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

diff --git a/ChangeLog b/ChangeLog
index b6eeb03..37a018e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1998-10-17  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/gnus-offline.el (gnus-offline-setup-needed-hooks): Change
+       message-send-hook to mime-edit-translate-hook.
+
+       * lisp/pop3-fma.el (pop3-fma-init-message-hook): Change
+       message-send-hook to mime-edit-translate-hook.
+
 1998-10-16  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * lisp/gnus-msg.el (gnus-message-setup-hook): Replace the default

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index cbc3b0b..2f8e844 100644 (file)
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -384,9 +384,9 @@ If value is nil , dialup line is disconnected status.")
   (add-hook 'gnus-after-getting-news-hook 'gnus-offline-after-get-new-news)
   (if (eq gnus-offline-news-fetch-method 'nnspool)
       (add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line))
-  (add-hook 'message-send-hook 'gnus-offline-message-add-header)
+  (add-hook 'mime-edit-translate-hook 'gnus-offline-message-add-header)
   (if (featurep 'pop3-fma)
-      (add-hook 'message-send-hook 'pop3-fma-message-add-header)))
+      (add-hook 'mime-edit-translate-hook 'pop3-fma-message-add-header)))
 ;;
 ;; Get new news jobs. (gnus-agent and nnspool)
 ;;

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