From: morioka <morioka>
Date: Fri, 27 Feb 1998 08:38:21 +0000 (+0000)
Subject: (mime-check-multipart/signed): New function.
X-Git-Tag: semi-1_0_1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=83b64ee4165a3f5a8d041914a0aca61148db2be1;p=elisp%2Fsemi.git

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

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.