projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-preview/decode-text-buffer): New implementation.
[elisp/semi.git]
/
mime-view.el
diff --git
a/mime-view.el
b/mime-view.el
index
a4bdaa6
..
6d937b1
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.20 $
+;; Version: $Revision: 0.23 $
;; 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.20 1997-02-28 05:34:21 tmorioka Exp $")
+ "$Id: mime-view.el,v 0.23 1997-03-15 20:51:02 morioka Exp $")
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
@@
-121,6
+121,10
@@
(method . mime-article/decode-message/partial)
(mode . "play")
)
(method . mime-article/decode-message/partial)
(mode . "play")
)
+ ((type . "message/external-body")
+ ("access-type" . "anon-ftp")
+ (method . mime-article/decode-message/external-ftp)
+ )
((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
(mode . "play")
((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
(mode . "play")
@@
-245,8
+249,8
@@
Each elements are regexp of field-name. [mime-view.el]")
(if server
(insert (format "[%s %s ([%s] %s)]\n" num subj
access-type (cdr server)))
(if server
(insert (format "[%s %s ([%s] %s)]\n" num subj
access-type (cdr server)))
- (let ((site (assoc-value "site" params))
- (dir (assoc-value "directory" params))
+ (let ((site (cdr (assoc "site" params)))
+ (dir (cdr (assoc "directory" params)))
)
(insert (format "[%s %s ([%s] %s:%s)]\n" num subj
access-type site dir))
)
(insert (format "[%s %s ([%s] %s:%s)]\n" num subj
access-type site dir))
@@
-946,9
+950,7
@@
button-2 Move to point under the mouse cursor
new-buf
(the-buf (current-buffer))
(a-buf mime::preview/article-buffer)
new-buf
(the-buf (current-buffer))
(a-buf mime::preview/article-buffer)
- (hb (mime::content-info/point-min cinfo))
- (he (mime::content-info/point-max cinfo))
- fields from to cc reply-to subj mid f)
+ fields)
(save-excursion
(set-buffer (setq new-buf (get-buffer-create new-name)))
(erase-buffer)
(save-excursion
(set-buffer (setq new-buf (get-buffer-create new-name)))
(erase-buffer)
@@
-978,8
+980,8
@@
button-2 Move to point under the mouse cursor
(concat "^"
(apply (function regexp-or) fields)
":") ""))))
(concat "^"
(apply (function regexp-or) fields)
":") ""))))
- (if (string-equal (mime::content-info/type ci)
- "message/rfc822")
+ (if (string= (mime::content-info/type ci)
+ "message/rfc822")
nil
(if str
(insert str)
nil
(if str
(insert str)