2000-11-05 Simon Josefsson <sj@extundo.com>

[gnus] / lisp / mml-smime.el

diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index b25e36b..d0b2d63 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -30,8 +30,18 @@
 (require 'smime)
 
 (defun mml-smime-verify (handle ctl)
-  (smime-verify-buffer)
-  handle)
+  (with-current-buffer (mm-handle-original-buffer ctl)
+    ;; xxx modifies buffer -- noone else uses the buffer, so what the heck
+    (goto-char (point-min))
+    (insert (format "Content-Type: %s; " (mm-handle-media-type ctl)))
+    (insert (format "protocol=\"%s\"; " 
+                   (mm-handle-multipart-ctl-parameter ctl 'protocol)))
+    (insert (format "micalg=\"%s\"; " 
+                   (mm-handle-multipart-ctl-parameter ctl 'micalg)))
+    (insert (format "boundary=\"%s\"\n\n"
+                   (mm-handle-multipart-ctl-parameter ctl 'boundary)))
+    (smime-verify-buffer)
+    handle))
 
 (provide 'mml-smime)