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

Previous Next

Full log

View this message in rfc822 format

From: Michael Heerdegen <michael_heerdegen <at> web.de>
To: Lars Ingebrigtsen <larsi <at> gnus.org>
Cc: Eric Abrahamsen <eric <at> ericabrahamsen.net>, 45330 <at> debbugs.gnu.org
Subject: bug#45330: 28.0.50; debbugs-gnu: Can't select reports before having started Gnus
Date: Mon, 21 Dec 2020 08:10:27 +0100

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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.