From 13cf5534fde3a1dae201e7b5c58d557de0246540 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 5 Jun 2001 02:42:01 +0000 Subject: [PATCH] Fixed regexp in `my-wl-summary-subject-func-ml'. (Thanks to Keiichiro Nagano ) --- samples/en/dot.wl | 3 ++- samples/ja/dot.wl | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4