;; Created: 1994/7/13
;; Renamed: 1994/8/31 from tm-body.el
;; Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.6 $
+;; Version: $Revision: 0.16 $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;; Code:
-(require 'tl-str)
-(require 'tl-list)
+(require 'cl)
(require 'tl-atype)
-(require 'tl-misc)
(require 'std11)
(require 'mel)
-(require 'tm-ew-d)
-(require 'tm-def)
+(require 'eword-decode)
(require 'mime-parse)
(require 'mime-text)
;;;
(defconst mime-view-RCS-ID
- "$Id: mime-view.el,v 0.6 1997-02-21 07:42:32 tmorioka Exp $")
+ "$Id: mime-view.el,v 0.16 1997-02-24 09:58:14 tmorioka Exp $")
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
(narrow-to-region (point)(point))
(let ((access-type (assoc "access-type" params))
(charset (assoc "charset" params))
- (num (or (assoc-value "x-part-number" params)
+ (num (or (cdr (assoc "x-part-number" params))
(if (consp rcnum)
(mapconcat (function
(lambda (num)
(defun mime-view-default-content-header-filter ()
(mime-preview/cut-header)
- (mime/decode-message-header)
+ (eword-decode-header)
)
(defvar mime-view-content-header-filter-alist nil)
(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
))
(setq rest (cdr rest))
))
- (mime/decode-message-header)
+ (eword-decode-header)
)
(let ((f (cdr (assq mode mime-view-following-method-alist))))
(if (functionp f)