Subject: Re: bug#45330: 28.0.50; debbugs-gnu: Can't select reports before having started Gnus

From: Michael Heerdegen <[email-masked]>
Date: Mon, 21 Dec 2020 08:10:27 +0100

Lars Ingebrigtsen <[email-masked]> writes:

> I think this should be fixed on the trunk now -- can you check?

Ok, thanks.  Yes, good, though, now I get (deja vu again):

| Debugger entered--Lisp error: (cl-no-applicable-method registry-lookup nil ("<[email-masked]>"))
|   signal(cl-no-applicable-method (registry-lookup nil ("<[email-masked]>")))
|   cl-no-applicable-method(#s(cl--generic registry-lookup ((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"])) (0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "\1\301N\302\1!\10>\205\21\0\303\304\305\3!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"]))) (#s(cl--generic-method (registry-db t) nil nil #[(db keys) "\303\10\301\"\31\304\305\306\307\n\"\")\207" [db data keys eieio-oref delq nil mapcar #[(k) "\302\10\11\"\205\15\0\10\302\10\11\"D\207" [k data gethash] 4]] 5 "Search for KEYS in the registry-db DB.\nReturns an alist of the key followed by the entry in a list, not a cons cell."])) nil) nil ("<[email-masked]>"))
|   apply(cl-no-applicable-method #s(cl--generic registry-lookup ((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"])) (0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "\1\301N\302\1!\10>\205\21\0\303\304\305\3!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"]))) (#s(cl--generic-method (registry-db t) nil nil #[(db keys) "\303\10\301\"\31\304\305\306\307\n\"\")\207" [db data keys eieio-oref delq nil mapcar #[(k) "\302\10\11\"\205\15\0\10\302\10\11\"D\207" [k data gethash] 4]] 5 "Search for KEYS in the registry-db DB.\nReturns an alist of the key followed by the entry in a list, not a cons cell."])) nil) (nil ("<[email-masked]>")))
|   #f(compiled-function (&rest args) #<bytecode 0x306e3026b507eed>)(nil ("<[email-masked]>"))
|   apply(#f(compiled-function (&rest args) #<bytecode 0x306e3026b507eed>) nil ("<[email-masked]>"))
|   registry-lookup(nil ("<[email-masked]>"))
|   gnus-registry-get-or-make-entry("<[email-masked]>" nil)
|   gnus-registry-get-id-key("<[email-masked]>" mark)
|   gnus-user-format-function-M([2 "bug#10000: 24.0.91; Gnus gnus-get-function error" "[email-masked]" #("Tue, 08 Nov 2011 23:25:09 -0500" 0 1 (gnus-time (20154 165))) "<[email-masked]>" nil -1 119 nil ((To . "[email-masked]"))])
|   (format "%c%c%s%s%2s%c%9s %s" gnus-tmp-unread gnus-tmp-replied (gnus-user-format-function-S gnus-tmp-header) (gnus-user-format-function-g gnus-tmp-header) (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-score-char (gnus-user-date (mail-header-date gnus-tmp-header)) gnus-tmp-indentation)
|   (insert (format "%c%c%s%s%2s%c%9s %s" gnus-tmp-unread gnus-tmp-replied (gnus-user-format-function-S gnus-tmp-header) (gnus-user-format-function-g gnus-tmp-header) (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-score-char (gnus-user-date (mail-header-date gnus-tmp-header)) gnus-tmp-indentation))
|   (progn (insert (format "%c%c%s%s%2s%c%9s %s" gnus-tmp-unread gnus-tmp-replied (gnus-user-format-function-S gnus-tmp-header) (gnus-user-format-function-g gnus-tmp-header) (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-score-char (gnus-user-date (mail-header-date gnus-tmp-header)) gnus-tmp-indentation)) (put-text-property (point) (progn (insert (format "%-23s" (let* ((val ...) (need ...)) (if (> need 0) (concat nil val ...) val)))) (point)) 'mouse-face gnus-mouse-face) (insert "   ") (add-text-properties (point) (progn (insert gnus-tmp-subject-or-nil) (point)) (cons 'face (cons (list 'font-lock-variable-name-face 'default) '(gnus-face t)))) (insert "\n"))
|   eval((progn (insert (format "%c%c%s%s%2s%c%9s %s" gnus-tmp-unread gnus-tmp-replied (gnus-user-format-function-S gnus-tmp-header) (gnus-user-format-function-g gnus-tmp-header) (gnus-user-format-function-M gnus-tmp-header) gnus-tmp-score-char (gnus-user-date (mail-header-date gnus-tmp-header)) gnus-tmp-indentation)) (put-text-property (point) (progn (insert (format "%-23s" (let* (... ...) (if ... ... val)))) (point)) 'mouse-face gnus-mouse-face) (insert "   ") (add-text-properties (point) (progn (insert gnus-tmp-subject-or-nil) (point)) (cons 'face (cons (list 'font-lock-variable-name-face 'default) '(gnus-face t)))) (insert "\n")))
|   gnus-summary-prepare-threads((([2 "bug#10000: 24.0.91; Gnus gnus-get-function error" "[email-masked]" #("Tue, 08 Nov 2011 23:25:09 -0500" 0 1 (gnus-time (20154 165))) "<[email-masked]>" nil -1 119 nil ((To . "[email-masked]"))] ([3 "bug#10000: 24.0.91; Gnus gnus-get-function error" "Lars Magne Ingebrigtsen <[email-masked]>" "Sat, 07 Jan 2012 00:34:39 +0100" "<[email-masked]>" "<[email-masked]>" -1 21 nil ((Cc . "[email-masked]") (To . "[email-masked]"))])) ([4 "control message for bug #10000" "Lars Magne Ingebrigtsen <[email-masked]>" #("Sat, 07 Jan 2012 00:34:43 +0100" 0 1 (gnus-time (20231 34067))) "<[email-masked]>" nil -1 6 nil ((To . "[email-masked], [email-masked]"))]) ([1 "Status: 24.0.91; Gnus gnus-get-function error" "bug#10000 <[email-masked]>" #("Mon, 21 Dec 2020 07:03:37 +0000" 0 1 (gnus-time (24544 18633))) "fake+none+nndoc+ephemeral:bug#10000+1" nil -1 9 nil ((To . "bug#10000 <[email-masked]>"))])))
|   gnus-summary-prepare()
|   gnus-summary-read-group-1("nndoc+ephemeral:bug#10000" t t nil nil nil)
|   gnus-summary-read-group("nndoc+ephemeral:bug#10000" t t nil nil nil nil)
|   gnus-group-read-group(t t "nndoc+ephemeral:bug#10000" nil)
|   gnus-group-read-ephemeral-group("nndoc+ephemeral:bug#10000" (nndoc "/tmp/gnus-temp-group-hZ7CcZ" (nndoc-article-type mbox)) nil (#<buffer *Bugs*> . #<window-configuration>))
|   gnus-read-ephemeral-bug-group((10000) "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;m..." (#<buffer *Bugs*> . #<window-configuration>))
|   gnus-read-ephemeral-emacs-bug-group((10000) (#<buffer *Bugs*> . #<window-configuration>))
|   debbugs-gnu-read-emacs-bug-with-gnus(10000 ((cache_time . 1608534206.8331993) (msgid . "<[email-masked]>") (package "emacs" "gnus") (forwarded) (owner) (tags "notabug") (found_versions "24.0.91") (fixed_date) (fixed_versions) (mergedwith) (last_modified . 1328358242) (done . "Lars Magne Ingebrigtsen <[email-masked]>") (found_date) (affects) (location . "archive") (originator . "[email-masked]") (found (item (key . "24.0.91") (value))) (source . "unknown") (keywords "notabug") (subject . "24.0.91; Gnus gnus-get-function error") (bug_num . 10000) (pending . "done") (id . 10000) (blocks) (summary) (log_modified . 1328358242) (fixed) (severity . "minor") (unarchived) (date . 1320812762) (archived . t) (blockedby)) nil)
|   debbugs-gnu-select-report()

I have

#+begin_src emacs-lisp
(defalias 'gnus-user-format-function-M
  'gnus-registry-article-marks-to-chars)
#+end_src

and am using it in `gnus-summary-line-format'.  Can you reproduce that
problem?

Thanks,

Michael.