From: okada Date: Tue, 17 Oct 2000 15:52:09 +0000 (+0000) Subject: * wl.el (wl-check-environment): Don't check `wl-trash-folder' X-Git-Tag: wl-2_4-root~138 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e035e5bec0be629b2a2240808a32d0f280c9db6;p=elisp%2Fwanderlust.git * 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. --- 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?"