;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-gnus.el
;;; in Emacs version 24.3.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!\203\304\305\306\"\210\307\306\310\311\312\313\314\315&\210\307\316\310\317\312\313\320\321\314\315&	\210\322\323\324\"\210\325\326\327\"\207" [require org gnus-util fboundp 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-add-link-type "gnus" org-gnus-open add-hook org-store-link-functions org-gnus-store-link] 10)
#@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) "\304\305!rq\210\306\216\307	\n\"\310!\205#\311!\210\312\313!\210eb\210\314\315\215,\207" [#1=#:temp-buffer group server nov generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnimap-group-overview-filename file-exists-p mm-insert-file-contents set-buffer-modified-p nil found (byte-code "\302\303\304#\205!\305\306\307!\310\"\311	8\230\203\312\313	@\"\210)\202\207" [message-id hdr search-forward nil t split-string thing-at-point line "	" 4 throw found] 4)] 3 (#$ . 1723)])
#@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 (#$ . 2532)])
#@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 (#$ . 3220)])
#@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)\211B\333HC\334B\335H!D\336B\325H!\211E\205\207\313\337\340\217FE\205\222\313\341\342\217G\343B\344H!H\345B\346H\236A@\313\211IJ\313\211\347\350HG\313H$\210\351KL\"\203\340\352 M\353\216\354 \210*@\206\324\355\356!@\355\357!I\355\360!J\314\315\316\361C\362H\363D\317	\364@&\f\210E\203
\321\365E\366F\367G&\210\370 \371	IDJ$\321\322\323\n$\210.
\207\372=\205\324
\313N\212\214\373 \210\374\375!\2046
\376\377!\210eb\210\201S\201T\313\201U#\210\201V\350\224\350\225\201W\313$\210\201X\201Y\201Z\201[\201\\\313\201U#\201]\"!!@\334\201[\375!!\201[\356!\201[\201^!\201[\201_!\313\211\211\211OPHC@Q\211R\204\247
\201`\201a!\210\314\315\316\361C\362H\363Q\317R\364@&\f\210\370 \371RPQO$\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 (byte-code "\301\302\303!\304!\"\207" [date format-time-string org-time-stamp-format t date-to-time] 4) ((error)) (byte-code "\301\302\303\211\"\304!\"\207" [date format-time-string org-time-stamp-format t date-to-time] 4) ((error)) copy-sequence 1 To 9 set-text-properties 0 org-xor current-window-configuration ((set-window-configuration #1=#:wconfig)) 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" message-generate-headers (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 re-search-forward "^Message-ID: *.*$" t 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 (#$ . 4154)])
#@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 (#$ . 6809)])
#@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 (#$ . 7093)])
#@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\215\203\215\316\n!\210\311\317\320\217\207\n\205\224\321\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 (byte-code "\306!\211@	\211A@)\n\307=\203+\310\311\312#\203$\313
\312\311#\202\212\314\315\316\"\202\212\317\312\n\320=\203N\203N\321\322\323\"A@\f\324
\325Q#\206M
\204x\326V\203x\310\311#\327W\203oT\202s\330_\202N\203\205\313
\312\311#\202\211\314\315\316\"*+\207" [group method backend x server article gnus-find-method-for-group nndoc gnus-group-read-group t nil 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 ":" "<" ">" 0 16 2 group-opened articles org-gnus-nnimap-query-article-no-from-file] 7) ((quit (message "Couldn't follow gnus link.  %s" "The linked group is empty."))) gnus-group-jump-to-group article] 5 (#$ . 7735)])
#@49 Like `M-x gnus' but doesn't check for new news.
(defalias 'org-gnus-no-new-news #[nil "\300 ?\205\301 \207" [gnus-alive-p gnus] 1 (#$ . 9174)])
(provide 'org-gnus)