ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-gnus.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\303\304\305\"\210\306\305\307\310\311\312\313\314&\210\306\315\307\316\311\312\317\320\313\314& \210\306\321\307\322\311\323\317\324\325\326\313\314& \210\327\330\331\"\210\332\333\334\"\207" [require org gnus-util org-defvaralias org-usenet-links-prefer-google org-gnus-prefer-web-links custom-declare-variable nil "If non-nil, `org-store-link' creates web links to Google groups or Gmane.\nWhen nil, Gnus will be used for such links.\nUsing a prefix arg 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-nnimap-query-article-no-from-file "If non-nil, `org-gnus-follow-link' will try to translate\nMessage-Ids to article numbers by querying the .overview file.\nNormally, this translation is done by querying the IMAP server,\nwhich is usually very fast. Unfortunately, some (maybe badly\nconfigured) IMAP servers don't support this operation quickly.\nSo if following a link to a Gnus article takes ages, try setting\nthis variable to t." :version "24.1" org-gnus-no-server "Should Gnus be started using `gnus-no-server'?" org-gnus "24.4" :package-version (Org . "8.0") org-add-link-type "gnus" org-gnus-open add-hook org-store-link-functions org-gnus-store-link] 12)
#@177 Return cached article number (uid) of message in GROUP on SERVER.
MESSAGE-ID is the message-id header field that identifies the
message. If the uid is not cached, return nil.
(defalias 'org-gnus-nnimap-cached-article-number #[(group server message-id) "\306\307!rq\210\310\216\311 \n\"\312 !\205F \313 !\210\314\315!\210eb\210\3162F \317\f\315\320#\205E \321\322\323!\324\" \325
8\f\230\203A \326\316
@\"\210)\202$ 0,\207" [#1=#:temp-buffer group server nov message-id hdr generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nnimap-group-overview-filename file-exists-p mm-insert-file-contents set-buffer-modified-p nil found search-forward t split-string thing-at-point line " " 4 throw] 4 (#$ . 1726)])
#@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 or gmane.org.
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.
(defalias 'org-gnus-group-link #[(group) "\304\305\306#\307\310\"\203% \311\n \"\203% \307\312 \"\203 \313\202 \314 P\202( \315P)\207" [group unprefixed-group current-prefix-arg org-gnus-prefer-web-links replace-regexp-in-string "^[^:]+:" "" string-match "^nntp" org-xor "gmane" "http://news.gmane.org/" "http://groups.google.com/group/" "gnus:"] 4 (#$ . 2484)])
#@489 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 or gmane.org.
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.
(defalias 'org-gnus-article-link #[(group newsgroups message-id x-no-archive) "\306 \"\203! \n\203! \204! \307\310\311\n\"\203 \312\202 \313\314\f!\"\207\315
\316\fR\207" [current-prefix-arg org-gnus-prefer-web-links newsgroups x-no-archive message-id group 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:" "#"] 4 (#$ . 3172)])
#@43 Store a link to a Gnus folder or message.
(defalias 'org-gnus-store-link #[nil "\306=\203= \307\310!\203 \310 \202 \307\311!\203 \311 \202 \312\313\211 \205; \314\315\316\317 $\210\320 !\211\321\322 \323\n$\210 +\207\324>\203=\fr
q\210\325\326`\327\"\211 @\203Y \330@!\210)\326`\331\"\206c \332 A\2368)\211 B\333H C\334B\335H! D\336B\325H!\211 E\205\226 \3371\224 \340\341\342!\343E!\"0\202\226 \210\313 FE\205\261 \3441\257 \340\341\342\211\"\343E!\"0\202\261 \210\313 G\345B\346H! H\347B\350H\236A @\313\211 I J\313\211\351\352HG\313H$\210\353KL\"\203\377 \354 M\355\216\356 \210*@\206\363 \357\360!@\357\361!I\357\362!J\314\315\316\363C\364H\365D\317 \366@&\f\210E\203%\321\367E\370F\371G&\210\372 \373 IDJ$\321\322 \323\n$\210 .
\207\374=\205\363\313N\212\214\375 \210\376\377!\204Y\201S \201T !\210eb\210\201U \201V \313\342#\210\201W \352\224\352\225\201X \313$\210\201Y \201Z \201[ \201\\ \201] \313\342#\201^ \"!!@\334\201\\ \377!!\201\\ \360!\201\\ \201_ !\201\\ \201` !\313\211\211\211 O P H C @ Q\211 R\204\306\201a \201b !\210\314\315\316\363C\364H\365Q\317R\366@&\f\210\372 \373RPQO$\321\322 \323\n$\210 . \207" [major-mode group desc link gnus-newsgroup-name gnus-summary-buffer gnus-group-mode fboundp gnus-group-group-name gnus-group-name "???" nil org-store-link-props :type "gnus" :group org-gnus-group-link org-add-link-props :link :description (gnus-summary-mode gnus-article-mode) 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 2 org-remove-angle-brackets 4 org-trim (error) format-time-string org-time-stamp-format t date-to-time (error) copy-sequence 1 To 9 set-text-properties 0 org-xor current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] gnus-summary-select-article gnus-fetch-original-field "To" "Newsgroups" "x-no-archive" :from :subject :message-id :to :date :date-timestamp :date-timestamp-inactive org-email-link-description org-gnus-article-link message-mode message-narrow-to-headers message-fetch-field "Message-ID" to gnus-newsgroup-data header from message-id date date-ts date-ts-ia subject newsgroups x-no-archive current-prefix-arg org-gnus-prefer-web-links #1# org-store-link-plist xarchive newsgroup id gcc message-generate-headers (Message-ID) re-search-forward "^Message-ID: *.*$" put-text-property message-deletable last message-unquote-tokens message-tokenize-header mail-fetch-field "gcc" " ," "From" "Subject" error "Can not create link: No Gcc header found"] 14 (#$ . 4106)])
#@42 Follow the nntp: link specified by PATH.
(defalias 'org-gnus-open-nntp #[(path) "\305\306\"\305\307 8\310\"\311 8\312 8 \313\314\315\nA\206 \n@ #\f\",\207" [path spec server group article split-string "/" 2 "@" 3 4 org-gnus-follow-link format "nntp+%s:%s"] 5 (#$ . 6693)])
#@59 Follow the Gnus message or folder link specified by PATH.
(defalias 'org-gnus-open #[(path) "\306\211\307\310\n\"\204 \311\312!\210\313\314\n\"\313\315\n\" \203L \306 \316\317!\2032 \317\320\fG\306\f$\210\202I \203A \321\320\fG
\f$\210\202I \317\320\fG\306\f$\210\f*\203 \306 \316\317!\203e \317\320\fG\306\f$\210\202| \203t \321\320\fG
\f$\210\202| \317\320\fG\306\f$\210\f*\322 \"*\207" [article group path restricted s org-rm-props nil string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in Gnus link" match-string 1 3 fboundp set-text-properties 0 remove-text-properties org-gnus-follow-link] 5 (#$ . 6977)])
#@42 Follow a Gnus link to GROUP and ARTICLE.
(defalias 'org-gnus-follow-link #[(&optional group article) "\306\307!\210\307\236A \210 \203 \310 !\210\n\203E \n\311 \312\313!\203+ \313\314\fG\311\f$\210\202B \203: \315\314\fG
\f$\210\202B \313\314\fG\311\f$\210\f*#\203{ #\311 \312\313!\203` \313\314\fG\311\f$\210\202w \203o \315\314\fG
\f$\210\202w \313\314\fG\311\f$\210\f*#\n\203(#\203(\316\n!\210\3171\"\320\n!\211 $@ %$A@ &%\321=\203\272 \322\323\311\n#\203\263 \324#\311\323#\202 \325\326\327\"\202 \330\311 ' (%\331=\203\342 )\203\342 \332\333\n\334\"A@&\335#\336Q#\206\340 ##'\204\f(\314V\203\f\322(\323\n#'(\337W\203(T\202(\340_(\202\342 '\203\324#\311\323#\202 \325\326\327\"*+0\207\210\325\326\341\"\207\n\205/\342\n!\207" [org-link-frame-setup gnus-other-frame-object group restricted s org-rm-props require gnus select-frame nil fboundp set-text-properties 0 remove-text-properties gnus-activate-group (quit) gnus-find-method-for-group nndoc gnus-group-read-group t gnus-summary-goto-article message "Couldn't follow gnus link. %s" "The summary couldn't be opened." 1 nnimap org-gnus-nnimap-cached-article-number split-string ":" "<" ">" 16 2 "The linked group is empty." gnus-group-jump-to-group article method backend server group-opened articles org-gnus-nnimap-query-article-no-from-file] 7 (#$ . 7619)])
#@48 Like `\[gnus]' but doesn't check for new news.
(defalias 'org-gnus-no-new-news #[nil "\301 ?\205 \203
\302 \207\303 \207" [org-gnus-no-server gnus-alive-p gnus-no-server gnus] 1 (#$ . 8989)])
(provide 'org-gnus)
Kontol Shell Bypass