problem with the registry

problem with the registry

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 797 bytes --]

Hi

After a long time I tried to use the registry again.

Here is the setting in my gnus init file

(gnus-registry-initialize)
(defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-chars)

(setq
 gnus-registry-split-strategy 'majority
 gnus-registry-ignored-groups '(("nntp" t)
                                ("nnrss" t)
                                ("spam" t)
                                ("train" t))
 gnus-registry-max-entries 500000
 ;; this is the default
 gnus-registry-track-extra '(sender subject))

My summary-line-format looks like

"%uM%U%R%z%I%N %(%[ %-10,10uB%]%) %-10,10~(form (rfc2047-decode-string (gnus-extra-header 'To)))@  [%-25,25s%] %D %k %L   \n"


However when I enter a group and want to add a label I receive an error
which I attach.


Uwe Brauer 

[-- Attachment #2: register-bug.txt --]
[-- Type: text/plain, Size: 3708 bytes --]

Debugger entered--Lisp error: (wrong-type-argument sequencep 108)
  mapconcat(#[(mark) "\302\303\b	\"\243\304\"\207" [mark gnus-registry-marks plist-get assoc :char] 4] (Later) "")
  gnus-user-format-function-M([36481 "another bug in gnorb" "Uwe Brauer <oub@mat.ucm.es>" #("Mon, 20 Feb 2017 22:13:56 +0000" 0 1 (gnus-time (22699 27172))) "<87poic5x3v.fsf@mat.ucm.es>" nil 1946 14 nil ((To . "Eric Abrahamsen <eric@ericabrahamsen.net>"))])
  (format "%s%c%c%c%s%d " (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (aref gnus-tmp-header 0))
  (insert (format "%s%c%c%c%s%d " (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (aref gnus-tmp-header 0)))
  (progn (insert (format "%s%c%c%c%s%d " (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (aref gnus-tmp-header 0))) (put-text-property (point) (progn (insert (format "%c %-10s%c" gnus-tmp-opening-bracket (let* ((val ...) (need ...)) (if (> need 0) (concat nil val ...) val)) gnus-tmp-closing-bracket)) (point)) (quote mouse-face) gnus-mouse-face) (insert (format " %-10s  [%-25s%c %s %s %s   \n" (let* ((val (eval (let ... ...))) (need (- 10 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) (let* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) gnus-tmp-closing-bracket (aref gnus-tmp-header 3) (gn
 us-summary-line-message-size gnus-tmp-header) gnus-tmp-lines)))
  eval((progn (insert (format "%s%c%c%c%s%d " (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation (aref gnus-tmp-header 0))) (put-text-property (point) (progn (insert (format "%c %-10s%c" gnus-tmp-opening-bracket (let* ((val ...) (need ...)) (if (> need 0) (concat nil val ...) val)) gnus-tmp-closing-bracket)) (point)) (quote mouse-face) gnus-mouse-face) (insert (format " %-10s  [%-25s%c %s %s %s   \n" (let* ((val (eval (let ... ...))) (need (- 10 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) (let* ((val (eval (if ... ... gnus-tmp-subject-or-nil))) (need (- 25 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)) gnus-tmp-closing-bracket (aref gnus-tmp-header 3
 ) (gnus-summary-line-message-size gnus-tmp-header) gnus-tmp-lines))))
  gnus-summary-prepare-threads((([36481 "another bug in gnorb" "Uwe Brauer <oub@mat.ucm.es>" #("Mon, 20 Feb 2017 22:13:56 +0000" 0 1 (gnus-time (22699 27172))) "<87poic5x3v.fsf@mat.ucm.es>" nil 1946 14 nil ((To . "Eric Abrahamsen <eric@ericabrahamsen.net>"))])))
  gnus-rebuild-thread("<87poic5x3v.fsf@mat.ucm.es>" nil)
  gnus-summary-insert-subject("<87poic5x3v.fsf@mat.ucm.es>" [36481 "another bug in gnorb" "Uwe Brauer <oub@mat.ucm.es>" #("Mon, 20 Feb 2017 22:13:56 +0000" 0 1 (gnus-time (22699 27172))) "<87poic5x3v.fsf@mat.ucm.es>" nil 1946 14 nil ((To . "Eric Abrahamsen <eric@ericabrahamsen.net>"))])
  gnus-summary-update-article(36481 (36481 32 1431 [36481 "another bug in gnorb" "Uwe Brauer <oub@mat.ucm.es>" #("Mon, 20 Feb 2017 22:13:56 +0000" 0 1 (gnus-time (22699 27172))) "<87poic5x3v.fsf@mat.ucm.es>" nil 1946 14 nil ((To . "Eric Abrahamsen <eric@ericabrahamsen.net>"))] 0))
  gnus-registry--set/remove-mark(Later nil (36481))
  gnus-registry-set-article-Later-mark(36481)
  funcall-interactively(gnus-registry-set-article-Later-mark 36481)
  call-interactively(gnus-registry-set-article-Later-mark nil nil)
  command-execute(gnus-registry-set-article-Later-mark)