* 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 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-18  Kenichi OKADA  <okada@opaopa.org>
+
+       * 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  <okada@opaopa.org>
 
        * wl-expire.el (wl-summary-expire): Change messages.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f5c4926..659b0bc 100644 (file)
--- 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 (file)
--- 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?"