Rename `mime::article/content-info' -> `mime-raw-content-info'.

diff --git a/mime-partial.el b/mime-partial.el
index 6f6428b..2c2cfa7 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -4,7 +4,7 @@
 
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-partial.el,v 0.10 1997-09-05 11:29:06 morioka Exp $ 
+;; Version: $Id: mime-partial.el,v 0.11 1997-11-15 14:55:40 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -80,7 +80,7 @@ partial messages using mime-view."
              (mime-view-partial-message target)
              (set-buffer article-buffer)
              (setq parameters
-                   (mime-entity-info-parameters mime::article/content-info))
+                   (mime-entity-info-parameters mime-raw-content-info))
              (setq the-id (cdr (assoc "id" parameters)))
              (if (string= the-id id)
                  (progn

diff --git a/mime-pgp.el b/mime-pgp.el
index db6635c..c6236a3 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.22 1997-10-03 11:57:05 shuhei-k Exp $
+;; Version: $Id: mime-pgp.el,v 0.23 1997-11-15 14:55:43 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -171,7 +171,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                 (1+ knum)))
         (raw-buf (current-buffer))
         (oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
-                                            mime::article/content-info))
+                                            mime-raw-content-info))
         kbuf
         (basename (expand-file-name "tm" mime-temp-directory))
         (orig-file (make-temp-name basename))
@@ -258,7 +258,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                   (1- knum)
                 (1+ knum)))
         (oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
-                                            mime::article/content-info))
+                                            mime-raw-content-info))
         (obeg (mime-entity-info-point-min oinfo))
         (oend (mime-entity-info-point-max oinfo))
         )

diff --git a/mime-view.el b/mime-view.el
index 7c0cf21..9458b16 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.115 $
+;; Version: $Revision: 0.116 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -39,7 +39,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.115 1997-09-25 15:04:59 morioka Exp $")
+  "$Id: mime-view.el,v 0.116 1997-11-15 14:55:44 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -337,7 +337,7 @@ Please redefine this function if you want to change default setting."
 ;;; @@@ in raw buffer
 ;;;
 
-(defvar mime::article/content-info
+(defvar mime-raw-content-info
   "Information about structure of message.
 Please use reference function `mime::content-info/SLOT-NAME' to
 reference slot of content-info.  Their argument is only content-info.
@@ -355,7 +355,7 @@ children    entities included in this entity (list of content-infos)
 If a entity includes other entities in its body, such as multipart or
 message/rfc822, content-infos of other entities are included in
 `children', so content-info become a tree.")
-(make-variable-buffer-local 'mime::article/content-info)
+(make-variable-buffer-local 'mime-raw-content-info)
 
 (defvar mime-view-buffer nil
   "MIME View buffer corresponding with the (raw) buffer.")
@@ -449,9 +449,9 @@ The compressed face will be piped to this command.")
        (set-buffer ibuf)
        ))
   (or mime-view-redisplay
-      (setq mime::article/content-info (mime-parse-message ctl encoding))
+      (setq mime-raw-content-info (mime-parse-message ctl encoding))
       )
-  (let* ((cinfo mime::article/content-info)
+  (let* ((cinfo mime-raw-content-info)
         (pcl (mime/flatten-content-info cinfo))
         (the-buf (current-buffer))
         (mode major-mode)
@@ -617,7 +617,7 @@ The compressed face will be piped to this command.")
 
 (defun mime-article/point-content-number (p &optional cinfo)
   (or cinfo
-      (setq cinfo mime::article/content-info)
+      (setq cinfo mime-raw-content-info)
       )
   (let ((b (mime-entity-info-point-min cinfo))
        (e (mime-entity-info-point-max cinfo))
@@ -643,7 +643,7 @@ The compressed face will be piped to this command.")
 
 (defun mime-article/cnum-to-cinfo (cn &optional cinfo)
   (or cinfo
-      (setq cinfo mime::article/content-info)
+      (setq cinfo mime-raw-content-info)
       )
   (if (eq cn t)
       cinfo
@@ -658,7 +658,7 @@ The compressed face will be piped to this command.")
 
 (defun mime/flatten-content-info (&optional cinfo)
   (or cinfo
-      (setq cinfo mime::article/content-info)
+      (setq cinfo mime-raw-content-info)
       )
   (let ((dest (list cinfo))
        (rcl (mime-entity-info-children cinfo))