gnus link no longer work

gnus link no longer work

[Alan Schmitt]

[-- Attachment #1: Type: text/plain, Size: 6364 bytes --]

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("EF188ABB-9586-4B61-B82F-48FDC37DA0BE@inria.fr")
  gnus-summary-goto-article("EF188ABB-9586-4B61-B82F-48FDC37DA0BE@inria.fr" nil t)
  org-gnus-follow-link("nnimap+inria:work" "EF188ABB-9586-4B61-B82F-48FDC37DA0BE@inria.fr")
  org-gnus-open("nnimap+inria:work#EF188ABB-9586-4B61-B82F-48FDC37DA0BE@inria.fr")
  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

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 528 bytes --]