(mime-edit-preview-message): Set up local variable

`mime-edit-temp-message-buffer'.
(mime-edit-quitting-method): Refer `mime-edit-temp-message-buffer' to
avoid to use `mime-entity-buffer'.

diff --git a/mime-edit.el b/mime-edit.el
index 2df29b2..cd8b43b 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2741,19 +2741,18 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
        (replace-match "")
       )
     (mime-view-buffer)
-    ))
+    (make-local-variable 'mime-edit-temp-message-buffer)
+    (setq mime-edit-temp-message-buffer buf)))
 
 (defun mime-edit-quitting-method ()
   "Quitting method for mime-view."
-  (let* ((entity (get-text-property (point-min) 'mime-view-entity))
-        (temp (mime-entity-buffer entity))
+  (let* ((temp mime-edit-temp-message-buffer)
         buf)
     (mime-preview-kill-buffer)
     (set-buffer temp)
     (setq buf mime-edit-buffer)
     (kill-buffer temp)
-    (switch-to-buffer buf)
-    ))
+    (switch-to-buffer buf)))
 
 (set-alist 'mime-preview-quitting-method-alist
           'mime-temp-message-mode