From: hmurata <hmurata>
Date: Wed, 9 Feb 2005 16:32:40 +0000 (+0000)
Subject: (wl-template-select): Cause error if
X-Git-Tag: wl-2_14-root~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5eb6c5f2c1e88eb0efbc85225ee9b4a7f4553407;p=elisp%2Fwanderlust.git

(wl-template-select): Cause error if
`wl-template-alist' is nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b796cd4..2e78f75 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-template.el (wl-template-select): Cause error if
+	`wl-template-alist' is nil.
+
 2005-02-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-news.el.in: Set file variable `no-byte-compile'.
diff --git a/wl/wl-template.el b/wl/wl-template.el
index 21c106d..b1f9230 100644
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -93,6 +93,8 @@ Entering WL-Template mode calls the value of `wl-template-mode-hook'."
 (defun wl-template-select (&optional arg)
   "Select template from `wl-template-alist'."
   (interactive "P")
+  (unless wl-template-alist
+    (error "Please set `wl-template-alist'"))
   (if (not (if arg
 	       (not wl-template-visible-select)
 	     wl-template-visible-select))