diff options
| author | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2025-09-12 18:23:32 +0300 |
|---|---|---|
| committer | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2025-09-12 18:56:15 +0300 |
| commit | 7d5cdf061a15157e4fb677c7d90795e4e0502b24 (patch) | |
| tree | a9c317124d5e8e31b5e0f81763c91867b70420de /mu4e | |
| parent | 35fdc58c336d36c0d2bda7ce567966ba37432c0b (diff) | |
mu4e: use string-join
No need for mapconcat / identity.
Diffstat (limited to 'mu4e')
| -rw-r--r-- | mu4e/mu4e-actions.el | 4 | ||||
| -rw-r--r-- | mu4e/mu4e-headers.el | 2 | ||||
| -rw-r--r-- | 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) |