[mew-dist 28530] stunnel4 の syslog 出力制御

[Yu-ji Hosokawa]

ほそかわです

stunnel4 使用時に syslog へのログ出力を制御する変数を追加してみ
ました。

Windows の NTEmacs 22.2 と Cygwin の stunnel 4.25 で Mew を使わ
せていただいています。

Cygwin では、syslog デーモンがない場合、ログがすべて Windows の
イベントログへ出力されるようで、Mew から debug=debug で stunnel4
を使うと、通信するたびに大量のイベントログが記録されて少々わずら
わしい感じになってしまいます。

他にも対処方法があるんじゃないかとは思いますが、Mew から
stunnel4 へ渡す設定ファイルで syslog=no にしておけば良いんじゃな
いかと考えました。

stunnel3 の -f オプションで syslog が出力されなくなるのと近い状
態になるんじゃないかと思います。

もし問題がなければ取り込んでいただければ幸いです。
Emacs lisp に詳しくないので、変なことをしていたら教えていただけ
ればと思います。_o_

-- 
Yu-ji Hosokawa (細川 雄司)


Index: mew-config.el
===================================================================
RCS file: /cvsmew/mew/mew-config.el,v
retrieving revision 1.114
diff -u -r1.114 mew-config.el
--- mew-config.el	21 May 2008 01:43:22 -0000	1.114
+++ mew-config.el	18 Jul 2008 14:59:41 -0000
@@ -155,6 +155,9 @@
 (defun mew-ssl-verify-level (&optional case)
   (mew-cfent-value case "ssl-verify-level" mew-ssl-verify-level))
 
+(defun mew-ssl-syslog (&optional case)
+  (mew-cfent-value case "ssl-syslog" mew-ssl-syslog))
+
 ;;
 
 (defun mew-smtp-server (&optional case)
Index: mew-ssl.el
===================================================================
RCS file: /cvsmew/mew/mew-ssl.el,v
retrieving revision 1.54
diff -u -r1.54 mew-ssl.el
--- mew-ssl.el	5 May 2008 10:03:48 -0000	1.54
+++ mew-ssl.el	18 Jul 2008 14:59:41 -0000
@@ -25,6 +25,12 @@
 3 - verify server's certificate which locally installed (not one from
     the server).")
 
+(defvar mew-ssl-syslog nil
+  "Send log messages to syslog. (stunnel4 only)
+\"yes\" - enable logging.
+\"no\"  - disable logging.
+nil   - use system default.")
+
 (defvar mew-prog-ssl-arg nil) ;; xxx what about v4?
 
 (defvar mew-ssl-ver nil)
@@ -101,6 +107,8 @@
 	(insert (format "verify=%d\n" (mew-ssl-verify-level case)))
 	(insert "foreground=yes\n")
 	(insert "debug=debug\n")
+	(and (mew-ssl-syslog case)
+	     (insert (format "syslog=%s\n" (mew-ssl-syslog case))))
 	(insert "CApath=" (expand-file-name (mew-ssl-cert-directory case)) "\n")
 	(insert (format "[%d]\n" localport))
 	(insert (format "accept=%s:%d\n" mew-ssl-localhost localport))
Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.181
diff -u -r1.181 mew-vars2.el
--- mew-vars2.el	12 May 2008 05:12:18 -0000	1.181
+++ mew-vars2.el	18 Jul 2008 14:59:41 -0000
@@ -924,7 +924,7 @@
 nntp-server, nntp-port, nntp-ssh-server, nntp-ssl, nntp-ssl-port, 
 nntp-user, nntp-size, nntp-header-only, 
 nntp-msgid-user, nntp-msgid-domain, 
-ssl-cert-directory, ssl-verify-level, 
+ssl-cert-directory, ssl-verify-level, ssl-syslog, 
 inbox-folder, queue-folder, postq-folder, 
 mailbox-type, mbox-command, mbox-command-arg,
 signature-file, content-type, refile-guess-alist,