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

Modified: ChangeLog gnus-registry.el

* gnus-registry.el (gnus-registry-user-format-function-M): Added
formatting function.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1776 gnus/lisp/ChangeLog:7.1777
--- ChangeLog:7.1776	Mon Mar  3 23:39:12 2008
+++ ChangeLog	Tue Mar  4 23:35:59 2008
@@ -1,3 +1,8 @@
+2008-03-04  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-user-format-function-M): Added
+	formatting function.
+
 2008-03-03  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-marks): Changed format to be nicer
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.51 gnus/lisp/gnus-registry.el:7.52
--- gnus-registry.el:7.51	Mon Mar  3 23:39:12 2008
+++ gnus-registry.el	Tue Mar  4 23:35:59 2008
@@ -771,6 +771,23 @@
     "t" gnus-registry-set-article-To-Do-mark
     "T" gnus-registry-remove-article-To-Do-mark))
 
+;;; use like this:
+;;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
+(defun gnus-registry-user-format-function-M (headers)
+  (let* ((id (mail-header-message-id headers))
+	 (marks (when id (gnus-registry-fetch-extra-marks id)))
+	 (out ""))
+    (dolist (mark marks)
+      (let ((c (plist-get
+		(cdr-safe
+		 (assoc mark gnus-registry-marks)) :char)))
+	(setq out (format "%s%s"
+			  out
+			  (if c
+			      (char-to-string c)
+			    "")))))
+      out))
+
 (defun gnus-registry-read-mark ()
   "Read a mark name from the user with completion."
   (let ((mark (gnus-completing-read-with-default