Everything is workin!

- Add a corpus of test messages to the spec data, with
   the script that generated them.
 - Add native objects for Authors, Messages, and Threads.
 - Tests!

lib/ezmlm/list/message.rb

@@ -0,0 +1,119 @@
+#!/usr/bin/ruby
+# vim: set nosta noet ts=4 sw=4:
+#
+# An individual list message.
+#
+#    message = Ezmlm::List::Message.new( list, 24 )
+#    message.thread    #=> (a thread object this message is part of)
+#    message.from      #=> ["jalon.hermann@example.com"]
+#    puts message.to_s #=> (raw email)
+#
+# This class passes all heavy lifting to the Mail::Message library.
+# Please see it for specifics on usage.
+#
+# == Version
+#
+#  $Id$
+#
+#---
+
+require 'pathname'
+require 'ezmlm' unless defined?( Ezmlm )
+require 'mail'
+
+
+### A Ruby interface to an individual list message.
+###
+class Ezmlm::List::Message
+
+	### Instantiate a new messag from a +list+ and a +message_number+.
+	###
+	def initialize( list, message_number=0 )
+		raise ArgumentError, "Unknown list object." unless list.respond_to?( :listdir )
+		raise ArgumentError, "Invalid message number (impossible)" if message_number < 1
+		raise ArgumentError, "Invalid message number (out of list bounds)" if message_number > list.message_count
+
+		@list = list
+		@id   = message_number
+		@post = self.load_message
+	end
+
+
+	# The list object this message is stored in.
+	attr_reader :list
+
+	# The list message delivery identifier.
+	attr_reader :id
+
+	# The Mail::Message object for this post.
+	attr_reader :post
+
+
+	### Return the thread object this message is
+	### a member of.
+	###
+	def thread
+		unless @thread_id
+			idx = self.list.index
+			@thread_id = idx[ self.id - 1 ][ :thread ]
+		end
+
+		return Ezmlm::List::Thread.new( self.list, @thread_id )
+	end
+
+
+	### Return the author object this message is
+	### a member of.
+	###
+	def author
+		unless @author_id
+			idx = self.list.index
+			@author_id = idx[ self.id - 1 ][ :author ]
+		end
+
+		return Ezmlm::List::Author.new( self.list, @author_id )
+	end
+
+
+	### Render the message as a string.
+	###
+	def to_s
+		return self.post.to_s
+	end
+
+	### Provide implicit arrays (Mail::Message does not.)
+	###
+	def to_ary
+		return [ self.post ]
+	end
+
+
+	### Pass all unknown methods to the underlying Mail::Message object.
+	###
+	def method_missing( meth, *args )
+		return self.post.method( meth ).call( *args )
+	end
+
+
+	#########
+	protected
+	#########
+
+	### Parse the message into a Mail::Message.
+	###
+	def load_message
+		path = self.message_path
+		raise "Unable to determine message path: %p" % [ path ] unless path.exist?
+		return Mail.read( path.to_s )
+	end
+
+
+	### Return the path on disk for the message.
+	###
+	def message_path
+		hashdir = self.id / 100
+		message = "%02d" % [ self.id % 100 ]
+		return self.list.listdir + 'archive' + hashdir.to_s + message.to_s
+	end
+
+end # class Ezmlm::List::Message