lisp/pop3-fma.el small bug fix.

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 062a1d0..ddb1ef6 100644 (file)
--- 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)