From: hmurata <hmurata>
Date: Thu, 8 Mar 2007 17:32:47 +0000 (+0000)
Subject: (mime-edit-sign-smime): Bind `mime-transfer-level'
X-Git-Tag: emiko-1_14_1-epg-0_0_12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ae06cb296d39ddff39bbc70440e89559f107c747;p=elisp%2Fsemi.git

(mime-edit-sign-smime): Bind `mime-transfer-level'
to 7 while calling `mime-edit-translate-region'.
(mime-edit-encrypt-pgp-mime): Insert contents into the control
part. [cf. RFC3156]
---

diff --git a/ChangeLog b/ChangeLog
index 6f159dc..25b3cc1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-03-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* mime-edit.el (mime-edit-sign-smime): Bind `mime-transfer-level'
+	to 7 while calling `mime-edit-translate-region'.
+	(mime-edit-encrypt-pgp-mime): Insert contents into the control
+	part. [cf. RFC3156]
+
 2007-02-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-edit.el (mime-edit-sign-pgp-mime): Create a signature for
diff --git a/mime-edit.el b/mime-edit.el
index 87d0e30..b63ee82 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1679,7 +1679,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOICE2...))."
   (save-excursion
     (save-restriction
       (let* ((from (std11-field-body "From" mail-header-separator))
-	     (ret (progn 
+	     (ret (let ((mime-transfer-level 7))
 		    (narrow-to-region beg end)
 		    (mime-edit-translate-region beg end boundary)))
 	     (ctype    (car ret))
@@ -1838,6 +1838,8 @@ If no one is selected, symmetric encryption will be performed.  "
 --%s
 Content-Type: application/pgp-encrypted
 
+Version: 1
+
 --%s
 Content-Type: application/octet-stream
 Content-Transfer-Encoding: 7bit