;; 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).
;;;
(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))
(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")
(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))
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)
(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)