From: ueno <ueno>
Date: Sat, 11 Dec 1999 16:44:23 +0000 (+0000)
Subject: * mime-edit.el: Fix autoload settings for `smime-sign-region' and
X-Git-Tag: emiko-1_13_8-tomo-1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b611159ce6a7031b3d53b86e2f8e5e8e9f31f832;p=elisp%2Fsemi.git

* mime-edit.el: Fix autoload settings for `smime-sign-region' and
`smime-encrypt-region.
(mime-edit-sign-smime): Set Content-Type
`application/pkcs7-signature' instead of
`application/x-pkcs7-signature'; add Content-Description.
(mime-edit-encrypt-smime): Set content-type
`application/pkcs7-mime' instead of `x-application/pkcs7-mime'.
---

diff --git a/mime-edit.el b/mime-edit.el
index 6123802..c49d605 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -125,9 +125,9 @@
 (autoload 'pgg-insert-key "pgg"
   "Insert PGP public key at point." t)
 (autoload 'smime-encrypt-region "smime"
-  "S/MIME encryption of current region." t)
+  "S/MIME encryption of current region.")
 (autoload 'smime-sign-region "smime"
-  "S/MIME signature of current region." t)
+  "S/MIME signature of current region.")
 
 
 ;;; @ version
@@ -1983,11 +1983,17 @@ Content-Transfer-Encoding: 7bit
 	(goto-char beg)
 	(insert (format "--[[multipart/signed;
  boundary=\"%s\"; micalg=sha1;
- protocol=\"application/x-pkcs7-signature\"][7bit]]
+ protocol=\"application/pkcs7-signature\"][7bit]]
 --%s
 " smime-boundary smime-boundary))
 	(goto-char (point-max))
-	(insert "\n--" smime-boundary "\n")
+	(insert (format "\n--%s
+Content-Type: application/pkcs7-signature; name=\"smime.p7s\"
+Content-Transfer-Encoding: base64
+Content-Disposition: attachment; filename=\"smime.p7s\"
+Content-Description: S/MIME Cryptographic Signature
+
+"  smime-boundary))
 	(insert-buffer-substring smime-output-buffer)
 	(goto-char (point-max))
 	(insert (format "\n--%s--\n" smime-boundary))
@@ -2015,13 +2021,9 @@ Content-Transfer-Encoding: 7bit
 	    (throw 'mime-edit-error 'pgp-error)
 	    )
 	(delete-region (point-min)(point-max))
-	(with-current-buffer smime-output-buffer
-	  (goto-char (point-min))
-	  (delete-region (point-min) (progn
-				       (re-search-forward "^$" nil t)
-				       (point))))
-	(insert "--[[application/x-pkcs7-mime
-Content-Disposition: attachment; filename=\"smime.p7m\"][base64]]\n")
+	(insert "--[[application/pkcs7-mime; name=\"smime.p7m\"
+Content-Disposition: attachment; filename=\"smime.p7m\"
+Content-Description: S/MIME Encrypted Message][base64]]\n")
 	(insert-buffer-substring smime-output-buffer)
 	))))