;; Created: 1994/7/13
;; Renamed: 1994/8/31 from tm-body.el
;; Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.94 $
+;; Version: $Revision: 0.97 $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;;
(defconst mime-view-RCS-ID
- "$Id: mime-view.el,v 0.94 1997-06-24 16:15:47 morioka Exp $")
+ "$Id: mime-view.el,v 0.97 1997-07-14 15:15:17 morioka Exp $")
-(defconst mime-view-version (get-version-string mime-view-RCS-ID))
+(defconst mime-view-version
+ `,(get-version-string mime-view-RCS-ID))
+
+(defconst mime-view-version-name
+ `,(concat "SEMI MIME-View " mime-view-version
+ " (" semi-version-name ")"))
;;; @ variables
(method . mime-display-message/external-ftp)
)
((type . "message/rfc822")
- (method . mime-article/view-message/rfc822)
+ (method . mime-display-message/rfc822)
(mode . "play")
)
((type . "message/partial")
rcnum cinfo ctype params subj encoding)
)
((equal ctype "message/partial")
- (mime-preview/display-message/partial)
+ (mime-view-insert-message/partial-button)
)
((and (null rcnum)
(null (mime::content-info/children cinfo))
)
)))
-(defun mime-preview/display-message/partial ()
+(defun mime-view-insert-message/partial-button ()
(save-restriction
(goto-char (point-max))
(if (not (search-backward "\n\n" nil t))