Reported by: Michael Heerdegen <michael_heerdegen <at> web.de>
Date: Mon, 2 Sep 2024 09:26:01 UTC
Severity: normal
Found in version 31.0.50
Done: Michael Heerdegen <michael_heerdegen <at> web.de>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: help-debbugs <at> gnu.org (GNU bug Tracking System) To: Michael Heerdegen <michael_heerdegen <at> web.de> Subject: bug#72954: closed (Re: bug#72954: 31.0.50; Error when calling gnus-summary-move-article) Date: Mon, 02 Sep 2024 09:56:02 +0000
[Message part 1 (text/plain, inline)]
Your bug report #72954: 31.0.50; Error when calling gnus-summary-move-article which was filed against the emacs,gnus package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 72954 <at> debbugs.gnu.org. -- 72954: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=72954 GNU Bug Tracking System Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
From: Michael Heerdegen <michael_heerdegen <at> web.de> To: 72954-done <at> debbugs.gnu.org Subject: Re: bug#72954: 31.0.50; Error when calling gnus-summary-move-article Date: Mon, 02 Sep 2024 11:32:22 +0200Michael Heerdegen <michael_heerdegen <at> web.de> writes: > Hello, > > I am browsing the result of a `gnus-group-read-ephemeral-search-group' > call. Then I invoke `gnus-summary-move-article' (with point at the > article I want to move) and get this error: Closing, along with the duplicate I accidentally created. The cause of this issue was a misbehaving hack in my configuration. Michael.
[Message part 3 (message/rfc822, inline)]
From: Michael Heerdegen <michael_heerdegen <at> web.de> To: bug-gnu-emacs <at> gnu.org Subject: 31.0.50; Error when calling gnus-summary-move-article Date: Mon, 02 Sep 2024 10:34:19 +0200[Message part 4 (text/plain, inline)]Hello, I am browsing the result of a `gnus-group-read-ephemeral-search-group' call. Then I invoke `gnus-summary-move-article' (with point at the article I want to move) and get this error:[btrc.txt (text/plain, inline)]Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) (range-compress-list (nil)) (gnus-compress-sequence (nil)) (#f(compiled-function (artgroup) #<bytecode -0x9608aa7701c677>) (nil nil)) (mapcar #f(compiled-function (artgroup) #<bytecode -0x9608aa7701c677>) ((nil nil))) (#f(compiled-function (act) #<bytecode 0x1674e349f0e03dda>) ((2139) set nil)) (mapcan #f(compiled-function (act) #<bytecode 0x1674e349f0e03dda>) (((2139) set nil) ((2139) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick)))) (cl-mapcan #f(compiled-function (act) #<bytecode 0x1674e349f0e03dda>) (((2139) set nil) ((2139) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick)))) (nnselect-request-set-mark "search->subject--bug--from---" (((2139) set nil) ((2139) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick))) "nnselect-ephemeral") (gnus-request-set-mark "nnselect:search->subject--bug--from---" (((2139) set nil) ((2139) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick)))) (gnus-summary-push-marks-to-backend 2139) (#f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil) (funcall #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil) (#f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)) #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil (2139)) (funcall #f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)) #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil (2139)) (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state)) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state))) (let ((save-selected-window--state (internal--before-with-selected-window window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state)))) (progn (save-current-buffer (set-buffer (window-buffer summary-buffer-window)) (save-excursion (goto-char (window-start summary-buffer-window)) (let ((wend (window-end summary-buffer-window))) (while (< (point) wend) (if (memq (get-text-property ... ...) articles) (progn (let ... ... ...))) (forward-line 1))))) (let ((save-selected-window--state (internal--before-with-selected-window window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state))))) (unwind-protect (progn (save-current-buffer (set-buffer (window-buffer summary-buffer-window)) (save-excursion (goto-char (window-start summary-buffer-window)) (let ((wend (window-end summary-buffer-window))) (while (< (point) wend) (if (memq ... articles) (progn ...)) (forward-line 1))))) (let ((save-selected-window--state (internal--before-with-selected-window window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state))))) (mapc #'delete-overlay overlays)) (let ((overlays 'nil)) (unwind-protect (progn (save-current-buffer (set-buffer (window-buffer summary-buffer-window)) (save-excursion (goto-char (window-start summary-buffer-window)) (let ((wend ...)) (while (< ... wend) (if ... ...) (forward-line 1))))) (let ((save-selected-window--state (internal--before-with-selected-window window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (set-window-fringes window 0 0) (funcall query f n articles)) (internal--after-with-selected-window save-selected-window--state))))) (mapc #'delete-overlay overlays))) (#f(lambda (window _v) [(summary-buffer-window #<window 3 on *Summary nnselect:search->subject--bug--from---*>) (articles (2139)) (n nil) (f #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>)) (face nil) (query #f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)))] (let ((overlays 'nil)) (unwind-protect (progn (save-current-buffer (set-buffer (window-buffer summary-buffer-window)) (save-excursion (goto-char ...) (let ... ...))) (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (mapc #'delete-overlay overlays)))) #<window 15 on *Articles*> nil) (funcall #f(lambda (window _v) [(summary-buffer-window #<window 3 on *Summary nnselect:search->subject--bug--from---*>) (articles (2139)) (n nil) (f #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>)) (face nil) (query #f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)))] (let ((overlays 'nil)) (unwind-protect (progn (save-current-buffer (set-buffer (window-buffer summary-buffer-window)) (save-excursion (goto-char ...) (let ... ...))) (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (mapc #'delete-overlay overlays)))) #<window 15 on *Articles*> nil) (if (functionp vquit-function) (funcall vquit-function window value) value) (let* ((vbuffer-or-name buffer) (vaction (list 'display-buffer-in-direction '(direction . top) (cons 'window-height #'fit-window-to-buffer) '(preserve-size nil . t) (cons 'body-function #'(lambda (_) (let ... ... ... ... ... ...) (remove-text-properties ... ... ...) (setq tab-line-exclude nil))))) (vquit-function #'(lambda (window _v) (let ((overlays ...)) (unwind-protect (progn ... ...) (mapc ... overlays))))) (buffer (temp-buffer-window-setup vbuffer-or-name)) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value (progn)) (setq window (temp-buffer-window-show buffer vaction))) (if (functionp vquit-function) (funcall vquit-function window value) value)) (let ((buffer (get-buffer-create " *Articles*")) (article-table (my-print-table (mapcar #'(lambda (article-number) (let ... ...)) articles) (list #'(lambda (s) (propertize s ... ...))) '(nil right))) (window-min-height 1)) (let* ((vbuffer-or-name buffer) (vaction (list 'display-buffer-in-direction '(direction . top) (cons 'window-height #'fit-window-to-buffer) '(preserve-size nil . t) (cons 'body-function #'(lambda ... ... ... ...)))) (vquit-function #'(lambda (window _v) (let (...) (unwind-protect ... ...)))) (buffer (temp-buffer-window-setup vbuffer-or-name)) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value (progn)) (setq window (temp-buffer-window-show buffer vaction))) (if (functionp vquit-function) (funcall vquit-function window value) value))) (if (let ((buffer (get-buffer-create " *Articles*")) (article-table (my-print-table (mapcar #'(lambda ... ...) articles) (list #'(lambda ... ...)) '(nil right))) (window-min-height 1)) (let* ((vbuffer-or-name buffer) (vaction (list 'display-buffer-in-direction '(direction . top) (cons 'window-height #'fit-window-to-buffer) '(preserve-size nil . t) (cons 'body-function #'...))) (vquit-function #'(lambda (window _v) (let ... ...))) (buffer (temp-buffer-window-setup vbuffer-or-name)) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value (progn)) (setq window (temp-buffer-window-show buffer vaction))) (if (functionp vquit-function) (funcall vquit-function window value) value))) (progn (funcall body f n))) (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) #'<)) (gnus-novice-user nil) (summary-buffer-window (selected-window))) (if (let ((buffer (get-buffer-create " *Articles*")) (article-table (my-print-table (mapcar #'... articles) (list #'...) '(nil right))) (window-min-height 1)) (let* ((vbuffer-or-name buffer) (vaction (list 'display-buffer-in-direction '... (cons ... ...) '... (cons ... ...))) (vquit-function #'(lambda ... ...)) (buffer (temp-buffer-window-setup vbuffer-or-name)) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value (progn)) (setq window (temp-buffer-window-show buffer vaction))) (if (functionp vquit-function) (funcall vquit-function window value) value))) (progn (funcall body f n)))) (progn (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) #'<)) (gnus-novice-user nil) (summary-buffer-window (selected-window))) (if (let ((buffer (get-buffer-create " *Articles*")) (article-table (my-print-table (mapcar ... articles) (list ...) '...)) (window-min-height 1)) (let* ((vbuffer-or-name buffer) (vaction (list ... ... ... ... ...)) (vquit-function #'...) (buffer (temp-buffer-window-setup vbuffer-or-name)) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value (progn)) (setq window (temp-buffer-window-show buffer vaction))) (if (functionp vquit-function) (funcall vquit-function window value) value))) (progn (funcall body f n))))) (unwind-protect (progn (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) #'<)) (gnus-novice-user nil) (summary-buffer-window (selected-window))) (if (let ((buffer (get-buffer-create " *Articles*")) (article-table (my-print-table ... ... ...)) (window-min-height 1)) (let* ((vbuffer-or-name buffer) (vaction ...) (vquit-function ...) (buffer ...) (standard-output buffer) window value) (save-current-buffer (set-buffer buffer) (setq value ...) (setq window ...)) (if (functionp vquit-function) (funcall vquit-function window value) value))) (progn (funcall body f n))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((articles (sort (copy-sequence ...) #'<)) (gnus-novice-user nil) (summary-buffer-window (selected-window))) (if (let ((buffer ...) (article-table ...) (window-min-height 1)) (let* (... ... ... ... ... window value) (save-current-buffer ... ... ...) (if ... ... value))) (progn (funcall body f n))))) (set-window-configuration wconfig))) (#f(lambda (f &optional n &rest _) [(face nil) (body ignore) (query #f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)))] (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((articles ...) (gnus-novice-user nil) (summary-buffer-window ...)) (if (let ... ...) (progn ...)))) (set-window-configuration wconfig)))) #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil) (apply #f(lambda (f &optional n &rest _) [(face nil) (body ignore) (query #f(lambda (f n _) [cl-struct-my-gnus-summary-process-marked-tags cl-struct-my-gnus-summary-pos-tags t] (funcall f n)))] (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((articles ...) (gnus-novice-user nil) (summary-buffer-window ...)) (if (let ... ...) (progn ...)))) (set-window-configuration wconfig)))) #f(compiled-function (&optional n to-newsgroup select-method action) "Move the current article to a different newsgroup.\nIf N is a positive number, move the N next articles.\nIf N is a negative number, move the N previous articles.\nIf N is nil and any articles have been marked with the process mark,\nmove those articles instead.\nIf TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.\nIf SELECT-METHOD is non-nil, do not move to a specific newsgroup, but\nre-spool using this method.\n\nWhen called interactively with TO-NEWSGROUP being nil, the value of\nthe variable `gnus-move-split-methods' is used for finding a default\nfor the target newsgroup.\n\nFor this function to work, both the current newsgroup and the\nnewsgroup that you want to move to have to support the `request-move'\nand `request-accept' functions.\n\nACTION can be either `move' (the default), `crosspost' or `copy'." (interactive "P") #<bytecode -0xa0099b9b29482be>) nil) (gnus-summary-move-article nil) (funcall-interactively gnus-summary-move-article nil) (call-interactively gnus-summary-move-article nil nil) (command-execute gnus-summary-move-article)[Message part 6 (text/plain, inline)]This happens only when using `gnus-move-split-methods' nil. When I use a value like ((".*" . ("nnml+archive:emacs" ...))) the error does not happen and the operation succeeds. Although I choose the same target group in both cases. It was very hard to debug why that setting influences the result. I followed the problem to a call to `nnselect-article-number' - here: | (nnselect-article-number 2140) | (cl-mapcan #f(lambda (act) [t] (let* ((--cl-rest-- act) (range (if (= (length --cl-rest--) 3) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list '(range action marks) (length --cl-rest--))))) (action (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (marks (car-safe --cl-rest--))) (mapcar #'(lambda (artgroup) (list (car artgroup) (gnus-compress-sequence (sort (cdr artgroup) #'<)) action marks)) (cond ((eq 'range 'range) (let* ((sequence (range-uncompress range))) (let ((valuefunc (or #'nnselect-article-number 'identity)) result) (if (null sequence) nil (mapc #'(lambda (member) (let* ((key (elt (if (> member 0) (progn (elt gnus-newsgroup-selection (1- member)))) 0)) (value (funcall valuefunc member)) (kr (assoc key result))) (if kr (let* ((v kr)) (setcdr v (cons value (cdr v)))) (setq result (cons (list key value) result))))) (reverse sequence)) result)))) ((eq 'range 'tuple) (let* ((keyfunc #'(lambda (elem) (elt (if (> (car elem) 0) (progn (elt gnus-newsgroup-selection (1- (car elem))))) 0))) (valuefunc #'(lambda (elem) (cons (elt (if (> (car elem) 0) (progn (elt gnus-newsgroup-selection (1- (car elem))))) 1) (cdr elem))))) (let ((valuefunc (or valuefunc 'identity)) result) (if (null range) nil (mapc #'(lambda (member) (let* ((key (funcall keyfunc member)) (value (funcall valuefunc member)) (kr (assoc key result))) (if kr (let* ((v kr)) (setcdr v (cons value (cdr v)))) (setq result (cons (list key value) result))))) (reverse range)) result)))) (t (let ((valuefunc (or #'nnselect-article-number 'identity)) result) (if (null range) nil (mapc #'(lambda (member) (let* ((key (elt (if (> member 0) (progn (elt gnus-newsgroup-selection (1- member)))) 0)) (value (funcall valuefunc member)) (kr (assoc key result))) (if kr (let* ((v kr)) (setcdr v (cons value (cdr v)))) (setq result (cons (list key value) result))))) (reverse range)) result))))))) (((2140) set nil) ((2140) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick)))) | (nnselect-request-set-mark "search->subject--bug--from---" (((2140) set nil) ((2140) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick))) "nnselect-ephemeral") | (gnus-request-set-mark "nnselect:search->subject--bug--from---" (((2140) set nil) ((2140) del (unexist seen forward unsend download cache save score dormant bookmark killed expire reply tick)))) | (gnus-summary-push-marks-to-backend 2140) | (gnus-summary-move-article nil) In the good case this returns a number, in the bad case `nil'. This is where the `nil' in the backtrace above seems to come from. But I don't understand why that happens. Could be `gnus-newsgroup-selection' that has a different value, but I gave up at that point - too many `define-inline' definitions related and I don't know if I'm on the right track anyway. Anybody any ideas? TIA, Michael. In GNU Emacs 31.0.50 (build 16, x86_64-pc-linux-gnu, cairo version 1.16.0) of 2024-09-02 built on drachen Repository revision: 6975d13525148306e1825bb881560c6b6b989cf8 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12101007 System Description: Debian GNU/Linux 12 (bookworm)
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.