From 5501020d184869bbef37dab4c4bffd6b9ebffd84 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 17 Mar 1997 15:02:53 +0000 Subject: [PATCH] `mime-preview/display-content' -> `mime-view-display-entity'. --- mime-view.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index 52fc682..7ea01f0 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.50 $ +;; Version: $Revision: 0.51 $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -40,7 +40,7 @@ ;;; (defconst mime-view-RCS-ID - "$Id: mime-view.el,v 0.50 1997-03-17 15:01:11 morioka Exp $") + "$Id: mime-view.el,v 0.51 1997-03-17 15:02:53 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -470,7 +470,7 @@ The compressed face will be piped to this command.") (let ((drest dest)) (while pcl (setcar drest - (mime-preview/display-content (car pcl) cinfo the-buf obuf)) + (mime-view-display-entity (car pcl) cinfo the-buf obuf)) (setq pcl (cdr pcl) drest (cdr drest)) )) @@ -480,7 +480,8 @@ The compressed face will be piped to this command.") (list obuf dest) )) -(defun mime-preview/display-content (content cinfo ibuf obuf) +(defun mime-view-display-entity (content cinfo ibuf obuf) + "Display entity from content-info CONTENT." (let* ((beg (mime::content-info/point-min content)) (end (mime::content-info/point-max content)) (ctype (mime::content-info/type content)) -- 1.7.10.4