From: yoichi <yoichi>
Date: Mon, 17 Sep 2001 13:19:51 +0000 (+0000)
Subject: Fix type of wl-summary-width to accept nil.
X-Git-Tag: wl-2_7_4~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b1aaaef8be48f75f95f8d12ea0a30b6ad39dde8;p=elisp%2Fwanderlust.git

Fix type of wl-summary-width to accept nil.
(Reported by Reuben Thomas <rrt@dcs.gla.ac.uk>).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 224004d..d8b1d97 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-17  Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-summary-width): Fix type to accept nil.
+	(Reported by Reuben Thomas <rrt@dcs.gla.ac.uk>).
+
 2001-09-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-acap.el (toplevel): Added `product-provide' declare.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index cd5a79e..6a28dd5 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1286,7 +1286,8 @@ with wl-highlight-folder-many-face."
 
 (defcustom wl-summary-width 80
   "*Set summary line width if non nil."
-  :type 'integer
+  :type '(choice (const :tag "Don't truncate" nil)
+		 integer)
   :group 'wl-summary
   :group 'wl-pref)