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