+require 'tmpdir'
+
## Here we define all the "chunks" that a message is parsed
## into. Chunks are used by ThreadViewMode to render a message. Chunks
## are used for both MIME stuff like attachments, for Sup's parsing of
## notices like "this message was decrypted" or "this message contains
## a valid signature"---basically, anything we want to differentiate
## at display time.
-
+##
## A chunk can be inlineable, expandable, or viewable. If it's
## inlineable, #color and #lines are called and the output is treated
## as part of the message text. This is how Text and one-line Quotes
## #patina_text are called to generate a "patina" (a one-line widget,
## basically), and the user can press enter to toggle the display of
## the chunk content, which is generated from #color and #lines as
-## above. This is how Quote, Signature, and most widgets work.
+## above. This is how Quote, Signature, and most widgets
+## work. Exandable chunks can additionally define #initial_state to be
+## :open if they want to start expanded (default is to start collapsed).
##
## If it's not expandable but is viewable, a patina is displayed using
## #patina_color and #patina_text, but no toggling is allowed. Instead,
## if #view! is defined, pressing enter on the widget calls view! and
## (if that returns false) #to_s. Otherwise, enter does nothing. This
-## is how non-inlineable attachments work.
+## is how non-inlineable attachments work.
+##
+## Independent of all that, a chunk can be quotable, in which case it's
+## included as quoted text during a reply. Text, Quotes, and mime-parsed
+## attachments are quotable; Signatures are not.
module Redwood
module Chunk
Executes when decoding a MIME attachment.
Variables:
content_type: the content-type of the message
- filename: the filename of the attachment as saved to disk (generated
- on the fly, so don't call more than once)
+ filename: the filename of the attachment as saved to disk
sibling_types: if this attachment is part of a multipart MIME attachment,
an array of content-types for all attachments. Otherwise,
the empty array.
## raw_content is the post-MIME-decode content. this is used for
## saving the attachment to disk.
attr_reader :content_type, :filename, :lines, :raw_content
+ bool_reader :quotable
def initialize content_type, filename, encoded_content, sibling_types
@content_type = content_type
@filename = filename
- @raw_content = encoded_content.decode
+ @quotable = false # changed to true if we can parse it through the
+ # mime-decode hook, or if it's plain text
+ @raw_content =
+ if encoded_content.body
+ encoded_content.decode
+ else
+ "For some bizarre reason, RubyMail was unable to parse this attachment.\n"
+ end
@lines =
case @content_type
when /^text\/plain\b/
+ @quotable = true
Message.convert_from(@raw_content, encoded_content.charset).split("\n")
else
text = HookManager.run "mime-decode", :content_type => content_type,
:filename => lambda { write_to_disk },
:sibling_types => sibling_types
- text.split("\n") if text
+ if text
+ @quotable = true
+ text.split("\n")
+ end
end
end
## something we can display inline. otherwise, it's viewable.
def inlineable?; false end
def expandable?; !viewable? end
+ def initial_state; :open end
def viewable?; @lines.nil? end
def view!
path = write_to_disk
- system "/usr/bin/run-mailcap --action=view #{@content_type}:#{path} >& /dev/null"
+ system "/usr/bin/run-mailcap --action=view #{@content_type}:#{path} > /dev/null 2> /dev/null"
$? == 0
end
def write_to_disk
- file = Tempfile.new "redwood.attachment"
+ file =
+ if @filename
+ File.open File.join(Dir::tmpdir, @filename), "w"
+ else
+ Tempfile.new "redwood.attachment"
+ end
+
file.print @raw_content
file.close
file.path
@lines = lines.map { |l| l.chomp.wrap WRAP_LEN }.flatten # wrap
## trim off all empty lines except one
- lines.pop while lines.last =~ /^\s*$/
+ @lines.pop while @lines.length > 1 && @lines[-1] =~ /^\s*$/ && @lines[-2] =~ /^\s*$/
end
def inlineable?; true end
+ def quotable?; true end
def expandable?; false end
def viewable?; false end
def color; :none end
end
def inlineable?; @lines.length == 1 end
+ def quotable?; true end
def expandable?; !inlineable? end
def viewable?; false end
end
def inlineable?; @lines.length == 1 end
+ def quotable?; false end
def expandable?; !inlineable? end
def viewable?; false end
def color; :sig_color end
end
- class EnclosedMessageNotice
- attr_reader :from, :lines
+ class EnclosedMessage
+ attr_reader :lines
def initialize from, body
@from = from
@lines = body.split "\n"
end
+ def from
+ @from ? @from.longname : "unknown sender"
+ end
+
def inlineable?; false end
+ def quotable?; false end
def expandable?; true end
+ def initial_state; :open end
def viewable?; false end
def patina_color; :generic_notice_patina_color end
- def patina_text; "Begin enclosed message from #{@from.longname} (#{@lines.length} lines)" end
+ def patina_text; "Begin enclosed message from #{from} (#{@lines.length} lines)" end
def color; :quote_color end
end
def color; patina_color end
def inlineable?; false end
+ def quotable?; false end
def expandable?; !@lines.empty? end
def viewable?; false end
end
projects / sup / blobdiff