[Mew-dist 16211] Re: S/MIME patch

[Kazu Yamamoto ( 山本和彦 )]

From: Ryutaroh Matsumoto <ryutaroh at example.com>
Subject: [Mew-dist 16207] S/MIME patch

> S/MIMEの署名の付加機能と検証機能をMew 1.94.2に追加するパッチを作ったので
> 報告します。対象が1.94.2なのは1.95がβテストの最終段階に入っているように
> 見えるのと私が使っているXEmacs 20.4がサポート対象外になって1.95が動かな
> かったからです(後者が主な理由)。1.95の次のリリースのβテストが始まったら
> そのβテスト向けにパッチを更新しようと思います。

やるなら、やはり 1.95 をベースにされた方がいいです。1.94.2 ユーザには、
S/MIME のパッチをあててまで使おうというやんちゃな人は少ないように思い
ます。

また、1.95 beta のうちに PGP/MIME のレビューをしないといけないので、同
時に S/MIME をサポートする可能性が 0 ではありません。

XEmacs 21.1 への乗り換えは簡単です。ただ、文字コードに関する環境の設定
方法が、Emacs 20.7 のようになっていることに注意しましょう。つまり、
.emacs に以下のコードを入れる必要があります。

(set-language-environment "Japanese")

＃ 僕はこれに気付くのに 1 ヵ月ぐらいかかりました。自分のミスなのに、
＃ NetBSD 上の XEmacs は信用できんと誤った認識を持っていました。

P.S.

おまけ。kazu の .emacs 中で、Emacsen の差異を埋めている部分。

(set-language-environment "Japanese")

(cond
 ((featurep 'xemacs)
  (custom-set-faces)
  (setq delete-key-deletes-forward nil)
  (setq url-be-asynchronous t)
  (setq-default buffer-file-coding-system 'iso-2022-jp)
  (setq keyboard-coding-system 'iso-2022-jp)
  (setq terminal-coding-system 'iso-2022-jp)
  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
  (delete-menu-item '("Apps" "Read Mail (VM)..."))
  (delete-menu-item '("Apps" "Read Mail (MH)..."))
  (delete-menu-item '("Apps" "Send mail..."))
  (setq toolbar-mail-reader 'Mew)
  (setq toolbar-mail-commands-alist
	(cons '(Mew . mew) toolbar-mail-commands-alist))
  (cond
   ((and (eq window-system 'x) (equal kazu-font-size 14))
    (set-face-font
     'default
     '("-*-fixed-medium-r-*--14-*-iso8859-*"
       "-*-fixed-bold-r-*--14-*-iso8859-*"
       "-*-fixed-medium-r-*--14-*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--14-*-jisx0208.1983-*")
     'global nil 'prepend))
   ((and (eq window-system 'x) (equal kazu-font-size 16))
    (set-face-font
     'default
     '("-*-fixed-medium-r-*--16-*-iso8859-*"
       "-*-fixed-bold-r-*--16-*-iso8859-*"
       "-*-fixed-medium-r-*--16-*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--16-*-jisx0208.1983-*")
     'global nil 'prepend)))
  ) ;; XEmacs
 ((>= emacs-major-version 20)
  (load "execcmd" t)
  (if (>= emacs-major-version 21)
      (progn
	(blink-cursor-mode nil)
	(setq cursor-in-non-selected-windows nil)))
  (if (not (eq window-system 'x))
      (set-terminal-coding-system 'iso-2022-7bit-ss2)
    (setq standard-fontset-spec14
	  "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
    (setq standard-fontset-spec16
	  "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard")
    (setq standard-fontset-spec24
	  "-*-fixed-medium-r-normal-*-24-*-*-*-*-*-fontset-standard")
    (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
    (create-fontset-from-fontset-spec standard-fontset-spec16 nil 'noerror)
    (create-fontset-from-fontset-spec standard-fontset-spec24 nil 'noerror)
    (cond
     ((equal kazu-font-size 14)
      (setq default-frame-alist 
	    (cons (cons 'font standard-fontset-spec14) default-frame-alist)))
     ((equal kazu-font-size 16)
      (setq default-frame-alist 
	    (cons (cons 'font standard-fontset-spec16) default-frame-alist)))
     ((equal kazu-font-size 24)
      (setq default-frame-alist 
	    (cons (cons 'font standard-fontset-spec24) default-frame-alist))))
    ;; (require 'un-define)
    (if (not kazu-jisx0213)
	()
      (require 'jisx0213)
      (require 'egg-sim-jisx0213)
      (set-fontset-font standard-fontset-spec14 'japanese-jisx0213-1 "*jisx0213.2000-1")
      (set-fontset-font standard-fontset-spec14 'japanese-jisx0213-2 "*jisx0213.2000-2")
      ;(set-fontset-font standard-fontset-spec24 'japanese-jisx0213-1 "*shiftjis-0")
      ;(set-fontset-font standard-fontset-spec24 'japanese-jisx0213-2 "*shiftjis-0")
      ))
  (set-input-method "japanese-egg-wnn")
  (toggle-input-method) ;; default to ASCII
  (its-defrule   "thi"  "てぃ")
  (its-defrule   "dhi"  "でぃ")
  (global-set-key "\C-l" 'toggle-input-method)
  (define-key isearch-mode-map "\C-l"  'isearch-toggle-input-method)
  (define-key isearch-mode-map "\C-k"  'isearch-toggle-input-method)
  (if (= emacs-major-version 20)
      (progn
	(set-face-font 'bold '(bold) t)
	(set-face-font 'italic '(italic) t)
	(set-face-font 'bold-italic '(bold italic) t)))
  (setq process-coding-system-alist '(("zsh" . euc-jp)))) ;; Emacs 20/21
 (t ;; Mule 2.3 or Emacs 19
  (load "execcmd" t)
  (cond
   ((and (eq window-system 'x) (equal kazu-font-size 14))
    (set-default-font "-*-fixed-medium-r-*--14-*-iso8859-1"))
   ((and (eq window-system 'x) (equal kazu-font-size 16))
    (set-default-font "-*-fixed-medium-r-*--16-*-iso8859-1"))
   )
;  (setq Info-directory-list '("/usr/local/emacs/info"))
;  (require 'tex-site) ;; AUC TeX
  )
 )

--かず