Re: How to select hook

[Tatsuya Ichikawa <t-ichi@xxxxxxxxxxxxxxxxx>]

市川＠pop3-fma 作者です。

>>>>> In [meadow-users-jp : No.257]
>>>>> Akitada Koyama <cx2@xxxxxxxxxxxxxx> wrote:
古山> 有り難うございます。
古山> 実は、めんどくさがりの僕がしたかったのはpop3-fmaをつかうとき
古山> にmailhost毎のpassword入力をしなくてもすむように、別ファイル
古山> から読み込めるようにしたかったのです。ただたんに読み込むのは、
古山> hookを書き換えるだけでできたのですが、どうせなら読み込む読み
古山> 込まないを選択できるようにしてみたかっただけです。

  非常に危険は危険ですね。
  .password ファイルを盗まれるとお陀仏ですから…

古山> で、一応以下のcodeを書いて初期の目的は達することができました。
古山> ;; (defvar pop3-fma-use-password-file
古山> ;;
古山> ;; (defun pop3-fma-get-passwrd ()
古山> ;; (if pop3-fma-use-password-file
古山> ;; (add-hook 'gnus-before-startup-hook
古山> ;; '(lambda () (load "~/.passwrd")))
古山> ;; (add-hook 'gnus-before-startup-hook
古山> ;; 'pop3-fma-set-pop3-password)))
古山> ;;
古山> ;; (eval-after-load "gnus-start"
古山> ;; '(pop3-fma-get-passwrd))

  とやるよりは、

  (add-hook gnus-before-startup-hook 'my-pop3-fma-get-password)
  (defun my-pop3-fma-get-password ()
    (if (file-exists-p "~/.passwrd")
         (load "~/.passwrd")
       (pop3-fma-set-pop3-password)))

;; あくまでこう書いても勧めているわけではありません。

  password をファイルに書くことの危険性は十分認識してください。

-- 
Tatsuya Ichikawa   : Shiojiri Internet... <t-ichi@xxxxxxxxxxxxxxxxx>
# PGP Public Key   : See X-Info Header of this message. ;-p
# Meadow's Page    : http://www.shiojiri.ne.jp/~t-ichi/meadow.html