;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304\305\306#\204\300\307\305\306#\210\300\310!\210\311\312\313\314\315DD\316\317\320\321\322&\210\311\323\313\314\324DD\325\317\326\327\330\331\332\321\322&\210\333\334\335\336\337\340%\207" [require gnus-sum gnus-util nnheader nnselect nil t nnir ol custom-declare-variable org-gnus-prefer-web-links funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, `org-store-link' creates web links to Google groups.\n\\<org-mode-map>When nil, Gnus will be used for such links.\nUsing a prefix argument to the command `\\[org-store-link]' (`org-store-link')\nnegates this setting for the duration of the command." :group org-link-store :type boolean org-gnus-no-server #[0 "\300\207" [nil] 1 #1#] "Should Gnus be started using `gnus-no-server'?" org-gnus :version "24.4" :package-version (Org . "8.0") org-link-set-parameters "gnus" :follow org-gnus-open :store org-gnus-store-link] 12)
#@313 Create a link to the Gnus group GROUP.
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 group inside Gnus.

If `org-store-link' was called with a prefix arg the meaning of
`org-gnus-prefer-web-links' is reversed.

(fn GROUP)
(defalias 'org-gnus-group-link #[257 "\302\303\304#\305\306\"\203&	
\204\262
\202\211?\205
\266\202\203&\307
P\207\310P\207" [current-prefix-arg org-gnus-prefer-web-links replace-regexp-in-string "^[^:]+:" "" string-prefix-p "nntp" "https://groups.google.com/group/" "gnus:"] 5 (#$ . 1029)])
#@524 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.

(fn GROUP NEWSGROUPS MESSAGE-ID X-NO-ARCHIVE)
(defalias 'org-gnus-article-link #[1028 "	
\204\262
\202\211?\205
\266\202\203%\203%\211\204%\302\303\304!\"\207\305\306R\207" [current-prefix-arg org-gnus-prefer-web-links format "https://groups.google.com/groups/search?as_umsgid=%s" url-encode-url "gnus:" "#"] 8 (#$ . 1652)])
#@43 Store a link to a Gnus folder or message.
(defalias 'org-gnus-store-link #[0 "\306\267\202V\307 \211\205 \310\311\312\313$\210\314
!\315\316\317$\210\211\262
\207\320	!\211:\203\237\211\242\211\321\267\202\231\212\322\323`\324\"\211\205>\325
!\266\323`\326\"\206I\327 !@)\202\232\212\330\331!\203q\331\323`\324\"\211\205b\325
!\266\323`\326\"\206m\327 !\202\225\330\332!\203\222\332\323`\324\"\211\205\203\325
!\266\323`\326\"\206\216\327 !\202\225\333\334!)\202\232	\262
\202\240	\262
\335=\203\327\336 \337\340\"\216\212\341 \210\342\323`\324\"\211\205\277\325
!\266\323`\326\"\206\312\327 \n\"\343
8\262
*\262
\202\365\342\323`\324\"\211\205\343\325
!\266\323`\326\"\206\356\327 \n\"\343
8\262
\211\344H\345\346\347\350H#\343H\351\352
\203\f
\353\202

\354\355\352\356\355##\266\202\357\360H!\351\211\203,
\361\362G$\210\2024
\363\362G\351$\210
\266\202\364\365H\236A\351\211\f

\204J
\262
\202R
\211?\205P

\266\202\203t
\336 \337\366\"\216\367 \210)\210\206h
\370\371!\262\370\372!\262\370\373!\262
\310\311\312\374\n\375\n\376\377\313\201A&\210\201B	$\201C \315\316\317$\210
\207\351@\212\214\201D \210\201E\201F!\204\301
\201G\201H!\210eb\210\201I\201J\351\201K#\210\201L\201M \201N \201O\351$\210\201P\201Q\201R\201S\351\201K#\201T\"!\201U
!@\262
\345\346\347\201R\201F!#\201R\371!\201R\201V!\201R\201W!\204'\333\201X!\210\310\311\312\374\376\377\313\201A&\f\210\201B\351\351$\201C \315\316\317$\210
\266\207*\207\351\207" [major-mode gnus-newsgroup-name gnus-newsgroup-data org-rm-props current-prefix-arg org-gnus-prefer-web-links #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnus-group-mode 6 gnus-article-mode 33 gnus-summary-mode 33 message-mode 421)) gnus-group-group-name org-link-store-props :type "gnus" :group org-gnus-group-link org-link-add-props :link :description gnus-find-method-for-group #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nnvirtual 49 nnir 79 nnselect 79)) nnvirtual-map-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject fboundp nnselect-article-group nnir-article-group error "No article-group variant bound" gnus-article-mode current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-article-show-summary gnus-data-find-in 3 2 org-unbracket-string "<" ">" 4 nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" copy-sequence 1 remove-text-properties 0 set-text-properties To 9 #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-summary-select-article gnus-fetch-original-field "To" "Newsgroups" "x-no-archive" :from :date :subject :message-id org-store-link-plist :to org-gnus-article-link org-link-email-description message-narrow-to-headers message-fetch-field "Message-ID" message-generate-headers (Message-ID) re-search-forward "^Message-ID:" t put-text-property line-beginning-position line-end-position message-deletable message-unquote-tokens message-tokenize-header mail-fetch-field "gcc" " ," last "From" "Subject" "Can not create link: No Gcc header found"] 24 (#$ . 2474)])
#@53 Follow the nntp: link specified by PATH.

(fn PATH)
(defalias 'org-gnus-open-nntp #[257 "\300
\301\"\300\3028\303\"\3048\3058\306\307\310A\206@#\"\207" [split-string "/" 2 "@" 3 4 org-gnus-follow-link format "nntp+%s:%s"] 10 (#$ . 5734)])
#@72 Follow the Gnus message or folder link specified by PATH.

(fn PATH _)
(defalias 'org-gnus-open #[514 "\300\301\"\204\f\302\303\"\210\304\305\"\304\306\"\307\"\207" [string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in Gnus link %S" match-string-no-properties 1 3 org-gnus-follow-link] 7 (#$ . 5988)])
#@72 Follow a Gnus link to GROUP and ARTICLE.

(fn &optional GROUP ARTICLE)
(defalias 'org-gnus-follow-link #[512 "\303\304!\210\304\236A \210	\203\305	!\210
\306\211\203#\307\310G\n$\210\202+\311\310G\306$\210
\266\202
\306\211\203?\307\310G\n$\210\202G\311\310G\306$\210
\266\202
\203\234\211\203\234\312!\210\3131\227\314\315!\211:\203\216\211\242\211\316=\203\202\317\320\306#\203|\321\306\320#\202\207\322\323!\202\207\323#\262
\266\202\202\225
\323#\266\2020\207\210\322\324!\207
\205\243\325!\207" [org-link-frame-setup gnus-other-frame-object org-rm-props require gnus select-frame nil remove-text-properties 0 set-text-properties gnus-activate-group (quit) #[771 "\300\301\211\204'
\302V\203'\303\304#\262

\305W\203
T\202\"
\306_\262\202\211\2031\307\301\304#\207\310!\207" [1 nil 0 gnus-group-read-group t 16 2 gnus-summary-goto-article message] 9 "\n\n(fn GROUP ARTICLE MSG)"] gnus-find-method-for-group nndoc gnus-group-read-group t gnus-summary-goto-article message "Couldn't follow Gnus link.  Summary couldn't be opened." "Couldn't follow Gnus link.  The linked group is empty." gnus-group-jump-to-group] 11 (#$ . 6312)])
#@48 Like `\[gnus]' but doesn't check for new news.
(defalias 'org-gnus-no-new-news #[0 "\301 \203\302\207\203\303 \207\304 \207" [org-gnus-no-server gnus-alive-p nil gnus-no-server gnus] 1 (#$ . 7501)])
(provide 'ol-gnus)