From: Juri Linkov <juri@linkov.net>
Date: Mon, 5 Oct 2020 07:01:03 +0000 (+0200)
Subject: Use … in Gnus mode lines (when shortening them)
X-Git-Tag: emacs-28.0.90~5746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7301bf996e71fb7f3b8c50357c89853b8af78533;p=emacs.git

Use … in Gnus mode lines (when shortening them)

* lisp/gnus/gnus-sum.el (gnus-set-mode-line): Defer ellipsis
creation to `truncate-string-to-width' (bug#41250).  This uses …
by default.
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b3ed5cb6647..561f199531e 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6240,8 +6240,8 @@ If WHERE is `summary', the summary mode line format will be used."
 	  ;; We might have to chop a bit of the string off...
 	  (when (> (length mode-string) max-len)
 	    (setq mode-string
-		  (concat (truncate-string-to-width mode-string (- max-len 3))
-			  "...")))))
+		  (truncate-string-to-width
+		   mode-string (- max-len 3) nil nil t)))))
       ;; Update the mode line.
       (setq mode-line-buffer-identification
 	    (gnus-mode-line-buffer-identification (list mode-string)))