From mboxrd@z Thu Jan  1 00:00:00 1970
From: wmorgan-sup@masanjin.net (William Morgan)
Date: Mon, 31 Aug 2009 19:58:47 -0700
Subject: [sup-talk] [PATCH] Identify list messages by list-id if
	list-post is not present
In-Reply-To: <1251192579-sup-1849@elly>
References: <1251192579-sup-1849@elly>
Message-ID: <1251773879-sup-5227@masanjin.net>

Reformatted excerpts from Israel Herraiz's message of 2009-08-25:
> I am subscribed to some lists that do not fill the list-post header,
> but have a list-id header. I am not sure how standard-compliant is
> that, but it would nice if Sup could identify those messages as list
> messages.

Does this patch work for you?

diff --git a/lib/sup/message.rb b/lib/sup/message.rb
index ed27d3d..472b9dc 100644
--- a/lib/sup/message.rb
+++ b/lib/sup/message.rb
@@ -114,12 +114,11 @@ class Message
     @replytos = (header["in-reply-to"] || "").scan(/<(.+?)>/).map { |x| sanitize_me
 
     @replyto = Person.from_address header["reply-to"]
-    @list_address =
-      if header["list-post"]
-        @list_address = Person.from_address header["list-post"].gsub(/^<mailto:|>$/
-      else
-        nil
-      end
+    @list_address = if header["list-post"]
+      Person.from_address header["list-post"].gsub(/^<mailto:|>$/, "")
+    elsif header["list-id"]
+      Person.from_address header["list-id"].gsub(/^<:|>$/, "")
+    end
 
     @recipient_email = header["envelope-to"] || header["x-original-to"] || header["
     @source_marked_read = header["status"] == "RO"

-- 
William <wmorgan-sup at masanjin.net>