From 8dffdbd22b135a621f486b3af8d61eb263d44215 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sun, 22 Jan 2006 12:48:36 +0000
Subject: [PATCH] * elmo-vars.el (elmo-mailing-list-name-spec-list): Fix
 list-id handling.

---
 elmo/ChangeLog    |    5 +++++
 elmo/elmo-vars.el |    3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a3d068b..c32830f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-vars.el (elmo-mailing-list-name-spec-list): Fix list-id
+	handling.
+
 2006-01-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-vars.el (elmo-mailing-list-name-spec-list): New user option.
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index ef20639..93af6ce 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -447,7 +447,8 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
     (x-sequence "^\\([^ ]+\\)")
     (subject "^\\s(\\(\\S)+\\)[ :][0-9]+\\s)[ \t]*")
     (list-post "<mailto:\\(.+\\)@")
-    (list-id ("\\(<\\|^\\)\\([^.]+\\)\\." . 2))
+    (list-id "<\\([^.]+\\)\\.")
+    (list-id "^\\([^.]+\\)\\.")
     (mailing-list ("\\(^\\|; \\)contact \\([^@]+\\)-[^-@]+@" . 2))
     (return-path "^<\\([^@>]+\\)-return-[0-9]+-")
     (delivered-to "^mailing list \\([^@]+\\)@"))
-- 
1.7.10.4