|
@@ -111,12 +111,12 @@ If `org-store-link' was called with a prefix arg the meaning of
|
|
|
(gnus-group-name))
|
|
|
(t "???")))
|
|
|
desc link)
|
|
|
- (unless group (error "Not on a group"))
|
|
|
- (org-store-link-props :type "gnus" :group group)
|
|
|
- (setq desc (org-gnus-group-link group)
|
|
|
- link desc)
|
|
|
- (org-add-link-props :link link :description desc)
|
|
|
- link))
|
|
|
+ (when group
|
|
|
+ (org-store-link-props :type "gnus" :group group)
|
|
|
+ (setq desc (org-gnus-group-link group)
|
|
|
+ link desc)
|
|
|
+ (org-add-link-props :link link :description desc)
|
|
|
+ link)))
|
|
|
|
|
|
((memq major-mode '(gnus-summary-mode gnus-article-mode))
|
|
|
(and (eq major-mode 'gnus-summary-mode) (gnus-summary-show-article))
|