* gnus-registry.el (gnus-registry-user-format-function-M2): Make "," the mark text...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ebcf3b..5f89356 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,7 +2,7 @@
 
        * gnus-registry.el (gnus-registry-user-format-function-M): Use `mapconcat'.
        (gnus-registry-user-format-function-M2): Use to see the full text of
-       the marks.
+       the marks.  Make "," the mark text separator.
 
        * nntp.el (nntp-send-authinfo): Use the "force" token for NNTP
        authentication with auth-source.

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 7d24168..e0efbaf 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -916,7 +916,7 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
   "Show the marks for an article by name"
   (let* ((id (mail-header-message-id headers))
          (marks (when id (gnus-registry-get-id-key id 'mark))))
-    (mapconcat (lambda (mark) (symbol-name mark)) marks "")))
+    (mapconcat (lambda (mark) (symbol-name mark)) marks ",")))
 
 (defun gnus-registry-read-mark ()
   "Read a mark name from the user with completion."