From 09b8b8a922e6f95b8fbaafc59abc1ad5dca51afc Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 27 Sep 2004 17:05:40 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-temp-message-buffer): Define. * mime-play.el (mime-view-temp-message-buffer): Ditto. (mime-preview-quitting-method-for-mime-show-message-mode): Change accordingly. --- ChangeLog | 7 +++++++ mime-edit.el | 1 + mime-play.el | 5 +++-- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index fe9d0f8..ad44ba0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-09-27 Yoichi NAKAYAMA + + * mime-edit.el (mime-edit-temp-message-buffer): Define. + * mime-play.el (mime-view-temp-message-buffer): Ditto. + (mime-preview-quitting-method-for-mime-show-message-mode): Change + accordingly. + 2004-09-27 Katsumi Yamaoka * README.en, README.ja (CVS based development): Mention anonymous diff --git a/mime-edit.el b/mime-edit.el index 7c6c134..3156ec8 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -2733,6 +2733,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) ; buffer local variable (defun mime-edit-preview-message () "preview editing MIME message." diff --git a/mime-play.el b/mime-play.el index c537175..5fcea17 100644 --- a/mime-play.el +++ b/mime-play.el @@ -332,8 +332,7 @@ SUBTYPE is symbol to indicate subtype of media-type.") It is registered to variable `mime-preview-quitting-method-alist'." (let ((mother mime-mother-buffer) (win-conf mime-preview-original-window-configuration)) - (if (and (boundp 'mime-view-temp-message-buffer) - (buffer-live-p mime-view-temp-message-buffer)) + (if (buffer-live-p mime-view-temp-message-buffer) (kill-buffer mime-view-temp-message-buffer)) (mime-preview-kill-buffer) (set-window-configuration win-conf) @@ -378,6 +377,8 @@ occurs." (make-directory dir)) (set-default-file-modes orig-modes))))) +(defvar mime-view-temp-message-buffer nil) ; buffer local variable + (defun mime-store-message/partial-piece (entity cal) (let ((root-dir (expand-file-name -- 1.7.10.4