Revision 29da2972
Added by Marc Dequènes almost 14 years ago
- ID 29da2972f07c8f6087cd862929332fcf13626c85
| lib/cyborghood/mail.rb | ||
|---|---|---|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
#++
|
||
|
|
||
|
# add Rails load path for Debian, until rails framework is split properly
|
||
|
DEB_RAILS_PATH = "/usr/share/rails" unless Object.constants.include?("DEB_RAILS_PATH")
|
||
|
Dir.new(DEB_RAILS_PATH).each do |file|
|
||
|
next if file =~ /^\./
|
||
|
path = File.join(DEB_RAILS_PATH, file, "lib")
|
||
|
$: << path if File.directory?(path)
|
||
|
end
|
||
|
|
||
|
require 'delegate'
|
||
|
require 'tmail'
|
||
|
require 'tmail_gpg'
|
||
|
require 'action_mailer/quoting'
|
||
|
require 'action_mailer/utils'
|
||
|
require 'net/smtp'
|
||
|
require 'fileutils'
|
||
|
require 'digest/md5'
|
||
| ... | ... | |
|
end
|
||
|
|
||
|
class Mail < Delegator
|
||
|
include ActionMailer::Quoting
|
||
|
include ActionMailer::Utils
|
||
|
include I18nTranslation
|
||
|
|
||
|
DEFAULT_MAX_DRIFT_TIME = 3600
|
||
| ... | ... | |
|
elsif msg.is_a? TMail::Mail
|
||
|
@mail = msg
|
||
|
else
|
||
|
# unquote headers and transform into TMail object
|
||
|
@mail = TMail::Mail.parse(msg)
|
||
|
end
|
||
|
end
|
||
| ... | ... | |
|
@mail
|
||
|
end
|
||
|
|
||
|
def self.header_value_pretty(v)
|
||
|
TMail::Unquoter.unquote_and_convert_to(v.to_s, "UTF-8")
|
||
|
end
|
||
|
|
||
|
def self.header_value_smtp(v)
|
||
|
quote_address_if_necessary(v, "UTF-8")
|
||
|
end
|
||
|
|
||
|
["from", "to", "cc", "bcc"].each do |h|
|
||
|
class_eval <<-EOF
|
||
|
def #{h}_addrs_pretty
|
||
|
@mail.#{h}_addrs.collect do |a|
|
||
|
self.class.header_value_pretty(a)
|
||
|
end
|
||
|
end
|
||
|
|
||
|
def #{h}_pretty
|
||
|
self.#{h}_addrs_pretty.join(", ")
|
||
|
end
|
||
|
EOF
|
||
|
end
|
||
|
|
||
|
def subject_pretty
|
||
|
self.class.header_value_pretty(self.subject)
|
||
|
end
|
||
|
|
||
|
def process
|
||
|
if is_marked?
|
||
|
return MailReport.new(:error => _("Replay detected."))
|
||
| ... | ... | |
|
def create_reply
|
||
|
tmail_reply = @mail.create_reply
|
||
|
tmail_reply.from_addrs = TMail::Address.parse(@config.mail.from_address || self.to.first)
|
||
|
tmail_reply.to_addrs = (@mail.reply_to_addrs || @mail.from_addrs).collect do |a|
|
||
|
address = TMail::Unquoter.unquote_and_convert_to(a.to_s, "UTF-8")
|
||
|
quoted_address = quote_address_if_necessary(address, "UTF-8")
|
||
|
TMail::Address.parse(quoted_address)
|
||
|
tmail_reply.to_addrs = (@mail.reply_to_addrs_pretty || @mail.from_addrs_pretty).collect do |a|
|
||
|
TMail::Address.parse(@mail.class.header_value_smtp(a))
|
||
|
end
|
||
|
p tmail_reply.to_addrs
|
||
|
reply = self.class.new(tmail_reply.to_s)
|
||
|
reply.set_custom_headers
|
||
|
reply.user = self.user
|
||
| ... | ... | |
|
|
||
|
def check_headers
|
||
|
@mail.header.keys.each do |h|
|
||
|
@mail[h] = quote_address_if_necessary(@mail[h].to_s, "utf-8")
|
||
|
@mail[h] = @mail.class.quote_address_if_necessary(@mail[h].to_s, "utf-8")
|
||
|
end
|
||
|
end
|
||
|
|
||
| ... | ... | |
|
crypt(fingerprint)
|
||
|
end
|
||
|
|
||
|
def quoted_printable_body=(txt)
|
||
|
@mail.transfer_encoding = "quoted-printable"
|
||
|
@mail.body = [normalize_new_lines(txt)].pack("M")
|
||
|
end
|
||
|
|
||
|
private
|
||
|
|
||
|
def process_signed
|
||
Also available in: Unified diff
[evol] reorganize TMail extra methods