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