From ac20a204df070834ce540f0c5d699b8c120f0ba0 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Thu, 2 May 2002 15:23:15 +0000
Subject: [PATCH] * wl-summary.el (wl-summary-line-day-of-week): Ignore error.

---
 wl/ChangeLog     |    4 ++++
 wl/wl-summary.el |    8 +++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eea91c9..65b8fb3 100644
--- 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
--- 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 ()
-- 
1.7.10.4