bug#36903: 27.0.50; gnus registry vs. debbugs

[Michael Heerdegen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> FWIW, your fix works for me.

Though, today I got this:

Debugger entered--Lisp error: (cl-no-applicable-method registry-lookup nil 
("fake+none+nndoc+ephemeral:bug#37321+1"))
  signal(cl-no-applicable-method (registry-lookup nil 
("fake+none+nndoc+ephemeral:bug#37321+1")))
  cl-no-applicable-method(#s(cl--generic :name registry-lookup :dispatches ((1 
#s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 
:tagcode-function #f(compiled-function (name &rest _) #<bytecode 
0x1fef6cfb0adb>) :specializers-function #f(compiled-function (tag &rest _) 
#<bytecode 0x1fef6cfb0ac3>))) (0 #s(cl--generic-generalizer :name 
eieio--generic-generalizer :priority 50 :tagcode-function 
cl--generic-struct-tag :specializers-function #f(compiled-function (tag &rest 
_) #<bytecode 0x1584e6ac4ded>)) #s(cl--generic-generalizer :name 
cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function 
(name &rest _) #<bytecode 0x1fef6cfb0adb>) :specializers-function 
#f(compiled-function (tag &rest _) #<bytecode 0x1fef6cfb0ac3>)))) :method-table 
(#s(cl--generic-method :specializers (registry-db t) :qualifiers nil :uses-cnm 
nil :function #f(compiled-function (db keys) #<bytecode 0x1584e75f4c5d>))) 
:options nil) nil ("fake+none+nndoc+ephemeral:bug#37321+1"))
  apply(cl-no-applicable-method #s(cl--generic :name registry-lookup 
:dispatches ((1 #s(cl--generic-generalizer :name cl--generic-t-generalizer 
:priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode 
0x1fef6cfb0adb>) :specializers-function #f(compiled-function (tag &rest _) 
#<bytecode 0x1fef6cfb0ac3>))) (0 #s(cl--generic-generalizer :name 
eieio--generic-generalizer :priority 50 :tagcode-function 
cl--generic-struct-tag :specializers-function #f(compiled-function (tag &rest 
_) #<bytecode 0x1584e6ac4ded>)) #s(cl--generic-generalizer :name 
cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function 
(name &rest _) #<bytecode 0x1fef6cfb0adb>) :specializers-function 
#f(compiled-function (tag &rest _) #<bytecode 0x1fef6cfb0ac3>)))) :method-table 
(#s(cl--generic-method :specializers (registry-db t) :qualifiers nil :uses-cnm 
nil :function #f(compiled-function (db keys) #<bytecode 0x1584e75f4c5d>))) 
:options nil) (nil ("fake+none+nndoc+ephemeral:bug#37321+1")))
  #f(compiled-function (&rest args) #<bytecode 0x1584e82451e1>)(nil 
("fake+none+nndoc+ephemeral:bug#37321+1"))
  apply(#f(compiled-function (&rest args) #<bytecode 0x1584e82451e1>) nil 
("fake+none+nndoc+ephemeral:bug#37321+1"))
  registry-lookup(nil ("fake+none+nndoc+ephemeral:bug#37321+1"))
  gnus-registry-get-or-make-entry("fake+none+nndoc+ephemeral:bug#37321+1")
  gnus-registry-get-id-key("fake+none+nndoc+ephemeral:bug#37321+1" group)
  gnus-registry-register-message-ids()
  run-hooks(gnus-summary-prepare-hook)
  apply(run-hooks gnus-summary-prepare-hook)
  gnus-run-hooks(gnus-summary-prepare-hook)
  gnus-summary-prepare()
  gnus-summary-read-group-1("nndoc+ephemeral:bug#37321" t t nil nil nil)
  gnus-summary-read-group("nndoc+ephemeral:bug#37321" t t nil nil nil nil)
  gnus-group-read-group(t t "nndoc+ephemeral:bug#37321" nil)
  gnus-group-read-ephemeral-group("nndoc+ephemeral:bug#37321" (nndoc 
"/tmp/gnus-temp-group-s69vaM" (nndoc-article-type mbox)) nil (#<buffer 
*"gc-cons-percentage" Bugs*> . #<window-configuration>))
  gnus-read-ephemeral-bug-group((37321) 
"https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;m..."; (#<buffer 
*"gc-cons-percentage" Bugs*> . #<window-configuration>))
  gnus-read-ephemeral-emacs-bug-group((37321) (#<buffer *"gc-cons-percentage" 
Bugs*> . #<window-configuration>))
  debbugs-read-emacs-bug-with-gnus(37321 ((cache_time . 1569404174.2957919) 
(last_modified . 1569046862) (fixed_date) (date . 1567777982) (source . 
"unknown") (found_versions "27.0.50") (log_modified . 1569046862) (archived) 
(affects) (bug_num . 37321) (fixed_versions) (pending . "done") (fixed) (msgid 
. "<87lfv1pm5x.fsf@web.de>") (blocks) (subject . "27.0.50; Excessive gc in a 
use case (el-search)") (location . "db-h") (done . "Paul Eggert 
<eggert@cs.ucla.edu>") (tags) (mergedwith) (found (item (key . "27.0.50") 
(value))) (package "emacs") (severity . "normal") (unarchived) (originator . 
"Michael Heerdegen <michael_heerdegen@web.de>") (blockedby) (found_date) (id . 
37321) (summary) (owner) (keywords) (forwarded)) nil)
  debbugs-gnu-select-report()
  funcall-interactively(debbugs-gnu-select-report)
  call-interactively(debbugs-gnu-select-report nil nil)
  command-execute(debbugs-gnu-select-report)


Michael.