From: ichikawa <ichikawa>
Date: Sat, 21 Nov 1998 06:09:12 +0000 (+0000)
Subject: 	* lisp/pop3-fma.el (pop3-fma-init-message-hook): Change	message-send-hook to mime... 
X-Git-Tag: pgnus-ichikawa-199811302358~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f544037ff56da1d9608d8fffef130252d8d6c3d4;p=elisp%2Fgnus.git-

	* lisp/pop3-fma.el (pop3-fma-init-message-hook): Change	message-send-hook to mime-edit-translate-hook - enbug.
---

diff --git a/ChangeLog b/ChangeLog
index c88e995..d7a88c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-21  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 - enbug.
+
 1998-11-20  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
 	* lisp/gnus-offline.el: Update to beta5.
diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index e411f6f..6bcbe5b 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -180,7 +180,7 @@ Please do not set this valiable non-nil if you do not use Meadow.")
      (setq byte-compile-warnings nil))))
 
 (defun pop3-fma-init-message-hook ()
-  (add-hook 'mime-edit-translate-hook 'pop3-fma-message-add-header))
+  (add-hook 'message-send-hook 'pop3-fma-message-add-header))
 
 (eval-after-load "message"
   '(pop3-fma-init-message-hook))