From b27be2664ccd84a3847dcad87b75f1183ebae621 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 7 Apr 2000 03:52:41 +0000 Subject: [PATCH] * wl-vars.el (wl-fldmgr-add-complete-with-current-folder-list): New variable. * wl-fldmgr.el (wl-fldmgr-add): Use it. --- wl/ChangeLog | 4 ++++ wl/wl-fldmgr.el | 6 ++++-- wl/wl-vars.el | 7 ++++++- 3 files changed, 14 insertions(+), 3 deletions(-) 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 + * 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 ;; 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 ;; 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 -- 1.7.10.4