From: yoichi <yoichi>
Date: Thu, 2 May 2002 15:23:15 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-line-day-of-week): Ignore error.
X-Git-Tag: elmo-mark-root~161
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ac20a204df070834ce540f0c5d699b8c120f0ba0;p=elisp%2Fwanderlust.git

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

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