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

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> 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 
("<84k479sz16.fsf@aol.com>"))
|   signal(cl-no-applicable-method (registry-lookup nil 
("<84k479sz16.fsf@aol.com>")))
|   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 
("<84k479sz16.fsf@aol.com>"))
|   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 
("<84k479sz16.fsf@aol.com>")))
|   #f(compiled-function (&rest args) #<bytecode 0x306e3026b507eed>)(nil 
("<84k479sz16.fsf@aol.com>"))
|   apply(#f(compiled-function (&rest args) #<bytecode 0x306e3026b507eed>) nil 
("<84k479sz16.fsf@aol.com>"))
|   registry-lookup(nil ("<84k479sz16.fsf@aol.com>"))
|   gnus-registry-get-or-make-entry("<84k479sz16.fsf@aol.com>" nil)
|   gnus-registry-get-id-key("<84k479sz16.fsf@aol.com>" mark)
|   gnus-user-format-function-M([2 "bug#10000: 24.0.91; Gnus gnus-get-function 
error" "nyc4bos@aol.com" #("Tue, 08 Nov 2011 23:25:09 -0500" 0 1 (gnus-time 
(20154 165))) "<84k479sz16.fsf@aol.com>" nil -1 119 nil ((To . 
"10000@debbugs.gnu.org"))])
|   (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" "nyc4bos@aol.com" #("Tue, 08 Nov 2011 23:25:09 -0500" 
0 1 (gnus-time (20154 165))) "<84k479sz16.fsf@aol.com>" nil -1 119 nil ((To . 
"10000@debbugs.gnu.org"))] ([3 "bug#10000: 24.0.91; Gnus gnus-get-function 
error" "Lars Magne Ingebrigtsen <larsi@gnus.org>" "Sat, 07 Jan 2012 00:34:39 
+0100" "<m3boqg5rsg.fsf@stories.gnus.org>" "<84k479sz16.fsf@aol.com>" -1 21 nil 
((Cc . "10000@debbugs.gnu.org") (To . "nyc4bos@aol.com"))])) ([4 "control 
message for bug #10000" "Lars Magne Ingebrigtsen <larsi@gnus.org>" #("Sat, 07 
Jan 2012 00:34:43 +0100" 0 1 (gnus-time (20231 34067))) 
"<m3aa605rsc.fsf@stories.gnus.org>" nil -1 6 nil ((To . 
"control@debbugs.gnu.org, 10000@debbugs.gnu.org"))]) ([1 "Status: 24.0.91; Gnus 
gnus-get-function error" "bug#10000 <10000@debbugs.gnu.org>" #("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 
<10000@debbugs.gnu.org>"))])))
|   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 . "<84k479sz16.fsf@aol.com>") (package "emacs" 
"gnus") (forwarded) (owner) (tags "notabug") (found_versions "24.0.91") 
(fixed_date) (fixed_versions) (mergedwith) (last_modified . 1328358242) (done . 
"Lars Magne Ingebrigtsen <larsi@gnus.org>") (found_date) (affects) (location . 
"archive") (originator . "nyc4bos@aol.com") (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.