[PATCH] contrib: pick: Do not indent messages in the message pane

[Tomi Ollila]

On Sun, Dec 09 2012, Mark Walters wrote:

> 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.
> ---

LGTM.

Tomi

>
> Thanks to jrollins for the suggestion. It would also be possible to
> indent the headers (as a visual clue to how deep we are in the thread)
> or to make this customisable. However there is no point in doing that
> unless someone says they would prefer something else.
>
> Best wishes
>
> Mark
>
>
>
>  contrib/notmuch-pick/notmuch-pick.el |    6 ++++--
>  1 files changed, 4 insertions(+), 2 deletions(-)
>
> diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el
> index cf026af..ce5d0d4 100644
> --- 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 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))))
>  
> -- 
> 1.7.9.1
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch