From: hmurata <hmurata>
Date: Wed, 23 Nov 2005 02:31:27 +0000 (+0000)
Subject: (modb-entity-extract-ml-info-from-mailman): New
X-Git-Tag: wl-2_15_3~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=332607b57602503a450dee788d93102fc9f99d90;p=elisp%2Fwanderlust.git

(modb-entity-extract-ml-info-from-mailman): New
function.
(modb-entity-extract-mailing-list-info-functions): Added it.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 91f0b1d..3ba19f9 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-entity.el (modb-entity-extract-ml-info-from-mailman): New
+	function.
+	(modb-entity-extract-mailing-list-info-functions): Added it.
+
 2005-11-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* modb-legacy.el (elmo-msgdb-append-entity): Execute the process
diff --git a/elmo/modb-entity.el b/elmo/modb-entity.el
index b3b0759..f2174af 100644
--- a/elmo/modb-entity.el
+++ b/elmo/modb-entity.el
@@ -821,10 +821,19 @@ If each field is t, function is set as default converter."
 			     mailing-list))
       (cons (match-string 2 mailing-list) nil))))
 
+(defun modb-entity-extract-ml-info-from-mailman ()
+  (when (elmo-field-body "x-mailman-version")
+    (let ((list-id (elmo-decoded-field-body "list-id" 'summary)))
+      (when (and list-id
+		 (or (string-match "<\\([^.]+\\)\\." list-id)
+		     (string-match "^\\([^.]+\\)\\." list-id)))
+	(cons (match-string 1 list-id) nil)))))
+
 (defvar modb-entity-extract-mailing-list-info-functions
   '(modb-entity-extract-ml-info-from-x-sequence
     modb-entity-extract-ml-info-from-subject
     modb-entity-extract-ml-info-from-return-path
+    modb-entity-extract-ml-info-from-mailman
     modb-entity-extract-ml-info-from-delivered-to
     modb-entity-extract-ml-info-from-mailing-list))