git.cworth.org Git - sup/blob - lib/sup/modes/forward-mode.rb

   1 module Redwood
   2
   3 class ForwardMode < EditMessageMode
   4   attr_reader :body, :header
   5
   6   def initialize m
   7     super()
   8     @header = {
   9       "From" => AccountManager.default_account.full_address,
  10       "Subject" => "Fwd: #{m.subj}",
  11       "Message-Id" => gen_message_id,
  12     }
  13     @body = forward_body_lines(m) + sig_lines
  14     regen_text
  15   end
  16
  17   def lines; @text.length; end
  18   def [] i; @text[i]; end
  19
  20 protected
  21
  22   def forward_body_lines m
  23     ["--- Begin forwarded message from #{m.from.mediumname} ---"] +
  24       m.basic_header_lines + [""] + m.basic_body_lines +
  25       ["--- End forwarded message ---"]
  26   end
  27
  28   def handle_new_text new_header, new_body
  29     @header = new_header
  30     @body = new_body
  31   end
  32
  33   def regen_text
  34     @text = header_lines(@header - NON_EDITABLE_HEADERS) + [""] + @body
  35   end
  36 end
  37
  38 end