Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-gnus.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:45 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-gnus.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-gnus.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303!\203�\303\304\305\"\210\300\207" [require org fboundp defvaralias org-usenet-links-prefer-google org-gnus-prefer-web-links] 3)
#@242 Non-nil means, `org-store-link' will create web links to Google groups.
When nil, Gnus will be used for such links.
Using a prefix arg to the command \[org-store-link] (`org-store-link')
negates this setting for the duration of the command.
(custom-declare-variable 'org-gnus-prefer-web-links 'nil '(#$ . 774) :group 'org-link-store :type 'boolean)
(byte-code "\300\301\302\"\210\303\304\305\"\207" [org-add-link-type "gnus" org-gnus-open add-hook org-store-link-functions org-gnus-store-link] 3)
#@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&�\312\307\313	\"\203 �\314\202!�\315	\"\202*�\312\316\")\207" [group unprefixed-group current-prefix-arg org-gnus-prefer-web-links replace-regexp-in-string "^[^:]+:" "" string-match "^nntp" org-xor org-make-link "gmane" "http://news.gmane.org/" "http://groups.google.com/group/" "gnus:"] 4 (#$ . 1278)])
#@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
\317\f$\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 org-make-link "gnus:" "#"] 5 (#$ . 1990)])
#@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>\205I\325=\203L�\326 \210\fr
q\210\327\330!\210eb\210\331 )2\33223\21123\206m�4\236A*\333\33423\21123\206\202�4\236A*!\33523\21123\206\227�4\236A*\33623\21123\206\253�4\236A*\33723\21123\206\277�4\236A*\34023\21123\206\323�4\236A* \341=\203\344�\342\343!\202\344\345`\346\"\211\203\364�\347!\210)\345`\350\"\206\376�\351 5\2368\2114\205\3524!\2054\330H)6\313\211\314\315\316\353\3546\355\317	\356&\f\210\357 \360	 $\321\322\323\n$\210\327\361!\210.\207" [major-mode group desc link gnus-newsgroup-name gnus-article-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) gnus-summary-mode gnus-summary-show-article gnus-summary-toggle-header 1 mail-header-extract-no-properties from org-remove-angle-brackets message-id date to newsgroups x-no-archive gnus-article-mode message-fetch-field "subject" 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp :from :subject :message-id :to org-email-link-description org-gnus-article-link -1 header header-alist headers gnus-newsgroup-data subject] 14 (#$ . 2942)])
#@59 Follow the Gnus message or folder link specified by PATH.
(defalias 'org-gnus-open #[(path) "\303\211\304\305\n\"\204�\306\307!\210\310\311\n\"\310\312\n\"	\203!�\313	!\203)�\313!\314	\"*\207" [article group path nil string-match "\\`\$[^#]+\$\$#\\(.*\$\\)?" error "Error in Gnus link" match-string 1 3 org-substring-no-properties org-gnus-follow-link] 3 (#$ . 4485)])
#@42 Follow a Gnus link to GROUP and ARTICLE.
(defalias 'org-gnus-follow-link #[(&optional group article) "\304\305!\210\305\236A \210	\203�\306	!\210\n\203�\307\n!\203\"�\307!\n\2034�\2034�\310\n\311\"\210\312\313\314\217\207\n\205;�\315\n!\207" [org-link-frame-setup gnus-other-frame-object group article require gnus select-frame org-substring-no-properties gnus-activate-group t nil (byte-code "\304\305\204&�	\306V\203&�\307	\305\n#	\310W\203�	T\202\"�	\311_\202�\2032�\312\305\313#\2026�\314\315\316\"*\207" [group-opened articles group article 1 nil 0 gnus-group-read-group 16 2 gnus-summary-goto-article t message "Couldn't follow gnus link.  %s" "The summary couldn't be opened."] 4) ((quit (message "Couldn't follow gnus link.  %s" "The linked group is empty."))) gnus-group-jump-to-group] 3 (#$ . 4874)])
#@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 (#$ . 5708)])
(provide 'org-gnus)

${this.title}

Code Editor : org-gnus.elc