* wl-vars.el (wl-fldmgr-add-complete-with-current-folder-list):

New variable.
* wl-fldmgr.el (wl-fldmgr-add): Use it.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9910e3d..bcd44da 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-04-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-vars.el (wl-fldmgr-add-complete-with-current-folder-list):
+       New variable.
+       * wl-fldmgr.el (wl-fldmgr-add): Use it.
+
        * wl.el (wl-plugged-init): Flush queues if started with plugged status.
 
        * wl-folder.el (wl-folder-flush-queue): Flush operation queue too.

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index d9f6c01..a498228 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -5,7 +5,7 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/14 19:34:28 teranisi>
+;; Time-stamp: <2000-04-07 10:40:40 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -826,7 +826,9 @@ return value is diffs '(-new -unread -all)."
     (beginning-of-line)
     (let ((ret-val nil)
          (inhibit-read-only t)
-         (wl-folder-completion-func (function wl-fldmgr-add-completion-subr))
+         (wl-folder-completion-func
+          (if wl-fldmgr-add-complete-with-current-folder-list
+              (function wl-fldmgr-add-completion-subr)))
          tmp indent path diffs)
       (if (bobp)
          (message "Can't insert in the out of desktop group")

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 3146152..2c9637a 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/25 00:19:06 teranisi>
+;; Time-stamp: <2000-04-07 10:40:28 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -1577,6 +1577,11 @@ ex.
   :type 'function
   :group 'wl-folder)
 
+(defcustom wl-fldmgr-add-complete-with-current-folder-list nil
+  "*If non-nil, completion for adding folder refers current folder list."
+  :type 'boolean
+  :group 'wl-folder)
+
 ;;; For Expire and Archive
 
 (defcustom wl-expire-alist nil