diff options
| -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) |