org-gnus.el: change nnir group reference

* lisp/org-gnus.el (org-gnus-store-link): Articles in an nnir group
  refer to the original group.

TINYCHANGE

etc/ORG-NEWS

@@ -122,6 +122,9 @@ Note that only ~%(...)~ placeholders initially present in the
 template, or introduced using a file placeholder, i.e., ~%[...]~ are
 expanded.  This prevents evaluating potentially malicious code when
 another placeholder, e.g., ~%i~ expands to a S-exp.
+*** Links stored by ~org-gnus-store-link~ in nnir groups
+Since gnus nnir groups are temporary, ~org-gnus-store-link~ now refers
+to the article's original group.
 *** ~org-babel-check-confirm-evaluate~ is now a function instead of a macro
 The calling convention has changed.
 

lisp/org-gnus.el

@@ -172,10 +172,12 @@ If `org-store-link' was called with a prefix arg the meaning of
 	   (subject (copy-sequence (mail-header-subject header)))
 	   (to (cdr (assq 'To (mail-header-extra header))))
 	   newsgroups x-no-archive desc link)
-      (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name))
-		  'nnvirtual)
-	(setq group (car (nnvirtual-map-article
-			  (gnus-summary-article-number)))))
+      (cl-case  (car (gnus-find-method-for-group gnus-newsgroup-name))
+	(nnvirtual
+	 (setq group (car (nnvirtual-map-article
+			   (gnus-summary-article-number)))))
+	(nnir
+	 (setq group (nnir-article-group (gnus-summary-article-number)))))
       ;; Remove text properties of subject string to avoid Emacs bug
       ;; #3506
       (set-text-properties 0 (length subject) nil subject)