* wl-summary.el (wl-summary-line-day-of-week): Ignore error.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eea91c9..65b8fb3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-02  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-line-day-of-week): Ignore error.
+
 2002-05-02  Yuuichi Teranishi  <teranisi@ns.templewest.net>
 
        * wl-summary.el (wl-summary-create-line): Bind variable `entity'

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 93da3ad..adfd087 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4030,9 +4030,11 @@ If ARG, exit virtual folder."
 (defun wl-summary-line-day ()
   (format "%02d" (aref wl-datevec 2)))
 (defun wl-summary-line-day-of-week ()
-  (elmo-date-get-week (aref wl-datevec 0)
-                     (aref wl-datevec 1)
-                     (aref wl-datevec 2)))
+  (condition-case nil
+      (elmo-date-get-week (aref wl-datevec 0)
+                         (aref wl-datevec 1)
+                         (aref wl-datevec 2))
+    (error "??")))
 (defun wl-summary-line-hour ()
   (format "%02d" (aref wl-datevec 3)))
 (defun wl-summary-line-minute ()