1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
# lib/tmail_extensions.rb:
# Extensions / fixes to TMail.
#
# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email: francis@mysociety.org; WWW: http://www.mysociety.org/
#
# $Id: tmail_extensions.rb,v 1.6 2009-09-08 04:12:09 francis Exp $
# Monkeypatch!
# These mainly used in app/models/incoming_message.rb
module TMail
class Mail
# Monkeypatch! (check to see if this becomes a standard function in
# TMail::Mail, then use that, whatever it is called)
def Mail.get_part_file_name(part)
file_name = (part['content-location'] &&
part['content-location'].body) ||
part.sub_header("content-type", "name") ||
part.sub_header("content-disposition", "filename")
end
# Monkeypatch! Return the name part of from address, or nil if there isn't one
def from_name_if_present
if self.from && self.from_addrs[0].name
return self.from_addrs[0].name
else
return nil
end
end
# Generalisation of To:, Cc:
def envelope_to(default = nil)
# XXX assumes only one envelope-to, and no parsing needed
val = self.header_string('envelope-to')
return val ? [val,] : []
end
end
class Address
# Monkeypatch! Constructor which makes a TMail::Address given
# a name and an email
def Address.address_from_name_and_email(name, email)
if name.nil?
return TMail::Address.parse(email)
end
# Botch an always quoted RFC address, then parse it
name = name.gsub(/(["\\])/, "\\\\\\1")
return TMail::Address.parse('"' + name + '" <' + email + '>')
end
end
module TextUtils
# Monkeypatch! Much more aggressive list of characters to cause quoting
# than in normal TMail. e.g. Have found real cases where @ needs quoting.
# We list characters to allow, rather than characters not to allow.
NEW_PHRASE_UNSAFE=/[^A-Za-z0-9!#\$%&'*+\-\/=?^_`{|}~ ]/n
def quote_phrase( str )
(NEW_PHRASE_UNSAFE === str) ? dquote(str) : str
end
end
end
|
