[O] gnus link no longer work

[Alan Schmitt]

Hello,

I've recently noticed that following gnus links (created by
org-store-link) no longer work. When I try to open one, I get an error,
and I see the gnus summary populated with the message I need, but I
cannot read it.

Here is the backtrace when I follow the link

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  nnir-request-update-info("nnir:work" nil)
  nnir-request-group("work" "nnimap:inria" t nil)
  gnus-request-group("nnimap+inria:work" t)
  gnus-check-group-server()
  gnus-request-article-this-buffer(-1 "nnimap+inria:work")
  gnus-article-prepare(-1 nil)
  gnus-summary-display-article(-1 nil)
  gnus-summary-select-article(nil nil nil -1)
  gnus-summary-refer-article("address@hidden")
  gnus-summary-goto-article("address@hidden" nil t)
  org-gnus-follow-link("nnimap+inria:work" "address@hidden")
  org-gnus-open("nnimap+inria:address@hidden")
  org-open-at-point()
  (if (and path (image-type-from-file-name path)) (+org/refresh-inline-images) 
(org-open-at-point))
  (let ((path (org-element-property :path (org-element-lineage context '(link) 
t)))) (if (and path (image-type-from-file-name path)) 
(+org/refresh-inline-images) (org-open-at-point)))
  (cond ((org-element-property :checkbox (org-element-lineage context '(item) 
t)) (let ((match (and (org-at-item-checkbox-p) (match-string 1)))) 
(org-toggle-checkbox (if (equal match "[ ]") '(16))))) ((eq type 'headline) 
(cond ((org-element-property :todo-type context) (org-todo (if (eq 
(org-element-property :todo-type context) 'done) 'todo 'done))) ((string= 
"ARCHIVE" (car-safe (org-get-tags))) (org-force-cycle-archived)) (t 
(+org/refresh-inline-images) (org-remove-latex-fragment-image-overlays) 
(org-toggle-latex-fragment '(4))))) ((eq type 'clock) 
(org-clock-update-time-maybe)) ((eq type 'footnote-reference) 
(org-footnote-goto-definition (org-element-property :label context))) ((eq type 
'footnote-definition) (org-footnote-goto-previous-reference 
(org-element-property :label context))) ((memq type '(timestamp planning)) 
(org-follow-timestamp-link)) ((memq type '(table-row table)) (if 
(org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn 
(save-excursion (goto-char (org-element-property :contents-begin context)) 
(org-call-with-arg 'org-table-recalculate (or arg t)))) (error nil)))) ((eq 
type 'table-cell) (org-table-blank-field) (org-table-recalculate) (if (and 
(string-empty-p (string-trim (org-table-get-field))) (and (boundp 'evil-mode) 
evil-mode)) (progn (evil-change-state 'insert)))) ((eq type 'babel-call) 
(org-babel-lob-execute-maybe)) ((eq type 'statistics-cookie) (save-excursion 
(org-update-statistics-cookies nil))) ((memq type '(inline-src-block 
src-block)) (org-babel-execute-src-block)) ((memq type '(latex-environment 
latex-fragment)) (org-toggle-latex-fragment)) ((eq type 'link) (let ((path 
(org-element-property :path (org-element-lineage context '(link) t)))) (if (and 
path (image-type-from-file-name path)) (+org/refresh-inline-images) 
(org-open-at-point)))) (t (+org/refresh-inline-images)))
  (let* ((context (org-element-context)) (type (org-element-type context))) 
(while (and context (memq type '(verbatim code bold italic underline 
strike-through subscript superscript))) (setq context (org-element-property 
:parent context) type (org-element-type context))) (cond ((org-element-property 
:checkbox (org-element-lineage context '(item) t)) (let ((match (and 
(org-at-item-checkbox-p) (match-string 1)))) (org-toggle-checkbox (if (equal 
match "[ ]") '(16))))) ((eq type 'headline) (cond ((org-element-property 
:todo-type context) (org-todo (if (eq (org-element-property :todo-type context) 
'done) 'todo 'done))) ((string= "ARCHIVE" (car-safe (org-get-tags))) 
(org-force-cycle-archived)) (t (+org/refresh-inline-images) 
(org-remove-latex-fragment-image-overlays) (org-toggle-latex-fragment '(4))))) 
((eq type 'clock) (org-clock-update-time-maybe)) ((eq type 'footnote-reference) 
(org-footnote-goto-definition (org-element-property :label context))) ((eq type 
'footnote-definition) (org-footnote-goto-previous-reference 
(org-element-property :label context))) ((memq type '(timestamp planning)) 
(org-follow-timestamp-link)) ((memq type '(table-row table)) (if 
(org-at-TBLFM-p) (org-table-calc-current-TBLFM) (condition-case nil (progn 
(save-excursion (goto-char (org-element-property :contents-begin context)) 
(org-call-with-arg 'org-table-recalculate (or arg t)))) (error nil)))) ((eq 
type 'table-cell) (org-table-blank-field) (org-table-recalculate) (if (and 
(string-empty-p (string-trim (org-table-get-field))) (and (boundp 'evil-mode) 
evil-mode)) (progn (evil-change-state 'insert)))) ((eq type 'babel-call) 
(org-babel-lob-execute-maybe)) ((eq type 'statistics-cookie) (save-excursion 
(org-update-statistics-cookies nil))) ((memq type '(inline-src-block 
src-block)) (org-babel-execute-src-block)) ((memq type '(latex-environment 
latex-fragment)) (org-toggle-latex-fragment)) ((eq type 'link) (let ((path 
(org-element-property :path (org-element-lineage context '(link) t)))) (if (and 
path (image-type-from-file-name path)) (+org/refresh-inline-images) 
(org-open-at-point)))) (t (+org/refresh-inline-images))))
  +org/dwim-at-point()
  funcall-interactively(+org/dwim-at-point)
  call-interactively(+org/dwim-at-point nil nil)
  command-execute(+org/dwim-at-point)

If I later try to see the message (hitting Enter on it), I get this

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  nnir-request-update-info("nnir:work" nil)
  nnir-request-group("work" "nnimap:inria" t nil)
  gnus-request-group("nnimap+inria:work" t)
  gnus-check-group-server()
  gnus-request-article-this-buffer(-1 "nnimap+inria:work")
  gnus-article-prepare(-1 nil)
  gnus-summary-display-article(-1 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)

I recently updated org-plus-contrib, and I'm using emacs 26.1.

Is this a known bug?

Thanks,

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Monthly Athmospheric CO₂, Mauna Loa Obs. 2018-08: 406.99, 2017-08: 405.07

signature.asc
Description: PGP signature