Kazuhiro's blog
ようこそ! Kazuhiro's blog
金曜日, 4月 26 2024 @ 08:11 午後 JST
   

starttlsの代わりにgnutls-cliを使用する (Wanderlustで)

general

最近、Cygwinを1.7に上げたのですが、Cygwin 1.7だとstarttlsがうまくビルドできない (killでシグナルが送れないバイナリになる) ようなので、後ろ向きに回避してGnuTLSgnutls-cliを利用するようにしてみました。

(setq starttls-negotiation-by-kill-program t
      starttls-kill-program "/path/to/cygwin/bin/kill.exe"
      starttls-gnutls-program "/path/to/cygwin/bin/gnutls-cli.exe"
      starttls-use-gnutls t)
(defadvice starttls-negotiate (around use-external-kill activate)
  (if (and (boundp 'starttls-negotiation-by-kill-program)
	   starttls-negotiation-by-kill-program)
      (call-process starttls-kill-program nil nil nil
		    "-ALRM" (format "%d" (process-id process)))
    ad-do-it))

starttlsに付属のstarttls.elではなく、Gnus由来の (Emacsに付属している) starttls.elを利用しています。NTEmacs + Cygwinのgnutls-cliの組み合わせの場合、外部プロセスを利用したシグナルの送信を行う必要があるので、その部分はstarttlsに付属のstarttls.elと同等になるようにしています。

(2011/05/22 追記) adviceを利用したものに変更しました。

タグ:Wanderlust

トラックバック

このエントリのトラックバックURL: http://ikazuhiro.s206.xrea.com/trackback.php/20101223554433402

starttlsの代わりにgnutls-cliを使用する (Wanderlustで) | 0 件のコメント | アカウントの作成
コメントは投稿者の責任においてなされるものであり、サイト管理者は責任を負いません。