From 4e035e5bec0be629b2a2240808a32d0f280c9db6 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 17 Oct 2000 15:52:09 +0000 Subject: [PATCH] * wl.el (wl-check-environment): Don't check `wl-trash-folder' and `elmo-lost+found-folder' if 'wl-draft. * wl-draft.el (wl-draft): Call `wl-init' with 'wl-draft. --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 2 +- wl/wl.el | 3 ++- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 2fb239b..344c52d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2000-10-18 Kenichi OKADA + + * wl.el (wl-check-environment): Don't check `wl-trash-folder' + and `elmo-lost+found-folder' if 'wl-draft. + * wl-draft.el (wl-draft): Call `wl-init' with 'wl-draft. + 2000-10-17 Kenichi OKADA * wl-expire.el (wl-summary-expire): Change messages. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index f5c4926..659b0bc 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1309,7 +1309,7 @@ If optional argument is non-nil, current draft buffer is killed" (require 'wl)) (unless wl-init (wl-load-profile)) - (wl-init) ;; returns immediately if already initialized. + (wl-init 'wl-draft) ;; returns immediately if already initialized. (if (interactive-p) (setq summary-buf (wl-summary-get-buffer wl-summary-buffer-folder-name))) (let ((draft-folder-spec (elmo-folder-get-spec wl-draft-folder)) diff --git a/wl/wl.el b/wl/wl.el index 1a3566b..e093d11 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -721,7 +721,8 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (format "Queue Folder %s does not exist, create it?" wl-queue-folder)) (elmo-create-folder wl-queue-folder) - (error "Queue Folder is not created"))) + (error "Queue Folder is not created")))) + (when (not (eq no-check-folder 'wl-draft)) (unless (elmo-folder-exists-p wl-trash-folder) (if (y-or-n-p (format "Trash Folder %s does not exist, create it?" -- 1.7.10.4