(mime-view-message/rfc822): Don't expect called in raw-buffer.

diff --git a/mime-play.el b/mime-play.el
index f412dd9..6a2fc1a 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -500,7 +500,7 @@ 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)))
-        (mother mime-preview-buffer)
+        (mother (current-buffer))
         (children (car (mime-entity-children entity))))
     (set-buffer (get-buffer-create new-name))
     (erase-buffer)