X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-wash.el;h=5f8b92671b39ac2419ef4808e27296d062bc885a;hp=07fc1a1f6325363df0e0a55268899851dd3cc109;hb=1fdc08d0ffab;hpb=999d473299781cb2a38fba5d9e2452504799a7a2 diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index 07fc1a1f..5f8b9267 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -122,8 +122,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) @@ -338,7 +338,7 @@ the wrapped text are maintained." (let* ((coolj-wrap-follows-window-size nil) (indent (* depth notmuch-show-indent-messages-width)) (limit (if (numberp notmuch-wash-wrap-lines-length) - (min notmuch-wash-wrap-lines-length + (min (+ notmuch-wash-wrap-lines-length indent) (window-width)) (window-width))) (fill-column (- limit