From 4cd19b9ba1f5c60736538570b2a4f77fe0381ebf Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Thu, 6 Mar 2008 21:08:22 +0000 Subject: [PATCH] (gnus-registry-user-format-function-M): Fix concat bug. --- lisp/ChangeLog | 4 ++++ lisp/gnus-registry.el | 17 +++++++++++------ 2 files changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec83f6ed7..3cb952f37 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-03-06 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-user-format-function-M): Fix concat bug. + 2008-03-05 Teodor Zlatanov * gnus-registry.el (gnus-registry-install): Allow 'ask as an option. diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 3f3ad6aa3..5141a5e2d 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -781,14 +781,19 @@ Uses `gnus-registry-marks' to find what shortcuts to install." ;;; use like this: ;;; (defalias 'gnus-user-format-function-M ;;; 'gnus-registry-user-format-function-M) - (defun gnus-registry-user-format-function-M (headers) +(defun gnus-registry-user-format-function-M (headers) (let* ((id (mail-header-message-id headers)) (marks (when id (gnus-registry-fetch-extra-marks id)))) - (concat (mapcar (lambda(mark) - (list (plist-get - (cdr-safe (assoc mark gnus-registry-marks)) - :char))) - marks)))) + (apply 'concat (mapcar (lambda(mark) + (let ((c + (plist-get + (cdr-safe + (assoc mark gnus-registry-marks)) + :char))) + (if c + (list c) + nil))) + marks)))) (defun gnus-registry-read-mark () "Read a mark name from the user with completion." -- 2.34.1