projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1f5e99e
)
`mime-preview/display-content' -> `mime-view-display-entity'.
author
morioka
<morioka>
Mon, 17 Mar 1997 15:02:53 +0000
(15:02 +0000)
committer
morioka
<morioka>
Mon, 17 Mar 1997 15:02:53 +0000
(15:02 +0000)
mime-view.el
patch
|
blob
|
history
diff --git
a/mime-view.el
b/mime-view.el
index
52fc682
..
7ea01f0
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
;; 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).
;; 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
;;;
(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))
(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
(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))
))
(setq pcl (cdr pcl)
drest (cdr drest))
))
@@
-480,7
+480,8
@@
The compressed face will be piped to this command.")
(list obuf dest)
))
(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))
(let* ((beg (mime::content-info/point-min content))
(end (mime::content-info/point-max content))
(ctype (mime::content-info/type content))