From 7fa4f17c38c7cfc0ef8343acb5d48cb760f1c935 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sun, 15 Jan 2006 13:27:24 +0000
Subject: [PATCH] fix the last change

---
 wl/wl-summary.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4