;; Created: 1994/7/13
;; Renamed: 1994/8/31 from tm-body.el
;; Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.4 $
+;; Version: $Revision: 0.11 $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(require 'tl-misc)
(require 'std11)
(require 'mel)
-(require 'tm-ew-d)
-(require 'tm-def)
-(require 'tm-parse)
+(require 'eword-decode)
+(require 'mime-parse)
(require 'mime-text)
;;;
(defconst mime-view-RCS-ID
- "$Id: mime-view.el,v 0.4 1997-02-21 05:29:42 tmorioka Exp $")
+ "$Id: mime-view.el,v 0.11 1997-02-24 01:59:28 tmorioka Exp $")
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
(defun mime-view-default-content-header-filter ()
(mime-preview/cut-header)
- (mime/decode-message-header)
+ (eword-decode-message-header)
)
(defvar mime-view-content-header-filter-alist nil)
(set-buffer ibuf)
))
(or mime-view-redisplay
- (setq mime::article/content-info (mime/parse-message ctl encoding))
+ (setq mime::article/content-info (mime-parse-message ctl encoding))
)
(let ((ret (mime-view-make-preview-buffer obuf)))
(setq mime::article/preview-buffer (car ret))
(save-restriction
(narrow-to-region beg end)
(setq subj
- (mime-eword/decode-string
+ (eword-decode-string
(mime-article/get-subject params encoding)))
)
(set-buffer obuf)
(copy-keymap default)
(make-sparse-keymap)
)))
- (or (keymapp default)
- (suppress-keymap mime-view-mode-map)
- )
(define-key mime-view-mode-map
"u" (function mime-view-up-content))
(define-key mime-view-mode-map
(define-key mime-view-mode-map
"\C-c\C-p" (function mime-view-print-content))
(define-key mime-view-mode-map
- "x" (function mime-view-display-x-face))
- (define-key mime-view-mode-map
"a" (function mime-view-follow-content))
(define-key mime-view-mode-map
"q" (function mime-view-quit))
))
(setq rest (cdr rest))
))
- (mime/decode-message-header)
+ (eword-decode-message-header)
)
(let ((f (cdr (assq mode mime-view-following-method-alist))))
(if (functionp f)