* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 \e$B$K$h$jHsF14|$GAw?.$9$k\e(B
 ;; (utils/im-wl.el \e$B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#\e(B