Changes committed gnus/lisp (ChangeLog gnus-registry.el)

Modified: ChangeLog gnus-registry.el

(gnus-registry-user-format-function-M): Fix concat bug.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1779 gnus/lisp/ChangeLog:7.1780
--- ChangeLog:7.1779	Wed Mar  5 19:52:14 2008
+++ ChangeLog	Thu Mar  6 22:08:22 2008
@@ -1,3 +1,7 @@
+2008-03-06  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-user-format-function-M): Fix concat bug.
+
 2008-03-05  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-install): Allow 'ask as an option.
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.53 gnus/lisp/gnus-registry.el:7.54
--- gnus-registry.el:7.53	Wed Mar  5 19:52:14 2008
+++ gnus-registry.el	Thu Mar  6 22:08:22 2008
@@ -781,14 +781,19 @@
 ;;; 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."