From: William Morgan <wmorgan-sup@masanjin.net>
Date: Sun, 13 Jan 2008 05:54:11 +0000 (-0800)
Subject: add 'z': align current message, to thread-view-mode
X-Git-Url: https://git.notmuchmail.org/git?a=commitdiff_plain;h=fe7178c70cec9f4bcdeadea4a1d4874a9c7004a2;p=sup

add 'z': align current message, to thread-view-mode

Pressing 'z' now makes the current message be top- and left-aligned in
the buffer.
---

diff --git a/lib/sup/modes/thread-view-mode.rb b/lib/sup/modes/thread-view-mode.rb
index d27323e..bd5c568 100644
--- a/lib/sup/modes/thread-view-mode.rb
+++ b/lib/sup/modes/thread-view-mode.rb
@@ -34,6 +34,7 @@ EOS
     k.add :expand_all_quotes, "Expand/collapse all quotes in a message", 'o'
     k.add :jump_to_next_open, "Jump to next open message", 'n'
     k.add :jump_to_prev_open, "Jump to previous open message", 'p'
+    k.add :align_current_message, "Align current message in buffer", 'z'
     k.add :toggle_starred, "Star or unstar message", '*'
     k.add :toggle_new, "Toggle unread/read status of message", 'N'
 #    k.add :collapse_non_new_messages, "Collapse all but unread messages", 'N'
@@ -294,6 +295,11 @@ EOS
     jump_to_message nextm if nextm
   end
 
+  def align_current_message
+    m = @message_lines[curpos] or return
+    jump_to_message m
+  end
+
   def jump_to_prev_open
     m = (0 .. curpos).to_a.reverse.argfind { |i| @message_lines[i] } # bah, .to_a
     return unless m