contrib: pick: Do not indent messages in the message pane

Currently pick just uses notmuch-show to display messages in the
message pane: this means that they get indented just as show
would. However, since pick is only displaying one message at a time
there is no need to indent so override the indentation.

diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el
index 9d3999bf0f0cc2ee7258e6f393791a21494fbb70..1a553d41314d23a26e2fbb6d1e60beb271b354e5 100644 (file)
--- a/contrib/notmuch-pick/notmuch-pick.el
+++ b/contrib/notmuch-pick/notmuch-pick.el
@@ -337,8 +337,10 @@ Does NOT change the database."
       (setq notmuch-pick-message-window
            (split-window-vertically (/ (window-height) 4)))
       (with-selected-window notmuch-pick-message-window
       (setq notmuch-pick-message-window
            (split-window-vertically (/ (window-height) 4)))
       (with-selected-window notmuch-pick-message-window

-       (setq current-prefix-arg '(4))
-       (setq buffer (notmuch-show id nil nil nil)))
+       ;; Since we are only displaying one message do not indent.
+       (let ((notmuch-show-indent-messages-width 0))
+         (setq current-prefix-arg '(4))
+         (setq buffer (notmuch-show id nil nil nil))))

       (notmuch-pick-tag-update-display (list "-unread"))
       (setq notmuch-pick-message-buffer buffer))))
 
       (notmuch-pick-tag-update-display (list "-unread"))
       (setq notmuch-pick-message-buffer buffer))))