From deec958767057af0f861df4f132e776f5f5ae1ff Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 27 Sep 2004 17:09:59 +0000 Subject: [PATCH] * wl-mime.el (mime-edit-temp-message-buffer): Remove definition. (wl-mime-quit-preview): Check existence of mime-edit-temp-message-buffer here. --- wl/ChangeLog | 6 ++++++ wl/wl-mime.el | 5 ++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8909bbe..ba1de9d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2004-09-27 Yoichi NAKAYAMA + + * wl-mime.el (mime-edit-temp-message-buffer): Remove definition. + (wl-mime-quit-preview): Check existence of + mime-edit-temp-message-buffer here. + 2004-09-26 Yoichi NAKAYAMA * wl-fldmgr.el (wl-fldmgr-delete): Remove folder entity diff --git a/wl/wl-mime.el b/wl/wl-mime.el index cde2156..5897748 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -39,8 +39,6 @@ (defalias-maybe 'pgg-display-output-buffer 'ignore) (defalias-maybe 'pgg-verify-region 'ignore)) -(defvar mime-edit-temp-message-buffer) - ;;; Draft (defalias 'wl-draft-editor-mode 'mime-edit-mode) @@ -218,7 +216,8 @@ It calls following-method selected from variable (defun wl-mime-quit-preview () "Quitting method for mime-view." - (let* ((temp mime-edit-temp-message-buffer) + (let* ((temp (and (boundp 'mime-edit-temp-message-buffer) ;; for SEMI <= 1.14.6 + mime-edit-temp-message-buffer)) (window (selected-window)) buf) (mime-preview-kill-buffer) -- 1.7.10.4