[Emacs-diffs] master 16e304f: Don't use mapconcat with chars in gnus registry marks (Bug#25839)

[Noam Postavsky]

branch: master
commit 16e304f38e57a9a31f1468ba6ebcb8a71efd253d
Author: Eric Abrahamsen <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Don't use mapconcat with chars in gnus registry marks (Bug#25839)
    
    * lisp/gnus/gnus-registry.el (gnus-registry-article-marks-to-chars):
    Instead, use a plain concat, which will create a string out of a list
    of characters.
---
 lisp/gnus/gnus-registry.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index f728b19..51f6459 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -968,12 +968,13 @@ Uses `gnus-registry-marks' to find what shortcuts to 
install."
   "Show the marks for an article by the :char property."
   (let* ((id (mail-header-message-id headers))
          (marks (when id (gnus-registry-get-id-key id 'mark))))
-    (mapconcat (lambda (mark)
-                 (plist-get
-                  (cdr-safe
-                   (assoc mark gnus-registry-marks))
-                  :char))
-               marks "")))
+    (concat (delq nil
+                 (mapcar
+                  (lambda (m)
+                    (plist-get
+                     (cdr-safe (assoc m gnus-registry-marks))
+                     :char))
+                  marks)))))
 
 ;; use like this:
 ;; (defalias 'gnus-user-format-function-M 
'gnus-registry-article-marks-to-names)