From 197b89239dfaf3220983dd87491d290dbd2b386e Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 3 Jul 2000 07:45:59 +0000 Subject: [PATCH] (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. --- ChangeLog | 9 +++++++++ mime-edit.el | 8 +++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index e9d4878..7670a06 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2000-07-03 Yuuichi Teranishi + + * 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 * 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) -- 1.7.10.4