(mime-check-multipart/signed): New function.

diff --git a/mime-pgp.el b/mime-pgp.el
index e2cad57..6f36ad7 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -1,11 +1,11 @@
 ;;; mime-pgp.el --- mime-view internal methods for PGP.
 
-;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/12/7
 ;;     Renamed: 1997/2/27 from tm-pgp.el
-;; Version: $Id: mime-pgp.el,v 0.28 1997-11-20 13:24:20 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 1.1 1998-02-27 08:38:21 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (Secure Emacs MIME Interface).
@@ -114,6 +114,24 @@
             ))
 
 
+;;; @ Internal method for multipart/signed
+;;;
+
+(defun mime-check-multipart/signed (beg end cal)
+  "Internal method to check multipart/signed."
+  (let* ((rcnum (reverse (mime-article/point-content-number beg)))
+        (oinfo (mime-article/rcnum-to-cinfo (cons '1 rcnum)
+                                            mime-raw-content-info))
+        )
+    (mime-display-content oinfo (cdr (assq 'mode cal)))
+    ))
+
+(set-atype 'mime-acting-condition
+          '((type . "multipart/signed")
+            (method . mime-check-multipart/signed)
+            ))
+
+
 ;;; @ Internal method for application/pgp-signature
 ;;;
 ;;; It is based on RFC 2015.