From 7d5cdf061a15157e4fb677c7d90795e4e0502b24 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Fri, 12 Sep 2025 18:23:32 +0300 Subject: mu4e: use string-join No need for mapconcat / identity. --- mu4e/mu4e-actions.el | 4 ++-- mu4e/mu4e-headers.el | 2 +- mu4e/mu4e-main.el | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mu4e/mu4e-actions.el b/mu4e/mu4e-actions.el index d4fc4de..b6ce76a 100644 --- a/mu4e/mu4e-actions.el +++ b/mu4e/mu4e-actions.el @@ -215,7 +215,7 @@ would add \"tag\" and \"long tag\", and remove \"oldtag\"." (setq taglist (push tag taglist))))) (setq taglist (delete "" (sort (delete-dups taglist) 'string<))) - (setq tagstr (mapconcat 'identity taglist sep)) + (setq tagstr (string-join taglist sep)) (setq tagstr (replace-regexp-in-string "[\\&]" "\\\\\\&" tagstr)) (setq tagstr (replace-regexp-in-string "[/]" "\\&" tagstr)) @@ -231,7 +231,7 @@ would add \"tag\" and \"long tag\", and remove \"oldtag\"." (concat header ": " tagstr) path)) - (mu4e-message (concat "tagging: " (mapconcat 'identity taglist ", "))) + (mu4e-message (concat "tagging: " (string-join taglist ", "))) (mu4e--refresh-message path))) (defun mu4e-action-show-thread (msg) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index 203d900..59ccd24 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -581,7 +581,7 @@ e.g. \"mutt\"." (mu4e-msg-field msg :date)))) (:flags (propertize (mu4e~headers-flags-str val) 'help-echo (format "%S" val))) - ((:labels :tags) (propertize (mapconcat 'identity val ", "))) + ((:labels :tags) (propertize (string-join val " "))) (:size (mu4e-display-size val)) (t (mu4e~headers-custom-field-value msg field))))) diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el index 8ba1179..e5cb553 100644 --- a/mu4e/mu4e-main.el +++ b/mu4e/mu4e-main.el @@ -347,7 +347,7 @@ Otherwise, do nothing." "messages") (if mu4e-main-hide-personal-addresses "" (mu4e--key-val "personal addresses" - (if addrs (mapconcat #'identity addrs ", " ) "none")))) + (if addrs (string-join addrs ", " ) "none")))) (if mu4e-main-hide-personal-addresses "" (unless (mu4e-personal-address-p user-mail-address) -- cgit v1.0