* 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 (file)
--- 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 (file)
--- 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))