Function: org-gnus-article-link
org-gnus-article-link is a byte-compiled function defined in
ol-gnus.el.gz.
Signature
(org-gnus-article-link GROUP NEWSGROUPS MESSAGE-ID X-NO-ARCHIVE)
Documentation
Create a link to a Gnus article.
The article is specified by its MESSAGE-ID. Additional parameters are the Gnus GROUP, the NEWSGROUPS the article was posted to and the X-NO-ARCHIVE header value of that article.
If GROUP is a newsgroup and org-gnus-prefer-web-links is
non-nil, create a link to groups.google.com.
Otherwise create a link to the article inside Gnus.
If org-store-link was called with a prefix arg the meaning of
org-gnus-prefer-web-links is reversed.
Source Code
;; Defined in /usr/src/emacs/lisp/org/ol-gnus.el.gz
(defun org-gnus-article-link (group newsgroups message-id x-no-archive)
"Create a link to a Gnus article.
The article is specified by its MESSAGE-ID. Additional
parameters are the Gnus GROUP, the NEWSGROUPS the article was
posted to and the X-NO-ARCHIVE header value of that article.
If GROUP is a newsgroup and `org-gnus-prefer-web-links' is
non-nil, create a link to groups.google.com.
Otherwise create a link to the article inside Gnus.
If `org-store-link' was called with a prefix arg the meaning of
`org-gnus-prefer-web-links' is reversed."
(if (and (org-xor current-prefix-arg org-gnus-prefer-web-links)
newsgroups ;make web links only for nntp groups
(not x-no-archive)) ;and if X-No-Archive isn't set
(format "https://groups.google.com/groups/search?as_umsgid=%s"
(url-encode-url message-id))
(concat "gnus:" group "#" message-id)))