From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 23 Feb 2017 01:26:11 +0000 (-0800)
Subject: Don't use mapconcat with chars in gnus registry marks (Bug#25839)
X-Git-Tag: emacs-26.0.90~682
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16e304f38e57a9a31f1468ba6ebcb8a71efd253d;p=emacs.git

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.
---

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index f728b191110..51f6459d2f8 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)