thread-view-mode compose

git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@342 5c8cc53c-5e98-4d25-b20a-d8db53a31250

diff --git a/doc/TODO b/doc/TODO
index e2bda88392b396412d641a6f121a97a027a168c3..f2a7e64375ef729ed9a0015148ed3c898d2762bc 100644 (file)
--- a/doc/TODO
+++ b/doc/TODO
@@ -1,6 +1,7 @@
 for 0.0.8
 ---------
 x maildir
+_ bugfix: single-line messages come empty upon reply
 _ bugfix: when one new message comes into an imap folder, we don't
    catch it until a restart
 _ bugfix: triggering a pageup when cursor scrolling up jumps to the
@@ -8,6 +9,7 @@ _ bugfix: triggering a pageup when cursor scrolling up jumps to the
 _ create attachments
 _ forward attachments
 _ warnings: top-posting, missing attachment
+x compose in thread-view-mode auto-fills in person
 
 for 0.0.9
 ---------

diff --git a/lib/sup/modes/thread-view-mode.rb b/lib/sup/modes/thread-view-mode.rb
index eeef330b4adb7ebf673f6dff08b54b8828a88ccd..c699ca58479972c51cff564dec80b4fea13277bd 100644 (file)
--- a/lib/sup/modes/thread-view-mode.rb
+++ b/lib/sup/modes/thread-view-mode.rb
@@ -26,6 +26,7 @@ class ThreadViewMode < LineCursorMode
     k.add :edit_as_new, "Edit message as new", 'D'
     k.add :save_to_disk, "Save message/attachment to disk", 's'
     k.add :search, "Search for messages from particular people", 'S'
+    k.add :compose, "Compose message to person", 'm'
     k.add :archive_and_kill, "Archive thread and kill buffer", 'A'
   end
 
@@ -111,10 +112,17 @@ class ThreadViewMode < LineCursorMode
   def search
     p = @person_lines[curpos] or return
     mode = PersonSearchResultsMode.new [p]
-    BufferManager.spawn "search for #{p.name}", mode
+    BufferManager.spawn "Search for #{p.name}", mode
     mode.load_threads :num => mode.buffer.content_height
   end    
 
+  def compose
+    p = @person_lines[curpos] or return
+    mode = ComposeMode.new :to => [p]
+    BufferManager.spawn "Message to #{p.name}", mode
+    mode.edit
+  end    
+
   def toggle_starred
     m = @message_lines[curpos] or return
     if m.has_label? :starred