From: teranisi <teranisi>
Date: Tue, 18 Dec 2001 11:02:11 +0000 (+0000)
Subject: * samples/ja/dot.wl,samples/en/dot.wl (my-wl-summary-subject-func-ml):
X-Git-Tag: wl-2_8_0pre2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=98f4a5430352c67c5a2ac0b60e759f06993adf4a;p=elisp%2Fwanderlust.git

* samples/ja/dot.wl,samples/en/dot.wl (my-wl-summary-subject-func-ml):
Ignore error.
---

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 をインストールしておく必要があります。