From b3f4767a387a13b3cb0d7a667d48d389c3c8149a Mon Sep 17 00:00:00 2001 From: ichikawa Date: Fri, 16 Oct 1998 15:28:12 +0000 Subject: [PATCH] Change message-send-hook to mime-edit-translate-hook --- ChangeLog | 8 ++++++++ lisp/gnus-offline.el | 4 ++-- lisp/pop3-fma.el | 2 +- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b6eeb03..37a018e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +1998-10-17 Tatsuya Ichikawa + + * 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 * 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 --- 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 --- 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)) -- 1.7.10.4