(mime-entity-info-rnum): New inline function.

[elisp/semi.git] / mime-pgp.el

diff --git a/mime-pgp.el b/mime-pgp.el
index e705df1..0d27322 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -5,7 +5,7 @@
 ;; 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.18 1997-03-27 21:17:25 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.21 1997-09-05 08:13:57 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -103,12 +103,12 @@
     (set-window-buffer p-win mime-view-buffer)
     ))
 
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
           '((type . "application/pgp")
             (method . mime-article/view-application/pgp)
             ))
 
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
           '((type . "text/x-pgp")
             (method . mime-article/view-application/pgp)
             ))
@@ -178,10 +178,10 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
         (sig-file (concat orig-file ".sig"))
         )
     (save-excursion
-      (let ((p-min (mime::content-info/point-min oinfo))
-           (p-max (mime::content-info/point-max oinfo))
+      (let ((p-min (mime-entity-info-point-min oinfo))
+           (p-max (mime-entity-info-point-max oinfo))
            )
-       (set-buffer (get-buffer-create mime/temp-buffer-name))
+       (set-buffer (get-buffer-create mime-temp-buffer-name))
        (insert-buffer-substring raw-buf p-min p-max)
        )
       (goto-char (point-min))
@@ -198,7 +198,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                     (and (search-forward "\n\n")
                          (match-end 0))
                     )))
-       (set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
+       (set-buffer (setq kbuf (get-buffer-create mime-temp-buffer-name)))
        (insert-buffer-substring raw-buf p-min end)
        )
       (mime-decode-region (point-min)(point-max) encoding)
@@ -239,7 +239,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
       (delete-file sig-file)
       )))
 
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
           '((type . "application/pgp-signature")
             (method . mime-article/check-pgp-signature)
             ))
@@ -259,13 +259,13 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                 (1+ knum)))
         (oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
                                             mime::article/content-info))
-        (obeg (mime::content-info/point-min oinfo))
-        (oend (mime::content-info/point-max oinfo))
+        (obeg (mime-entity-info-point-min oinfo))
+        (oend (mime-entity-info-point-max oinfo))
         )
     (mime-article/view-application/pgp obeg oend cal)
     ))
 
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
           '((type . "application/pgp-encrypted")
             (method . mime-article/decrypt-pgp)
             ))
@@ -294,7 +294,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
     (kill-buffer (current-buffer))
     ))
 
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
           '((type . "application/pgp-keys")
             (method . mime-article/add-pgp-keys)
             ))