From: kaoru <kaoru>
Date: Tue, 5 Jun 2001 02:42:01 +0000 (+0000)
Subject: Fixed regexp in `my-wl-summary-subject-func-ml'.
X-Git-Tag: wl-2_6-root~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=13cf5534fde3a1dae201e7b5c58d557de0246540;p=elisp%2Fwanderlust.git

Fixed regexp in `my-wl-summary-subject-func-ml'.
(Thanks to Keiichiro Nagano <knagano@sodan.org>)
---

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index be044b9..bad17f4 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -181,7 +181,8 @@
 		       (and sequence
 			    (cadr (split-string sequence " ")))))
     (if (string-match
-	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+;;;	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+         "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
 	 subject-string)
 	(progn
 	  (setq subj (substring subject-string (match-end 0)))
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 40af57d..b0f79fe 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -186,7 +186,8 @@
 		       (and sequence
 			    (cadr (split-string sequence " ")))))
     (if (string-match
-	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+;;;	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+         "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
 	 subject-string)
 	(progn
 	  (setq subj (substring subject-string (match-end 0)))