;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;; Version: $Revision: 7.77 $
+;; Version: $Revision: 7.78 $
;; Keywords: mail, news, MIME, multimedia
;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.77 1996/09/23 13:15:09 morioka Exp $")
+ "$Id: tm-view.el,v 7.78 1996/12/05 12:17:54 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(defvar mime-viewer/following-method-alist nil)
+(defvar mime-viewer/following-required-fields-list
+ '("From"))
+
;;; @@ X-Face
;;;
rcnum (cdr rcnum))
)
)
+ (let ((rest mime-viewer/following-required-fields-list))
+ (while rest
+ (let ((field-name (car rest)))
+ (or (std11-field-body field-name)
+ (insert
+ (format
+ (concat field-name
+ ": "
+ (save-excursion
+ (set-buffer the-buf)
+ (set-buffer mime::preview/mother-buffer)
+ (set-buffer mime::preview/article-buffer)
+ (std11-field-body field-name)
+ )
+ "\n")))
+ ))
+ (setq rest (cdr rest))
+ ))
(mime/decode-message-header)
)
(funcall (cdr (assq mode mime-viewer/following-method-alist))