From ec34c1380f06f1a30e7bd0c2250b29a4cb8beb2b Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 9 Oct 2002 07:07:22 +0000 Subject: [PATCH] * wl-template.el (wl-template-select): Added optional argument. If optional argument is specified, reverse `wl-template-visible-select'. --- wl/ChangeLog | 6 ++++++ wl/wl-template.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * wl-template.el (wl-template-select): Added optional argument. + If optional argument is specified, reverse + `wl-template-visible-select'. + 2002-10-06 Yoichi NAKAYAMA * 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)) -- 1.7.10.4