alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: use string-join

Browse Source 
No need for mapconcat / identity.
This commit is contained in:
Dirk-Jan C. Binnema
2025-09-12 18:23:32 +03:00
committed by Seth Ladygo
parent 31b5b142a1
commit 47fdc73bfb
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-actions.el
View File

@ -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)

2
mu4e/mu4e-headers.el
View File

@ -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)))))

2
mu4e/mu4e-main.el
View File

@ -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)