From c8d88d38825f756be8b2ea31813f18df20fe0e18 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Jul 1999 14:33:31 +0000 Subject: [PATCH] (mime-entity-safe-filename): Use `mime-entity-fetch-field' instead of `mime-fetch-field'. (mime-view-message/rfc822): New implementation. --- mime-play.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/mime-play.el b/mime-play.el index c7ca316..c99b67b 100644 --- a/mime-play.el +++ b/mime-play.el @@ -431,8 +431,8 @@ window.") (let ((filename (or (mime-entity-filename entity) (let ((subj - (or (mime-read-field 'Content-Description entity) - (mime-read-field 'Subject entity)))) + (or (mime-entity-read-field entity 'Content-Description) + (mime-entity-read-field entity 'Subject)))) (if (and subj (or (string-match mime-view-file-name-regexp-1 subj) (string-match mime-view-file-name-regexp-2 subj))) @@ -532,16 +532,17 @@ It is registered to variable `mime-preview-quitting-method-alist'." (defun mime-view-message/rfc822 (entity situation) (let* ((new-name (format "%s-%s" (buffer-name) (mime-entity-number entity))) + (new-pbuf (get-buffer-create new-name)) (mother (current-buffer)) (children (car (mime-entity-children entity)))) - (set-buffer (get-buffer-create new-name)) - (erase-buffer) - (mime-insert-entity children) - (setq mime-message-structure children) - (setq major-mode 'mime-show-message-mode) - (mime-view-buffer (current-buffer) nil mother - nil (if (mime-entity-cooked-p entity) 'cooked)) - )) + (with-current-buffer new-pbuf + (erase-buffer)) + (mime-display-entity + children nil + (list (assq 'major-mode + (get-text-property (point) + 'mime-view-situation))) + new-pbuf))) ;;; @ message/partial -- 1.7.10.4