綾小路龍之介の素人思考

[wanderlust] 自動的にPGP署名をつける

いちいちC-c C-x s(mime-edit-set-sign)するのがめんどくさいので、自動的にこれをする。本当は送信前にやるのが一番なのだけど、とりあえずドラフトバッファを作ったタイミングで。

PGP署名をつけるキーバインドC-c C-x sはわかっているので、まずはこのキーバインドで呼び出される関数を調べる。ドラフトバッファを作り、以下のようにする。*Help* というバッファが出来るので、書かれている内容を読んで探す。mime-edit-set-signが呼び出される関数であることがわかる。

M-x describe-bindings

wanderlustにおいて、ドラフトバッファを用意するタイミングに対応するフックはwl-mail-setup-hook。このときに呼び出される関数を定義する。mime-edit-set-signにはyを引数として与える。以下を~/.wlに加える。

(add-hook 'wl-mail-setup-hook '(lambda () (mime-edit-set-sign t))) 

送信するタイミングのフックはwl-draft-send-hook。これに対してmime-edit-set-signをかけてもいいと思う。

(add-hook 'wl-draft-send-hook '(lambda () 
(mime-edit-set-sign t)
))

ドラフトバッファでC-c cすると、自動的に署名をつけるのに必要な情報がたずねられる。

リファレンス

  1. git.sean.whitton.me Git - desktop.git/commitdiff
  2. mime-edit-set-sign lambda - Google 検索
  3. メールにファイルを添付する(マルチパートの編集) - 刺身☆ブーメランのはてなダイアリー
  4. emacsのヘルプを引こう! | tech.kayac.com - KAYAC engineers' blog
  5. emacs キーバインド 関数 - Google 検索
  6. 2010-11-11 - 移行しました.
  7. Today's HOGE(2006-11-28)

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2010-04-09T17:53:47+09:00
  2. Modified: 2010-04-09T17:53:47+09:00
  3. Generated: 2017-03-05T23:09:33+09:00