[mew-dist 27718] Application/X-Pkcs7-Mimeでsmime-typeが存在しない場合

[Wada Keiji]

和田と申します。

mewでS/MIMEの暗号化を行ったときには、
Application/Pkcs7-Mime
で、smime-typeにenveloped-dataが付きます。

User-Agent: Thunderbird 1.5.0.12 (Windows/20070509)
では
Content-Type: application/x-pkcs7-mime; name="smime.p7m"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="smime.p7m"
Content-Description: S/MIME Encrypted Message
このようなヘッダがついて、smime-typeがありません。
そうするとmewでdecrypt出来ません。

とりあえず、以下の変更をしてdecrypt出来るのを確認しています。
======================================================================
--- mew-smime.el        25 Mar 2007 23:18:32 -0000      1.43
+++ mew-smime.el        22 Jun 2007 14:22:51 -0000
@@ -301,6 +301,9 @@
         file1 file2 syntax2 result privacy)
     (if (null type)
        (progn ;; xxx
+         (setq type "enveloped-data")))
+    (if (null type)
+       (progn ;; xxx
          (setq syntax2 syntax)
          (mew-syntax-set-ct syntax mew-type-apo))
       (mew-syntax-set-ct syntax mew-type-apo)
--- mew-decode.el       16 Apr 2007 01:58:06 -0000      1.89
+++ mew-decode.el       22 Jun 2007 14:23:28 -0000
@@ -630,7 +630,7 @@
          ;; xxx how about message/partial?
          (mew-syntax-set-ct syntax mew-type-apo)
          ))))
-     ((string= ct mew-ct-smm)
+     ((or (string= ct mew-ct-smm) (string= ct mew-ct-xsmm))
       (mew-decode-mime-body nil ct cte)
       (mew-syntax-set-end syntax (point-max))
       (setq syntax (mew-decode-smime syntax cnt)))
======================================================================

smime-typeが存在しないときの正しい挙動はどうするべきでしょうか?