From 22d56892d2ac2c5ee70fb555bcd26e34f6754f7b Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Wed, 18 May 2011 16:10:25 -0500 Subject: [PATCH] * gnus-registry.el (gnus-registry-user-format-function-M2): Make "," the mark text separator. --- lisp/ChangeLog | 2 +- lisp/gnus-registry.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ebcf3b77..5f893567c 100644 --- 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 7d24168a5..e0efbaf4f 100644 --- 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." -- 2.25.1