From 7648cc772c264a30de34454df097825e24374955 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Wed, 17 Jun 1998 11:25:38 +0000 Subject: [PATCH] lisp/pop3-fma.el small bug fix. --- ChangeLog | 3 +-- lisp/pop3-fma.el | 7 +++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 114dd08..bc659cb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,6 @@ 1998-06-17 Tatsuya Ichikawa - * 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 --- 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