[PATCH] emacs: wash: make word-wrap bound message width

Tomi Ollila tomi.ollila at iki.fi
Sat Aug 20 13:08:09 PDT 2016


On Wed, Jul 06 2016, Mark Walters <markwalters1009 at gmail.com> wrote:

> Previously if notmuch-wash-wrap-lines-length was set then all messages
> would be wrapped at this value (or window-width if that is
> smaller). This was done regardless of the message's depth in a thread:
> for example, if the n.w.w.l.l is 80 and the messages depth is 20
> (so indented 20 by default) the messages text only got 60 characters
> of space.
>
> This commit changes that so a message always gets the full n.w.w.l.l
> of width regardless of its indentation (unless that goes over
> window-width of course).
> ---
>
> This is what I would like -- I don't know if anyone would like to keep
> the previous behaviour as an option. The code-part for that is easy, but getting
> the docstrings and and defcustoms right is not clear.

The change looks good to me -- but I just don't understand why someone
would set notmuch-wash-wrap-lines-length to something else than nil
-- and if it is set to some number what the behaviour should be ?

Tomi


>
> Best wishes
>
> Mark
>
> emacs/notmuch-wash.el | 6 +++---
>  1 file changed, 3 insertions(+), 3 deletions(-)
>
> diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el
> index 57e6dfa..e16b8cc 100644
> --- a/emacs/notmuch-wash.el
> +++ b/emacs/notmuch-wash.el
> @@ -121,8 +121,8 @@ collapse the remaining lines into a button."
>  
>  If this is nil, lines in messages will be wrapped to fit in the
>  current window. If this is a number, lines will be wrapped after
> -this many characters or at the window width (whichever one is
> -lower)."
> +this many characters (ignoring indentation due to thread depth)
> +or at the window width (whichever one is lower)."
>    :type '(choice (const :tag "window width" nil)
>  		 (integer :tag "number of characters"))
>    :group 'notmuch-wash)
> @@ -336,7 +336,7 @@ the wrapped text are maintained."
>  
>    (let* ((coolj-wrap-follows-window-size nil)
>  	 (limit (if (numberp notmuch-wash-wrap-lines-length)
> -		    (min notmuch-wash-wrap-lines-length
> +		    (min (+ notmuch-wash-wrap-lines-length depth)
>  			 (window-width))
>  		  (window-width)))
>  	 (fill-column (- limit
> -- 
> 2.1.4
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> https://notmuchmail.org/mailman/listinfo/notmuch


More information about the notmuch mailing list