Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-diary.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:25 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-diary.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 "`gnus-diary.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require nndiary message gnus-art custom-declare-group gnus-diary nil "Utilities on top of the nndiary back end for Gnus." :version "22.1" :group gnus] 8)
#@42 *Summary line format for nndiary groups.
(custom-declare-variable 'gnus-diary-summary-line-format '"%U%R%z %uD: %(%s%) (%ud)\n" '(#$ . -862) :type 'string :group 'gnus-diary :group 'gnus-summary-format)
#@139 *Time format to display appointments in nndiary summary buffers.
Please refer to `format-time-string' for information on possible values.
(custom-declare-variable 'gnus-diary-time-format '"%a, %b %e %y, %H:%M" '(#$ . -1072) :type 'string :group 'gnus-diary)
#@490 *Function called to format a diary delay string.
It is passed two arguments.  The first one is non-nil if the delay is in
the past.  The second one is of the form ((NUM . UNIT) ...) where NUM is
an integer and UNIT is one of 'year 'month 'week 'day 'hour or 'minute.
It should return strings like "In 2 months, 3 weeks", "3 hours,
1 minute ago" and so on.

There are currently two built-in format functions:
`gnus-diary-delay-format-english' (the default)
`gnus-diary-delay-format-french'
(custom-declare-variable 'gnus-diary-delay-format-function ''gnus-diary-delay-format-english '(#$ . -1337) :type '(choice (const :tag "english" gnus-diary-delay-format-english) (const :tag "french" gnus-diary-delay-format-french) (symbol :tag "other")) :group 'gnus-diary)
#@33 Current Diary back end version.
(defconst gnus-diary-version nndiary-version (#$ . 2105))
(byte-code "\300\301!\203�\302\303\301\"\210\202�\302\303\304\"\210\300\207" [fboundp kill-entire-line defalias gnus-diary-kill-entire-line #[nil "\301 \210\302\303 )\207" [kill-whole-line beginning-of-line t kill-line] 1]] 3)
(defalias 'gnus-diary-delay-format-french #[(past delay) "\204�\304\207G\305V\203�A\306\241\210	\203�\307\202�\310\311\306\211A@\211\203\211�\312\n@!\313\nA\314=\203:�\315\202n�\nA\316=\203E�\317\202n�\nA\320=\203P�\321\202n�\nA\322=\203[�\323\202n�\nA\324=\203f�\325\202n�\nA\326=\205n�\327\nA\316=\206y�\n@\305U?\205~�\330\205\203�\331\260\202�*P\207" [delay past del str "maintenant!" 1 nil "il y a " "dans " "" int-to-string " " year "an" month "mois" week "semaine" day "jour" hour "heure" minute "minute" "s" ", "] 7])
(defalias 'gnus-diary-delay-format-english #[(past delay) "\204�\304\207G\305V\203�A\306\241\210	?\205�\307\310\306\211A@\211\203C�\311\n@!\312\313\nA!\n@\305V\2058�\314\205=�\315\260\202�*	\205J�\316Q\207" [delay past del str "now!" 1 nil "in " "" int-to-string " " symbol-name "s" ", " " ago"] 7])
(defalias 'gnus-diary-header-schedule #[(headers) "\301\302\"\207" [nndiary-headers mapcar #[(elt) "\304\305\306\307@\"!	\"A\211\205 �\310\n\211A@)\211AA)@#)\207" [elt headers head x assoc intern format "X-Diary-%s" nndiary-parse-schedule-value] 6]] 3])
(defalias 'gnus-user-format-function-d #[(header) "\306H\307	!\310\n\311 \"\311 \312\f\"\211\204�\313\202\243�\314
@!\315_
\211A@)\\\211\316W\317 \203@�[\320!\204\233�\321\322B\323\324B\325\326B\327\330B\331BBBB\317\211!\"##\211A#@\211\"\203\232�\320\332\"A\245!\211!!\204\214�\333 \334!!\"@BC\" !\"A_Z\202`�+$ \"+-\207" [header extras sched occur now real-time 9 gnus-diary-header-schedule nndiary-next-occurence current-time subtract-time "?????" float 65536 0 nil zerop year 31557600.0 month 2678400 week 604800 day 86400 ((hour . 3600) (minute . 60)) ffloor append floor x sec past delay num unit units gnus-diary-delay-format-function] 6])
(defalias 'gnus-user-format-function-D #[(header) "\305H\306	!\307\n\310 \"\311\f\"+\207" [header extras sched occur gnus-diary-time-format 9 gnus-diary-header-schedule nndiary-next-occurence current-time format-time-string] 3])
(defalias 'gnus-article-sort-by-schedule #[(h1 h2) "\306 	\307H\307H\310\n!\310\f!\f\311
\"
\311\f\"
@@U\203I�
\211A@)\211A@)U\203I�	\312H\312HW\202O�\313
\".\207" [now h1 e1 h2 e2 s1 current-time 9 gnus-diary-header-schedule nndiary-next-occurence 0 time-less-p s2 o1 o2 x] 4])
(defalias 'gnus-thread-sort-by-schedule #[(h1 h2) "\302\211:\203�\211@;\203�A@@	\211:\203�\211@;\203�A@@\"\207" [h1 h2 gnus-article-sort-by-schedule] 4])
#@126 Sort nndiary summary buffers by schedule of appointments.
Optional prefix (or REVERSE argument) means sort in reverse order.
(defalias 'gnus-summary-sort-by-schedule #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort schedule] 3 (#$ . 4944) "P"])
(add-hook 'gnus-summary-menu-hook #[nil "\301\302\303\304$\207" [gnus-summary-misc-menu easy-menu-add-item ("Sort") ["Sort by schedule" gnus-summary-sort-by-schedule (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nndiary)] "Sort by number"] 5])
(defalias 'gnus-diary-update-group-parameters #[(group) "\306\304\307#	\310\203-�\311\312\211@@)\"A\313\n\f\"\204\n�\314\f\n\315DC\"\202\n�\316\304\f#\210+\306\317\307#\204D�\316\317C#\210\306\320\"\204Q�\316\320\321#\210\306\322\"?\205^�\316\322\323#\207" [group nndiary-headers header headers posting-style x gnus-group-get-parameter t nil format "X-Diary-%s" assoc append "*" gnus-group-set-parameter gnus-summary-line-format gnus-article-sort-functions ((append gnus-article-sort-functions (list 'gnus-article-sort-by-schedule))) gnus-thread-sort-functions ((append gnus-thread-sort-functions (list 'gnus-thread-sort-by-schedule))) gnus-diary-summary-line-format] 5])
(defalias 'gnus-diary-maybe-update-group-parameters #[(group) "\301!@\302=\205\f�\303!\207" [group gnus-find-method-for-group nndiary gnus-diary-update-group-parameters] 2])
(byte-code "\301\302\303\"\210\301\304\303\"\210\301\305\306\"\210\307B\310\307!\204�\311\307\312\"\210\312\207" [current-load-list add-hook nndiary-request-create-group-hooks gnus-diary-update-group-parameters nndiary-request-update-info-hooks gnus-subscribe-newsgroup-hooks gnus-diary-maybe-update-group-parameters gnus-diary-header-value-history default-boundp set-default nil] 3)
#@164 Narrow the current buffer to the header part.
Point is left at the beginning of the region.
The buffer is assumed to contain a message, but the format is unknown.
(defalias 'gnus-diary-narrow-to-headers #[nil "\301=\203	�\302 \207eb\210\303\304\305\306#\205�e`S}\210eb\207" [major-mode message-mode message-narrow-to-headers search-forward "\n\n" nil t] 4 (#$ . 6728)])
#@108 Add a header to the current buffer.
The buffer is assumed to contain a message, but the format is unknown.
(defalias 'gnus-diary-add-header #[(str) "\302=\203\n�\303	!\207\214\304 \210db\210\305\306	\"\203�	c\202!�	\307\261)\207" [major-mode str message-mode message-add-header gnus-diary-narrow-to-headers string-match "\n$" 10] 3 (#$ . 7107)])
#@246 Ensure that the current message is a valid for NNDiary.
This function checks that all NNDiary required headers are present and
valid, and prompts for values / correction otherwise.

If ARG (or prefix) is non-nil, force prompting for all fields.
(defalias 'gnus-diary-check-message #[(arg) "\212\301\302\")\207" [nndiary-headers mapcar #[(head) "\306@P	\307\211\214\310 \210\311\312
\313Q\307\314#\203E�\307f\315=\204$�\316c\210`\317 {\320\321\"\2035�\322\323\"\307\324\325\217\210\f\204B�\n\203E�\326 \210)\f\204R�\203R�\n\203\215�\n\205Z�\327\330 \210
\331Q A@<\203x�\332 \333A@B\307\314!&\202�\334 !#)\307\211\307\335\336\217\210\202F�\337
\331Q!,\207" [head arg invalid value ask header "X-Diary-" nil gnus-diary-narrow-to-headers re-search-forward "^" ":" t 32 " " point-at-eol string-match "[ 	]*\$[^ 	]+\$[ 	]*" match-string 1 (byte-code "\302	A@\303	8#\207" [value head nndiary-parse-schedule-value 2] 5) ((t (byte-code "\301\211\207" [invalid t] 2))) gnus-diary-kill-entire-line "(current value invalid) " beep ": " completing-read ("*" nil) read-string (byte-code "\302	A@\303	8#\207" [value head nndiary-parse-schedule-value 2] 5) ((t (byte-code "\301\211\207" [invalid t] 2))) gnus-diary-add-header prompt gnus-diary-header-value-history] 8]] 3 (#$ . 7463) "P"])
(byte-code "\302\303\304\"\210\305\306\307#\210\305	\306\307#\207" [message-mode-map gnus-article-edit-mode-map add-hook nndiary-request-accept-article-hooks #[nil "\300\301!\207" [gnus-diary-check-message nil] 2] define-key "d" gnus-diary-check-message] 4)
#@33 Current Diary back end version.
(defalias 'gnus-diary-version #[nil "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 9036) nil])
(provide 'gnus-diary)

${this.title}

Code Editor : gnus-diary.elc