From: teranisi <teranisi>
Date: Mon, 3 Jul 2000 07:45:59 +0000 (+0000)
Subject: (mime-edit-preview-message): Set up local variable
X-Git-Tag: emy-1_13_8~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=197b89239dfaf3220983dd87491d290dbd2b386e;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'.
(Synch with latest remi-1_14)
(mime-edit-temp-message-buffer): Defined.
---

diff --git a/ChangeLog b/ChangeLog
index e9d4878..7670a06 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2000-07-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mime-edit.el (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'.
+	(Synch with latest remi-1_14)
+	(mime-edit-temp-message-buffer): Defined.
+
 2000-06-27   Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-image.el (mime-image-insert): Synch with the latest image.el.
diff --git a/mime-edit.el b/mime-edit.el
index 920cfb1..1b64ec0 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2652,6 +2652,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 ;;;
 
 (defvar mime-edit-buffer nil) ; buffer local variable
+(defvar mime-edit-temp-message-buffer nil)
 
 (defun mime-edit-preview-message ()
   "preview editing MIME message."
@@ -2683,12 +2684,13 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
     (if (re-search-forward
 	 (concat "^" (regexp-quote separator) "$"))
 	(replace-match ""))
-    (mime-view-buffer)))
+    (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-buffer-entity-buffer-internal entity))
+  (let* ((temp mime-edit-temp-message-buffer)
 	 buf)
     (mime-preview-kill-buffer)
     (set-buffer temp)