From 0b1aaaef8be48f75f95f8d12ea0a30b6ad39dde8 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Mon, 17 Sep 2001 13:19:51 +0000
Subject: [PATCH] Fix type of wl-summary-width to accept nil. (Reported by
 Reuben Thomas <rrt@dcs.gla.ac.uk>).

---
 wl/ChangeLog  |    5 +++++
 wl/wl-vars.el |    3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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)
 
-- 
1.7.10.4