From a53bd16bafbe9dd9553ffa194b4d9d2a71536375 Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Tue, 18 Dec 2001 11:01:48 +0000
Subject: [PATCH] * samples/ja/dot.wl,samples/en/dot.wl
 (my-wl-summary-subject-func-ml): Ignore error.

---
 ChangeLog         |    5 +++++
 samples/en/dot.wl |   20 +++++++++++---------
 samples/ja/dot.wl |   20 +++++++++++---------
 3 files changed, 27 insertions(+), 18 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b3d3ea6..dd581cf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* samples/ja/dot.wl,samples/en/dot.wl (my-wl-summary-subject-func-ml):
+	Ignore error.
+
 2001-12-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* WL-MK (config-wl-package-subr): Added APEL version check.
diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 62bedd0..7a72a56 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -213,15 +213,17 @@
 	  (setq subj (substring subject-string (match-end 0)))
 	  (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
 	  (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
-    (if (and ml-name ml-count)
-	(if (string= folder wl-default-folder)
-	    (format "(%s %05d) %s"
-		    (car (split-string ml-name " "))
-		    (string-to-int ml-count)
-		    subj)
-	  (format "#%05d %s"
-		  (string-to-int ml-count) subj))
-      subj)))
+    (condition-case nil
+	(if (and ml-name ml-count)
+	    (if (string= folder wl-default-folder)
+		(format "(%s %05d) %s"
+			(car (split-string ml-name " "))
+			(string-to-int ml-count)
+			subj)
+	      (format "#%05d %s"
+		      (string-to-int ml-count) subj))
+	  subj)
+      (error subj))))
 
 ;; imput asynchronously.
 ;; (utils/im-wl.el is needed to be installed.
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index fbfa3cd..3f9fa69 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -212,15 +212,17 @@
 	  (setq subj (substring subject-string (match-end 0)))
 	  (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
 	  (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
-    (if (and ml-name ml-count)
-	(if (string= folder wl-default-folder)
-	    (format "(%s %05d) %s"
-		    (car (split-string ml-name " "))
-		    (string-to-int ml-count)
-		    subj)
-	  (format "#%05d %s"
-		  (string-to-int ml-count) subj))
-      subj)))
+    (condition-case nil
+	(if (and ml-name ml-count)
+	    (if (string= folder wl-default-folder)
+		(format "(%s %05d) %s"
+			(car (split-string ml-name " "))
+			(string-to-int ml-count)
+			subj)
+	      (format "#%05d %s"
+		      (string-to-int ml-count) subj))
+	  subj)
+      (error subj))))
 
 ;; imput により非同期で送信する
 ;; (utils/im-wl.el をインストールしておく必要があります。
-- 
1.7.10.4