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