bug#36903: 27.0.50; gnus registry vs. debbugs

[Michael Heerdegen <michael_heerdegen@web.de>]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> Okay, so `gnus-registry-clear' should probably also run
> `gnus-registry-unload-hook'. You're not expecting the registry to be
> doing it's thing when you've shut down Gnus, but are using debbugs,
> right?

Yes.

But I didn't say that I would not expect the registry to work with
debbugs.  It would be good if it did - but I don't know if it's
technically possible.


> Would you try this definition:
>
> (defun gnus-registry-clear ()
>   "Clear the registry."
>   (setq gnus-registry-db nil)
>   (gnus-registry-unload-hook))

Well, that fixes - only one error.  I still get an error from

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

so I have to redefine that one, too.  And even after doing this I get an
error related to Gnorb:

Debugger entered--Lisp error: (cl-no-applicable-method registry-lookup nil ("<87ef23o055.fsf@mouse.gnus.org>"))
  signal(cl-no-applicable-method (registry-lookup nil ("<87ef23o055.fsf@mouse.gnus.org>")))
  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 0x1fdfcf97ee83>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x1fdfcf97ee6b>))) (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 0x1588e546ed61>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode 0x1fdfcf97ee83>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x1fdfcf97ee6b>)))) :method-table (#s(cl--generic-meth
 od :specializers (registry-db t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (db keys) #<bytecode 0x1588e5da1709>))) :options nil) nil ("<87ef23o055.fsf@mouse.gnus.org>"))
  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 0x1fdfcf97ee83>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x1fdfcf97ee6b>))) (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 0x1588e546ed61>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode 0x1fdfcf97ee83>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x1fdfcf97ee6b>)))) :method-table (#s(cl--generi
 c-method :specializers (registry-db t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (db keys) #<bytecode 0x1588e5da1709>))) :options nil) (nil ("<87ef23o055.fsf@mouse.gnus.org>")))
  #f(compiled-function (&rest args) #<bytecode 0x1588e6fb92f9>)(nil ("<87ef23o055.fsf@mouse.gnus.org>"))
  apply(#f(compiled-function (&rest args) #<bytecode 0x1588e6fb92f9>) nil ("<87ef23o055.fsf@mouse.gnus.org>"))
  registry-lookup(nil ("<87ef23o055.fsf@mouse.gnus.org>"))
  gnus-registry-get-or-make-entry("<87ef23o055.fsf@mouse.gnus.org>")
  gnus-registry-get-id-key("<87ef23o055.fsf@mouse.gnus.org>" gnorb-ids)
  gnorb-gnus-hint-relevant-message()
  run-hooks(gnus-select-article-hook)
  apply(run-hooks gnus-select-article-hook)
  gnus-run-hooks(gnus-select-article-hook)
  gnus-summary-display-article(3 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  funcall-interactively(gnus-summary-scroll-up 1)
  call-interactively(gnus-summary-scroll-up nil nil)
  command-execute(gnus-summary-scroll-up)

Michael.