Mahlon E. Smith
7339802f34
- 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!
119 lines
2.5 KiB
Ruby
119 lines
2.5 KiB
Ruby
#!/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
|