projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Function `eword-decode-message-header' was renamed to
[elisp/semi.git]
/
mime-view.el
diff --git
a/mime-view.el
b/mime-view.el
index
7e592db
..
39efedf
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.7 $
+;; Version: $Revision: 0.11 $
;; 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).
@@
-34,8
+34,7
@@
(require 'tl-misc)
(require 'std11)
(require 'mel)
(require 'tl-misc)
(require 'std11)
(require 'mel)
-(require 'tm-ew-d)
-(require 'tm-def)
+(require 'eword-decode)
(require 'mime-parse)
(require 'mime-text)
(require 'mime-parse)
(require 'mime-text)
@@
-44,7
+43,7
@@
;;;
(defconst mime-view-RCS-ID
;;;
(defconst mime-view-RCS-ID
- "$Id: mime-view.el,v 0.7 1997-02-21 08:04: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))
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
@@
-315,7
+314,7
@@
Each elements are regexp of field-name. [mime-view.el]")
(defun mime-view-default-content-header-filter ()
(mime-preview/cut-header)
(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)
)
(defvar mime-view-content-header-filter-alist nil)
@@
-504,7
+503,7
@@
The compressed face will be piped to this command.")
(save-restriction
(narrow-to-region beg end)
(setq subj
(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)
(mime-article/get-subject params encoding)))
)
(set-buffer obuf)
@@
-1008,7
+1007,7
@@
button-2 Move to point under the mouse cursor
))
(setq rest (cdr rest))
))
))
(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)
)
(let ((f (cdr (assq mode mime-view-following-method-alist))))
(if (functionp f)