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

[Ryutaroh Matsumoto]

まつもとです。

以下のメールに添付されていたパッチなんですが、署名を付加するときに
opensslのexit valueを見ていない為、パスフレーズを入力し間違えたりする
と訳のわからない状態になってしまいます。これではよろしくないので以下の
メールのパッチを当てた後、このメールに添付されたパッチを当ててください。

お手数かけて申し訳ありません。

From: Ryutaroh Matsumoto <ryutaroh at example.com>
Subject: [Mew-dist 16230] Re: S/MIME patch
Date: Wed, 7 Feb 2001 21:26:53 +0900

> まつもとです。
> 
> From: Kazu Yamamoto (山本和彦) <kazu at example.com>
> Subject: [Mew-dist 16211] Re: S/MIME patch
> > やるなら、やはり 1.95 をベースにされた方がいいです。
> 
> やりました。
(以下略)

--
松本  隆太郎
-------------- next part --------------
--- mew-smime.el-0	Wed Feb  7 22:04:30 2001
+++ mew-smime.el	Wed Feb  7 22:11:19 2001
@@ -17,6 +17,7 @@
 (defvar mew-smime-prompt-reenter-pass "Re-enter S/MIME pass phrase: ")
 (defconst mew-smime-msg-enter-pass "Enter PEM pass phrase:")
 (defvar mew-smime-string nil)
+(defvar mew-smime-sign-error nil)
 
 ; The following variables are used only in the variable
 ; mew-decode-multipart-signed-switch in mew-decode.el.
@@ -42,7 +43,13 @@
 
 
 (defun mew-smime-process-sentinel (process event)
-(setq mew-smime-running nil))
+(if (string-match "finished" event) (progn
+  (setq mew-smime-running nil)
+  (setq mew-smime-sign-error nil)))
+(if (string-match "exited abnormally" event) (progn
+  (setq mew-smime-running nil)
+  (setq mew-smime-sign-error "openssl exit abnormally."))))
+
 
 (defun mew-smime-sign (file1)
   (message "S/MIME signing ... ")
@@ -70,7 +77,7 @@
 	  ;; accept-process-output or sleep-for is not enough
 	  (discard-input)))
     (message "S/MIME signing ... done")
-    (list file2 mew-b64 "sha1" nil
+    (list file2 mew-b64 "sha1" mew-smime-sign-error
      (list "application/x-pkcs7-signature" (list "name" "smime.p7s"))
      (list "attachment" (list "filename" "smime.p7s"))))) ;; return
 
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/x-pkcs7-signature
サイズ:     1800 バイト
説明:       attachment; filename="smime.p7s"
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20010207/572d50a9/attachment.bin>