(mime-entity-safe-filename): Use `mime-entity-fetch-field' instead of

`mime-fetch-field'.
(mime-view-message/rfc822): New implementation.

diff --git a/mime-play.el b/mime-play.el
index c7ca316..c99b67b 100644 (file)
--- 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