From: yoichi <yoichi>
Date: Sun, 15 Jan 2006 13:27:24 +0000 (+0000)
Subject: fix the last change
X-Git-Tag: wl-2_15_3~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7fa4f17c38c7cfc0ef8343acb5d48cb760f1c935;p=elisp%2Fwanderlust.git

fix the last change
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0d4df45..59a1f7d 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -999,11 +999,12 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	       (or ml-count (setq ml-count (match-string 2 return-path)))))
 	(or ml-name
 	    (and (setq list-post (elmo-message-entity-field entity 'list-post))
-		 (string-match "<mailto:\\(.+\\)@.+>" list-post)
+		 (string-match "<mailto:\\(.+\\)@" list-post)
 		 (setq ml-name (match-string 1 list-post))))
 	(or ml-name
 	    (and (setq list-id (elmo-message-entity-field entity 'list-id))
-		 (string-match "<\\([^.]+\\).*>" list-id)
+		 (or (string-match "<\\([^.]+\\)\\." list-id)
+		     (string-match "^\\([^.]+\\)\\." list-id))
 		 (setq ml-name (match-string 1 list-id))))
 	(or ml-name
 	    (and (setq delivered-to