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

   1 require 'tempfile'
   2 require 'socket' # just for gethostname!
   3
   4 module Redwood
   5
   6 class EditMessageMode < LineCursorMode
   7   FORCE_HEADERS = %w(From To Cc Bcc Subject)
   8   MULTI_HEADERS = %w(To Cc Bcc)
   9   NON_EDITABLE_HEADERS = %w(Message-Id Date)
  10
  11   attr_reader :status
  12
  13   register_keymap do |k|
  14     k.add :send_message, "Send message", 'y'
  15     k.add :edit, "Edit message", 'e', :enter
  16     k.add :save_as_draft, "Save as draft", 'P'
  17   end
  18
  19   def initialize *a
  20     super
  21     @attachments = []
  22     @edited = false
  23   end
  24
  25   def edit
  26     @file = Tempfile.new "redwood.#{self.class.name.camel_to_hyphy}"
  27     @file.puts header_lines(header - NON_EDITABLE_HEADERS)
  28     @file.puts
  29     @file.puts body
  30     @file.close
  31
  32     editor = $config[:editor] || ENV['EDITOR'] || "/usr/bin/vi"
  33
  34     mtime = File.mtime @file.path
  35     BufferManager.shell_out "#{editor} #{@file.path}"
  36     @edited = true if File.mtime(@file.path) > mtime
  37
  38     new_header, new_body = parse_file(@file.path)
  39     NON_EDITABLE_HEADERS.each { |h| new_header[h] = header[h] if header[h] }
  40     handle_new_text new_header, new_body
  41     update
  42   end
  43
  44 protected
  45
  46   def gen_message_id
  47     "<#{Time.now.to_i}-redwood-#{rand 10000}@#{Socket.gethostname}>"
  48   end
  49
  50   def update
  51     regen_text
  52     buffer.mark_dirty
  53   end
  54
  55   def parse_file fn
  56     File.open(fn) do |f|
  57       header = MBox::read_header f
  58       body = MBox::read_body f
  59
  60       header.delete_if { |k, v| NON_EDITABLE_HEADERS.member? k }
  61       header.each do |k, v|
  62         next unless MULTI_HEADERS.include?(k) && !v.empty?
  63         header[k] = v.split_on_commas.map do |name|
  64           (p = ContactManager.resolve(name)) && p.full_address || name
  65         end
  66       end
  67
  68       [header, body]
  69     end
  70   end
  71
  72   def header_lines header
  73     force_headers = FORCE_HEADERS.map { |h| make_lines "#{h}:", header[h] }
  74     other_headers = (header.keys - FORCE_HEADERS).map do |h|
  75       make_lines "#{h}:", header[h]
  76     end
  77
  78     (force_headers + other_headers).flatten.compact
  79   end
  80
  81   def make_lines header, things
  82     case things
  83     when nil, []
  84       [header + " "]
  85     when String
  86       [header + " " + things]
  87     else
  88       if things.empty?
  89         [header]
  90       else
  91         things.map_with_index do |name, i|
  92           raise "an array: #{name.inspect} (things #{things.inspect})" if Array === name
  93           if i == 0
  94             header + " " + name
  95           else
  96             (" " * (header.length + 1)) + name
  97           end + (i == things.length - 1 ? "" : ",")
  98         end
  99       end
 100     end
 101   end
 102
 103   def send_message
 104     return false unless @edited || BufferManager.ask_yes_or_no("message unedited---really send?")
 105
 106     raise "no message id!" unless header["Message-Id"]
 107     date = Time.now
 108     from_email =
 109       if header["From"] =~ /<?(\S+@(\S+?))>?$/
 110         $1
 111       else
 112         AccountManager.default_account.email
 113       end
 114
 115     sendmail = AccountManager.account_for(from_email).sendmail
 116     raise "nil sendmail" unless sendmail
 117     SentManager.write_sent_message(date, from_email) { |f| write_message f, true, date }
 118     BufferManager.flash "sending..."
 119
 120     IO.popen(sendmail, "w") { |p| write_message p, true, date }
 121
 122     BufferManager.kill_buffer buffer
 123     BufferManager.flash "Message sent!"
 124     true
 125   end
 126
 127   def save_as_draft
 128     DraftManager.write_draft { |f| write_message f, false }
 129     BufferManager.kill_buffer buffer
 130     BufferManager.flash "Saved for later editing."
 131   end
 132
 133   def sig_lines
 134     sigfn = (AccountManager.account_for(header["From"]) ||
 135              AccountManager.default_account).sig_file
 136
 137     if sigfn && File.exists?(sigfn)
 138       ["", "-- "] + File.readlines(sigfn).map { |l| l.chomp }
 139     else
 140       []
 141     end
 142   end
 143
 144   def write_message f, full_header=true, date=Time.now
 145     raise ArgumentError, "no pre-defined date: header allowed" if header["Date"]
 146     f.puts header_lines(header)
 147     f.puts "Date: #{date.rfc2822}"
 148     if full_header
 149       f.puts <<EOS
 150 Mime-Version: 1.0
 151 Content-Type: text/plain; charset=us-ascii
 152 Content-Disposition: inline
 153 User-Agent: Redwood/#{Redwood::VERSION}
 154 EOS
 155     end
 156
 157     f.puts
 158     f.puts @body
 159   end
 160 end
 161
 162 end