From mboxrd@z Thu Jan 1 00:00:00 1970 From: bwalton@artsci.utoronto.ca (Ben Walton) Date: Thu, 4 Jun 2009 12:03:10 -0400 Subject: [sup-talk] [PATCH] Add V to view a raw message (headers and body). Message-ID: <1244131390-25769-1-git-send-email-bwalton@artsci.utoronto.ca> This is an augment of the already existing view header (H) command, but allows viewing of all mime parts in their raw form, etc. Signed-off-by: Ben Walton --- lib/sup/modes/thread-view-mode.rb | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/lib/sup/modes/thread-view-mode.rb b/lib/sup/modes/thread-view-mode.rb index 42c6280..8de7ab0 100644 --- a/lib/sup/modes/thread-view-mode.rb +++ b/lib/sup/modes/thread-view-mode.rb @@ -27,6 +27,7 @@ EOS register_keymap do |k| k.add :toggle_detailed_header, "Toggle detailed header", 'h' k.add :show_header, "Show full message header", 'H' + k.add :show_message, "Show full message (raw form)", 'V' k.add :activate_chunk, "Expand/collapse or activate item", :enter k.add :expand_all_messages, "Expand/collapse all messages", 'E' k.add :edit_draft, "Edit draft", 'e' @@ -134,6 +135,13 @@ EOS end end + def show_message + m = @message_lines[curpos] or return + BufferManager.spawn_unless_exists("Raw message for #{m.id}") do + TextMode.new m.raw_message + end + end + def toggle_detailed_header m = @message_lines[curpos] or return @layout[m].state = (@layout[m].state == :detailed ? :open : :detailed) -- 1.6.3