From 5e4c5471ce12ea55bde8b2d7f6690973fb2aa97b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 5 Sep 2001 23:29:15 +0000 Subject: [PATCH] Use Posix regexp more. --- wl/wl-e21.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wl/wl-e21.el b/wl/wl-e21.el index 796c2f5..edcf99a 100644 --- a/wl/wl-e21.el +++ b/wl/wl-e21.el @@ -290,7 +290,7 @@ corresponding to the mode line clicked." (let ((inhibit-read-only t)) (if (and wl-highlight-folder-by-numbers numbers (nth 0 numbers) (nth 1 numbers) - (re-search-forward "[[:digit:]-]+/[[:digit:]-]+/[[:digit:]-]+" + (re-search-forward "[-[:digit:]]+/[-[:digit:]]+/[-[:digit:]]+" (line-end-position) t)) (let* ((unsync (nth 0 numbers)) (unread (nth 1 numbers)) @@ -342,7 +342,7 @@ corresponding to the mode line clicked." (;; basic folder (and (setq fld-name (wl-folder-get-folder-name-by-id (get-text-property (point) 'wl-folder-entity-id))) - (looking-at "[[:blank:]]+\\([^\t\n ]+\\)")) + (looking-at "[[:blank:]]+\\([[:blank:]\n]+\\)")) (setq start (match-beginning 1) end (match-end 1)) (let (image) -- 1.7.10.4