[Mew-dist 16336] Re: S/MIME encryption patch

[Ryutaroh Matsumoto]

以下のメッセージのS/MIME暗号化のパッチなんですが、Netscapeで暗号化した
メールにはcontent-typeのパラメーターにsmime-typeがなくて、そういう場合
に暗号を解読できないバグがあったのでこの問題を修正するパッチを報告させ
ていただきます。

[Mew-dist 16286]のパッチを当てたあとにこのメールのパッチを当てて下さい。

[Mew-dist 16289]で指摘されている問題にはまだ対応できていません。これは
ファイル名としてどういう文字を使っていいかがわからないと直せませんが、
私はまだわかっていません。

From: Ryutaroh Matsumoto <ryutaroh at example.com>
Subject: [Mew-dist 16286] S/MIME encryption patch
Date: Sat, 10 Feb 2001 03:51:06 +0900

> まつもとです。
> 
> S/MIMEを暗号化とクリア署名でない電子署名もふくめて実装できたのでパッチ
> を報告します。パッチは何も変更していない Mew 1.95b102 に対するものです。
> OpenSSLを変更しない範囲でできることをだいたいやったのではないかと思い
> ます。
(以下略)

--
松本  隆太郎
-------------- next part --------------
--- mew-decode.el.~1~	Sat Feb 10 03:19:35 2001
+++ mew-decode.el	Thu Feb 15 15:17:31 2001
@@ -534,9 +534,7 @@
 	 (t
 	  (setq syntax (mew-decode-multipart syntax cnt nil))))))
      ;; S/MIME encrypted or signed
-     ((and (string-match mew-ct-sme ct) (or
-        (string-match "signed-data" (mew-syntax-get-param ctl "smime-type"))
-        (string-match "enveloped-data" (mew-syntax-get-param ctl "smime-type"))))
+     ((string-match mew-ct-sme ct)
       (setq syntax (mew-smime-decrypt-or-verify syntax cnt ctl cte)))
      ;; Others
      (t
--- mew-smime.el.~1~	Sat Feb 10 02:05:36 2001
+++ mew-smime.el	Thu Feb 15 15:29:23 2001
@@ -153,7 +153,7 @@
    (write-region (mew-syntax-get-begin syntax)
 		 (point-max)
 		 encrypted-file nil 'no-msg))
-  (if (string-match "signed-data" (mew-syntax-get-param ctl "smime-type"))
+  (if (and (mew-syntax-get-param ctl "smime-type") (not (string-match "signed-data" (mew-syntax-get-param ctl "smime-type"))))
 
 ;; signature verification
      (progn