1 ## Here we define all the "chunks" that a message is parsed
2 ## into. Chunks are used by ThreadViewMode to render a message. Chunks
3 ## are used for both MIME stuff like attachments, for Sup's parsing of
4 ## the message body into text, quote, and signature regions, and for
5 ## notices like "this message was decrypted" or "this message contains
6 ## a valid signature"---basically, anything we want to differentiate
9 ## A chunk can be inlineable, expandable, or viewable. If it's
10 ## inlineable, #color and #lines are called and the output is treated
11 ## as part of the message text. This is how Text and one-line Quotes
12 ## and Signatures work.
14 ## If it's not inlineable but is expandable, #patina_color and
15 ## #patina_text are called to generate a "patina" (a one-line widget,
16 ## basically), and the user can press enter to toggle the display of
17 ## the chunk content, which is generated from #color and #lines as
18 ## above. This is how Quote, Signature, and most widgets
19 ## work. Exandable chunks can additionally define #initial_state to be
20 ## :open if they want to start expanded (default is to start collapsed).
22 ## If it's not expandable but is viewable, a patina is displayed using
23 ###patina_color and #patina_text, but no toggling is allowed. Instead,
24 ##if #view! is defined, pressing enter on the widget calls view! and
25 ##(if that returns false) #to_s. Otherwise, enter does nothing. This
26 ##is how non-inlineable attachments work.
31 HookManager.register "mime-decode", <<EOS
32 Executes when decoding a MIME attachment.
34 content_type: the content-type of the message
35 filename: the filename of the attachment as saved to disk (generated
36 on the fly, so don't call more than once)
37 sibling_types: if this attachment is part of a multipart MIME attachment,
38 an array of content-types for all attachments. Otherwise,
41 The decoded text of the attachment, or nil if not decoded.
45 ## raw_content is the post-MIME-decode content. this is used for
46 ## saving the attachment to disk.
47 attr_reader :content_type, :filename, :lines, :raw_content
49 def initialize content_type, filename, encoded_content, sibling_types
50 @content_type = content_type
53 if encoded_content.body
54 encoded_content.decode
56 "For some bizarre reason, RubyMail was unable to parse this attachment.\n"
62 Message.convert_from(@raw_content, encoded_content.charset).split("\n")
64 text = HookManager.run "mime-decode", :content_type => content_type,
65 :filename => lambda { write_to_disk },
66 :sibling_types => sibling_types
67 text.split("\n") if text
72 def patina_color; :attachment_color end
75 "Attachment: #{filename} (#{lines.length} lines)"
77 "Attachment: #{filename} (#{content_type})"
81 ## an attachment is exapndable if we've managed to decode it into
82 ## something we can display inline. otherwise, it's viewable.
83 def inlineable?; false end
84 def expandable?; !viewable? end
85 def initial_state; :open end
86 def viewable?; @lines.nil? end
89 system "/usr/bin/run-mailcap --action=view #{@content_type}:#{path} > /dev/null 2> /dev/null"
94 file = Tempfile.new "redwood.attachment"
95 file.print @raw_content
100 ## used when viewing the attachment as text
102 @lines || @raw_content
107 WRAP_LEN = 80 # wrap at this width
111 @lines = lines.map { |l| l.chomp.wrap WRAP_LEN }.flatten # wrap
113 ## trim off all empty lines except one
114 @lines.pop while @lines.length > 1 && @lines[-1] =~ /^\s*$/ && @lines[-2] =~ /^\s*$/
117 def inlineable?; true end
118 def expandable?; false end
119 def viewable?; false end
129 def inlineable?; @lines.length == 1 end
130 def expandable?; !inlineable? end
131 def viewable?; false end
133 def patina_color; :quote_patina_color end
134 def patina_text; "(#{lines.length} quoted lines)" end
135 def color; :quote_color end
144 def inlineable?; @lines.length == 1 end
145 def expandable?; !inlineable? end
146 def viewable?; false end
148 def patina_color; :sig_patina_color end
149 def patina_text; "(#{lines.length}-line signature)" end
150 def color; :sig_color end
153 class EnclosedMessage
155 def initialize from, body
157 @lines = body.split "\n"
161 @from ? @from.longname : "unknown sender"
164 def inlineable?; false end
165 def expandable?; true end
166 def initial_state; :open end
167 def viewable?; false end
169 def patina_color; :generic_notice_patina_color end
170 def patina_text; "Begin enclosed message from #{from} (#{@lines.length} lines)" end
172 def color; :quote_color end
176 attr_reader :lines, :status, :patina_text
178 def initialize status, description, lines=[]
180 @patina_text = description
186 when :valid: :cryptosig_valid_color
187 when :invalid: :cryptosig_invalid_color
188 else :cryptosig_unknown_color
191 def color; patina_color end
193 def inlineable?; false end
194 def expandable?; !@lines.empty? end
195 def viewable?; false end