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