| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\317&\210\306\320\310\311\321DD\322\314\323\324\325\326\327\316\317& \210\330\331\332\333\334\335%\207" [require gnus-sum gnus-util nnheader nnir org 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 or Gmane.\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) | |
| 16 | #@325 Create a link to the Gnus group GROUP. | |
| 17 | If GROUP is a newsgroup and `org-gnus-prefer-web-links' is | |
| 18 | non-nil, create a link to groups.google.com or gmane.org. | |
| 19 | Otherwise create a link to the group inside Gnus. | |
| 20 | ||
| 21 | If `org-store-link' was called with a prefix arg the meaning of | |
| 22 | `org-gnus-prefer-web-links' is reversed. | |
| 23 | ||
| 24 | (fn GROUP) | |
| 25 | (defalias 'org-gnus-group-link #[257 "\302\303\304#\305\306\"\203$ \307 \"\203$ \310\311\"\203 \312\202 \313P\202' \314P\207" [current-prefix-arg org-gnus-prefer-web-links replace-regexp-in-string "^[^:]+:" "" string-prefix-p "nntp" org-xor string-match "gmane" "http://news.gmane.org/" "http://groups.google.com/group/" "gnus:"] 5 (#$ . 1307)]) | |
| 26 | #@536 Create a link to a Gnus article. | |
| 27 | The article is specified by its MESSAGE-ID. Additional | |
| 28 | parameters are the Gnus GROUP, the NEWSGROUPS the article was | |
| 29 | posted to and the X-NO-ARCHIVE header value of that article. | |
| 30 | ||
| 31 | If GROUP is a newsgroup and `org-gnus-prefer-web-links' is | |
| 32 | non-nil, create a link to groups.google.com or gmane.org. | |
| 33 | Otherwise create a link to the article inside Gnus. | |
| 34 | ||
| 35 | If `org-store-link' was called with a prefix arg the meaning of | |
| 36 | `org-gnus-prefer-web-links' is reversed. | |
| 37 | ||
| 38 | (fn GROUP NEWSGROUPS MESSAGE-ID X-NO-ARCHIVE) | |
| 39 | (defalias 'org-gnus-article-link #[1028 "\302 \"\203! \203! \211\204! \303\304\305\"\203 \306\202 \307\310!\"\207\311\312R\207" [current-prefix-arg org-gnus-prefer-web-links org-xor format string-match "gmane\\." "http://mid.gmane.org/%s" "http://groups.google.com/groups/search?as_umsgid=%s" org-fixup-message-id-for-http "gnus:" "#"] 8 (#$ . 1992)]) | |
| 40 | #@43 Store a link to a Gnus folder or message. | |
| 41 | (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\224\321 !\211:\203\226 \211@\211\322\267\202\220 \212\323\324`\325\"\211\203E \326!\210\210\324`\327\"\206O \330 !@)\202\221 \212\324`\325\"\211\203b \326!\210\210\324`\327\"\206l \330 \331V\205\212 \n\324`\325\"\211\203~ \326!\210\210\324`\327\"\206\210 \330 S\234\331\234)\202\221 \262\202\227 \262\332=\203\321 \333 \334\331\335\336\337!\340\"\341$\216\212\342 \210\343\324`\325\"\211\203\276 \326!\210\210\324`\327\"\206\310 \330 \2368*\262\202\353 \343\324`\325\"\211\203\336 \326!\210\210\324`\327\"\206\350 \330 \2368\211\341H\344\345\346\347H#\343H\350\351\203\352\202\353\354\351\355\354##\266\202\356\357H!\350\211\203\"\360\331G\f$\210\202*\361\331G\350$\210\266\202\362\363H\236A\350\211\364 @\"\203c\333 \334\331\335\336\337!\365\"\341$\216\366 \210)\210\206W\367\370!\262\367\371!\262\367\372!\262\310\311\312\373\n\374\n\375 \376\313\377&\210\201B $\201C \315\316\317$\210\266\202\207\201D =\203T\350A\212\214\201E \210\201F \201G !\204\270\201H \201I !\210eb\210\201J \201K \350\201L #\210\201M \201N \201O \201P \350$\210\201Q \201R \201S \201T \350\201L #\201U \"!\201V !@\262\344\345\346\201S \201G !#\201S \370!\201S \201W !\201S \201X !\350\211\204#\201Y \201Z !\210\310\311\312\373\375\376 \313\377&\f\210\201B $\201C \315\316\317$\210\266\202\266\207*\207\350\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-store-link-props :type "gnus" :group org-gnus-group-link org-add-link-props :link :description (gnus-article-mode gnus-summary-mode) gnus-find-method-for-group #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nnvirtual 55 nnir 85)) nnvirtual-map-article get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 0 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" "x-no-archive" :from :date :subject :message-id :to org-gnus-prefer-web-links org-store-link-plist org-gnus-article-link org-email-link-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" error "Can not create link: No Gcc header found"] 24 (#$ . 2893)]) | |
| 42 | #@53 Follow the nntp: link specified by PATH. | |
| 43 | ||
| 44 | (fn PATH) | |
| 45 | (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 (#$ . 5952)]) | |
| 46 | #@70 Follow the Gnus message or folder link specified by PATH. | |
| 47 | ||
| 48 | (fn PATH) | |
| 49 | (defalias 'org-gnus-open #[257 "\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] 6 (#$ . 6206)]) | |
| 50 | #@72 Follow a Gnus link to GROUP and ARTICLE. | |
| 51 | ||
| 52 | (fn &optional GROUP ARTICLE) | |
| 53 | (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 (#$ . 6528)]) | |
| 54 | #@48 Like `\[gnus]' but doesn't check for new news. | |
| 55 | (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 (#$ . 7869)]) | |
| 56 | (provide 'org-gnus) | |
