From 332607b57602503a450dee788d93102fc9f99d90 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 23 Nov 2005 02:31:27 +0000 Subject: [PATCH] (modb-entity-extract-ml-info-from-mailman): New function. (modb-entity-extract-mailing-list-info-functions): Added it. --- elmo/ChangeLog | 6 ++++++ elmo/modb-entity.el | 9 +++++++++ 2 files changed, 15 insertions(+) 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 + + * 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 * 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)) -- 1.7.10.4