Current File : //usr/local/share/emacs/27.2/lisp/org/ol-gnus.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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] "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] "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( \307P\202+ \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 (#$ . 1343)])
#@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 (#$ . 1968)])
#@43 Store a link to a Gnus folder or message.
(defalias 'org-gnus-store-link #[0 "\306\267\202\226\307 \211\205 \310\311\312\313$\210\314!\315\316\317$\210\211\262\207\320 !\211:\203\275 \211@\211\321\267\202\267 \212\322\323`\324\"\211\205> \325!\266\323`\326\"\206I \327 !@)\202\270 \212\330\331!\203q \331\323`\324\"\211\205b \325!\266\323`\326\"\206m \327 !\202\263 \330\332!\203\260 \323`\324\"\211\205\202 \325!\266\323`\326\"\206\215 \327 \333V\205\253 \n\323`\324\"\211\205\236 \325!\266\323`\326\"\206\251 \327 S\234\333\234\202\263 \334\335!)\202\270 \262\202\276 \262\336=\203\374 \337 \340\333\341\342\343!\344\"\345$\216\212\346 \210\347\323`\324\"\211\205\344 \325!\266\323`\326\"\206\357 \327 \"\3508\262*\262\202\347\323`\324\"\211\205\325!\266\323`\326\"\206\327 \"\3508\262\211\345H\351\352\353\354H#\350H\355\356\2031\357\2022\360\361\356\362\361##\266\202\363\364H!\355\211\203Q\365\333G\f$\210\202Y\366\333G\355$\210\266\202\367\370H\236A\355\211
@\204p\262\202x\211?\205v\266\202\203\241\337 \340\333\341\342\343!\371\"\345$\216\372 \210)\210\206\225\373\374!\262\373\375!\262\373\376!\262\310\311\312\377\n\201B \n\201C \201D \313\201E &\210\201F $\201G \315\316\317$\210\266\202\207\355A\212\214\201H \210\201I \201J !\204\366\201K \201L !\210eb\210\201M \201N \355\201O #\210\201P \201Q \201R \201S \355$\210\201T \201U \201V \201W \355\201O #\201X \"!\201Y !@\262\351\352\353\201V \201J !#\201V \374!\201V \201Z !\201V \201[ !\355\211\204_\334\201\\ !\210\310\311\312\377\201C \201D
\313\201E &\f\210\201F $\201G \315\316\317$\210\266\202\266\207*\207\355\207" [major-mode gnus-newsgroup-name nnir-artlist gnus-newsgroup-data org-rm-props current-prefix-arg #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 474)) 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 0 error "No article-group variant bound" gnus-article-mode current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 gnus-article-show-summary gnus-data-find-in 3 org-unbracket-string "<" ">" 4 nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "" "[ \n
]+\\'" copy-sequence 1 remove-text-properties set-text-properties To 9 [set-window-configuration] gnus-summary-select-article gnus-fetch-original-field "To" "Newsgroups" "x-no-archive" :from org-gnus-prefer-web-links org-store-link-plist :date :subject :message-id :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 (#$ . 2790)])
#@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 (#$ . 6199)])
#@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 (#$ . 6453)])
#@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\326 \211\203\326 \312!\210\3131\317 \314\315!\316:\203\302 @\211\317=\203\203 \320\321\306#\203} \322\306\321#\202\275 \323!\202\275 \324\306\211\204\252 \310V\203\252 \320\321\n#\262\325W\203\242 T\202\245 \326_\262\202\205 \211\203\267 \322\306\321#\202\273 \323!\266\202\262\202\307 \211#\266\202\2620\202\335 \210\323\327!\202\335 \205\335 \330!\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) "Couldn't follow Gnus link. Summary couldn't be opened." gnus-find-method-for-group #[771 "\300\301\211\204' \302V\203' \303\304#\262\305W\203 T\202\" \306_\262\202 \211\2033 \307\301\304#\2026 \310!\207" [1 nil 0 gnus-group-read-group t 16 2 gnus-summary-goto-article message] 9 "\n\n(fn GROUP ARTICLE MSG)"] nndoc gnus-group-read-group t gnus-summary-goto-article message 1 16 2 "Couldn't follow Gnus link. The linked group is empty." gnus-group-jump-to-group] 14 (#$ . 6777)])
#@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 (#$ . 8118)])
(provide 'ol-gnus)
Mini Shell