Browse Source

Merge branch 'maint'

Nicolas Goaziou 1 month ago
parent
commit
326b2e85e4
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/org-gnus.el

+ 2 - 1
lisp/org-gnus.el

@@ -120,7 +120,8 @@ If `org-store-link' was called with a prefix arg the meaning of
      (let* ((group
 	     (pcase (gnus-find-method-for-group gnus-newsgroup-name)
 	       (`(nnvirtual . ,_)
-		(car (nnvirtual-map-article (gnus-summary-article-number))))
+		(save-excursion
+		  (car (nnvirtual-map-article (gnus-summary-article-number)))))
 	       (`(nnir . ,_)
 		(nnir-article-group (gnus-summary-article-number)))
 	       (_ gnus-newsgroup-name)))