From e99c7a27ec1ba206fcd05602e1415da42fddba97 Mon Sep 17 00:00:00 2001
From: ichikawa <ichikawa>
Date: Wed, 17 Jun 1998 11:29:00 +0000
Subject: [PATCH] lisp/pop3-fma.el small bug fix.

---
 lisp/pop3-fma.el |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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