From: teranisi <teranisi>
Date: Fri, 7 Apr 2000 03:52:41 +0000 (+0000)
Subject: * wl-vars.el (wl-fldmgr-add-complete-with-current-folder-list):
X-Git-Tag: wl-1_1_1~59
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b27be2664ccd84a3847dcad87b75f1183ebae621;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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