From: yamaoka <yamaoka>
Date: Wed, 5 Sep 2001 23:29:15 +0000 (+0000)
Subject: Use Posix regexp more.
X-Git-Tag: wl-2_7_4~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5e4c5471ce12ea55bde8b2d7f6690973fb2aa97b;p=elisp%2Fwanderlust.git

Use Posix regexp more.
---

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)