From ae06cb296d39ddff39bbc70440e89559f107c747 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 8 Mar 2007 17:32:47 +0000 Subject: [PATCH] (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] --- ChangeLog | 7 +++++++ mime-edit.el | 4 +++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 6f159dc..25b3cc1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2007-03-08 Hiroya Murata + + * 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 * 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 -- 1.7.10.4