|
@@ -34,7 +34,8 @@
|
|
|
(require 'gnus-sum)
|
|
|
(require 'gnus-util)
|
|
|
(require 'nnheader)
|
|
|
-(require 'nnir)
|
|
|
+(or (require 'nnselect nil t) ; Emacs >= 28
|
|
|
+ (require 'nnir nil t)) ; Emacs < 28
|
|
|
(require 'ol)
|
|
|
|
|
|
|
|
@@ -135,9 +136,15 @@ If `org-store-link' was called with a prefix arg the meaning of
|
|
|
(`(nnvirtual . ,_)
|
|
|
(save-excursion
|
|
|
(car (nnvirtual-map-article (gnus-summary-article-number)))))
|
|
|
- (`(nnir . ,_)
|
|
|
+ (`(,(or `nnselect `nnir) . ,_) ; nnir is for Emacs < 28.
|
|
|
(save-excursion
|
|
|
- (nnir-article-group (gnus-summary-article-number))))
|
|
|
+ (cond
|
|
|
+ ((fboundp 'nnselect-article-group)
|
|
|
+ (nnselect-article-group (gnus-summary-article-number)))
|
|
|
+ ((fboundp 'nnir-article-group)
|
|
|
+ (nnir-article-group (gnus-summary-article-number)))
|
|
|
+ (t
|
|
|
+ (error "No article-group variant bound")))))
|
|
|
(_ gnus-newsgroup-name)))
|
|
|
(header (if (eq major-mode 'gnus-article-mode)
|
|
|
;; When in an article, first move to summary
|