From: tomo <tomo>
Date: Fri, 23 Jun 2000 04:31:50 +0000 (+0000)
Subject: (mime-edit-preview-message): Set up local variable
X-Git-Tag: emacs-21_0_90-semi-remi-1_14_2-0~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af059e56fd93cff0f65289c759a3dbd91ca43e7c;p=elisp%2Fsemi.git

(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
--- 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