lisp/pop3-fma.el small bug fix.

diff --git a/ChangeLog b/ChangeLog
index 114dd08..bc659cb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,6 @@
 1998-06-17  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
-       * lisp/pop3-fma.el: Add about password document in README-ja.pop3
-       Small bug fix.
+       * lisp/pop3-fma.el: Small bug fix.
        
        * lisp/pop3-fma.el: Delete variable pop3-fma-cypher-key
        Use base64-encode-string , base64-decode-string instead. 

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)