;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\\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\307 \"\203\310P\202\311P\207" [current-prefix-arg org-gnus-prefer-web-links replace-regexp-in-string "^[^:]+:" "" string-prefix-p "nntp" org-xor "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 "\302 \"\203\203\211\204\303\304\305!\"\207\306\307R\207" [current-prefix-arg org-gnus-prefer-web-links org-xor format "https://groups.google.com/groups/search?as_umsgid=%s" url-encode-url "gnus:" "#"] 8 (#$ . 1944)]) #@43 Store a link to a Gnus folder or message. (defalias 'org-gnus-store-link #[0 "\306=\203!\307 \211\205 \310\311\312\313$\210\314!\315\316\317$\210\211\262\207\320>\203\323\321 !\211:\203\311\211@\211\322=\203U\212\323\324`\325\"\211\203E\326!\210\210\324`\327\"\206O\330 !@)\202\304\211\331>\203\303\212\332\333!\203}\333\324`\325\"\211\203o\326!\210\210\324`\327\"\206y\330 !\202\277\332\334!\203\274\324`\325\"\211\203\217\326!\210\210\324`\327\"\206\231\330 \335V\205\267\n\324`\325\"\211\203\253\326!\210\210\324`\327\"\206\265\330 S\234\335\234\202\277\336\337!)\202\304 \262\202\312 \262\340=\203\341 \342\335\343\344\345!\346\"\347$\216\212\350 \210\351\324`\325\"\211\203\361\326!\210\210\324`\327\"\206\373\330 \2368*\262\202\351\324`\325\"\211\203\326!\210\210\324`\327\"\206\330 \2368\211\347H\352\353\354\355H#\351H\356\357\2035\360\2026\361\362\357\363\362##\266\202\364\365H!\356\211\203U\366\335G\f$\210\202]\367\335G\356$\210\266\202\370\371H\236A\356\211\372 @\"\203\230\341 \342\335\343\344\345!\373\"\347$\216\374 \210)\210\206\212\375\376!\262\375\377!\262\375\201B!\262\310\311\312\201C\n\201D\n\201E \201F\313\201G&\210\201H $\201I \315\316\317$\210\266\202\207\201J=\203\231\356A\212\214\201K \210\201L\201M!\204\367\201N\201O!\210eb\210\201P\201Q\356\201R#\210\201S\201T \201U \201V\356$\210\201W\201X\201Y\201Z\356\201R#\201[\"!\201\\!@\262\352\353\354\201Y\201M!#\201Y\376!\201Y\201]!\201Y\201^!\356\211\204`\336\201_!\210\310\311\312\201C\201E\201F \313\201G&\f\210\201H$\201I \315\316\317$\210\266\202\266\207*\207\356\207" [major-mode gnus-newsgroup-name nnir-artlist gnus-newsgroup-data org-rm-props current-prefix-arg gnus-group-mode gnus-group-group-name org-link-store-props :type "gnus" :group org-gnus-group-link org-link-add-props :link :description (gnus-article-mode gnus-summary-mode) gnus-find-method-for-group nnvirtual nnvirtual-map-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject (nnir nnselect) 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 3 org-unbracket-string "<" ">" 4 nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" copy-sequence 1 remove-text-properties set-text-properties To 9 org-xor [set-window-configuration] gnus-summary-select-article gnus-fetch-original-field "To" "Newsgroups" org-gnus-prefer-web-links org-store-link-plist "x-no-archive" :from :date :subject :message-id :to org-gnus-article-link org-link-email-description message-mode 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 (#$ . 2742)]) #@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 (#$ . 5959)]) #@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 (#$ . 6213)]) #@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\242T\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\203T\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 (#$ . 6537)]) #@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 (#$ . 7878)]) (provide 'ol-gnus)