From: hmurata <hmurata>
Date: Wed, 9 Oct 2002 07:07:22 +0000 (+0000)
Subject: * wl-template.el (wl-template-select): Added optional argument.
X-Git-Tag: wl-2_11_1~114
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ec34c1380f06f1a30e7bd0c2250b29a4cb8beb2b;p=elisp%2Fwanderlust.git

* wl-template.el (wl-template-select): Added optional argument.
If optional argument is specified, reverse
`wl-template-visible-select'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b944e0b..07de2cf 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-template.el (wl-template-select): Added optional argument.
+	If optional argument is specified, reverse
+	`wl-template-visible-select'.
+
 2002-10-06  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-mime.el (wl-summary-burst): Get elmo folder correctly.
diff --git a/wl/wl-template.el b/wl/wl-template.el
index ddbf66a..b6c910f 100644
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -85,10 +85,12 @@ Entering WL-Template mode calls the value of `wl-template-mode-hook'."
   (setq buffer-read-only t)
   (run-hooks 'wl-template-mode-hook))
 
-(defun wl-template-select ()
+(defun wl-template-select (&optional arg)
   "Select template from `wl-template-alist'."
-  (interactive)
-  (if (not wl-template-visible-select)
+  (interactive "P")
+  (if (not (if arg
+	       (not wl-template-visible-select)
+	     wl-template-visible-select))
       (wl-template-apply
        (completing-read (format "Template (%s): " wl-template-default-name)
 			wl-template-alist))