From f38ccf35fb6828f1ffe73269ca0bc87975c96e5d Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 15 Nov 1997 14:55:44 +0000 Subject: [PATCH] Rename `mime::article/content-info' -> `mime-raw-content-info'. --- mime-partial.el | 4 ++-- mime-pgp.el | 6 +++--- mime-view.el | 18 +++++++++--------- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/mime-partial.el b/mime-partial.el index 6f6428b..2c2cfa7 100644 --- a/mime-partial.el +++ b/mime-partial.el @@ -4,7 +4,7 @@ ;; Author: OKABE Yasuo @ Kyoto University ;; MORIOKA Tomohiko -;; 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 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; 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 --- 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)) -- 1.7.10.4