From 78ff650b675257026b73adb3a8c2180d95feee3a Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 27 Sep 2004 17:06:14 +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 e554bb5..95d6f95 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 (CVS based development): Mention anonymous CVS access; diff --git a/mime-edit.el b/mime-edit.el index 5ab135a..3eff0ef 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -2480,6 +2480,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 e0b646a..f4b5ddb 100644 --- a/mime-play.el +++ b/mime-play.el @@ -314,8 +314,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) @@ -359,6 +358,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