From f89245fb77ab51ef932dbc8d30a9eb60e90a2ea0 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Wed, 3 Jun 2020 21:19:12 +0300 Subject: mu4e: avoid trouble with truncate-string-to-width Treatment of the 'ellipsis' parameter is a bit unclear, gave errors in some cases. Fixes #1716 --- mu4e/mu4e-compose.el | 4 +--- mu4e/mu4e-headers.el | 4 ++-- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index d324c05..021a691 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -550,9 +550,7 @@ buffers; lets remap its faces so it uses the ones for mu4e." (forward "*forward*") (otherwise "*draft*"))))) (rename-buffer (generate-new-buffer-name - (truncate-string-to-width str - mu4e~compose-buffer-max-name-length - nil nil t) + (truncate-string-to-width str mu4e~compose-buffer-max-name-length) (buffer-name))))) (defun mu4e~compose-crypto-reply (parent compose-type) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index f45025b..89b2403 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -681,7 +681,7 @@ found." (defun mu4e~headers-field-truncate-to-width (_msg _field val width) "Truncate VAL to WIDTH." (if width - (truncate-string-to-width val width 0 ?\s t) + (truncate-string-to-width val width 0 ?\s truncate-string-ellipsis) val)) (defvar mu4e~headers-field-handler-functions @@ -1032,7 +1032,7 @@ after the end of the search results." (concat (propertize (if width - (truncate-string-to-width name width 0 ?\s t) + (truncate-string-to-width name width 0 ?\s truncate-string-ellipsis) name) 'face (when arrow 'bold) 'help-echo help -- cgit v1.0