From 83b64ee4165a3f5a8d041914a0aca61148db2be1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 27 Feb 1998 08:38:21 +0000
Subject: [PATCH] (mime-check-multipart/signed): New function.

---
 mime-pgp.el |   22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/mime-pgp.el b/mime-pgp.el
index e2cad57..6f36ad7 100644
--- 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.
-- 
1.7.10.4