From: ichikawa <ichikawa>
Date: Wed, 17 Jun 1998 11:29:00 +0000 (+0000)
Subject: lisp/pop3-fma.el small bug fix.
X-Git-Tag: ichikawa-199811302358~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e99c7a27ec1ba206fcd05602e1415da42fddba97;p=elisp%2Fgnus.git-

lisp/pop3-fma.el small bug fix.
---

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 062a1d0..ddb1ef6 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -140,9 +140,12 @@ Please do not set this valiable non-nil if you do not use Meadow.")
 (defvar str nil)
 (defvar pop3-fma-movemail-options pop3-fma-movemail-arguments)
 
+(defun pop3-fma-init-message-hook ()
+  (add-hook 'message-send-hook 'pop3-fma-message-add-header))
+
 (eval-after-load "message"
-  '(lambda ()
-     (add-hook 'message-send-hook 'pop3-fma-message-add-header)))
+  '(pop3-fma-init-message-hook))
+
 (add-hook 'gnus-after-exiting-gnus-hook
 	  '(lambda () (setq pop3-fma-password nil)))
 (add-hook 'gnus-before-startup-hook 'pop3-fma-set-pop3-password)