From af059e56fd93cff0f65289c759a3dbd91ca43e7c Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 23 Jun 2000 04:31:50 +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'. --- mime-edit.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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 -- 1.7.10.4