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 c979402..10d815b 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -23,20 +23,14 @@
 
 ;;; Commentary:
 
-;; This support creation of S/MIME parts in MML.
-
-;; Usage:
-;;    (mml-smime-setup)
-;; 
-;; Insert an attribute, postprocess=smime-sign (or smime-encrypt), into
-;; the mml tag to be signed (or encrypted).
-;;
-;; It is based on rfc2015.el by Shenghuo Zhu.
-
 ;;; Code:
 
 (require 'smime)
 
+(defun mml-smime-verify (handle ctl)
+  (smime-verify-buffer)
+  handle)
+
 ;;;###autoload
 (defun mml-smime-sign (cont)
   ;; FIXME: You have to input the sender.