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 : nndiary.elc

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

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

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307!\203\"�\310\311\312\"\210\202'�\310\311\313\"\210\314\315\316\317\320\321\322\323&\207" [require nnoo nnheader nnmail gnus-start gnus-sum fboundp signal-error defalias nndiary-error #[(&rest args) "\301\302\303#\207" [args apply signal-error nndiary] 4] #[(&rest args) "\301\302\"\207" [args apply error] 3] custom-declare-group nndiary nil "The Gnus Diary back end." :version "22.1" :group gnus-diary] 8)
#@211 *NNDiary specific mail sources.
This variable is used by nndiary in place of the standard `mail-sources'
variable when `nndiary-get-new-mail' is set to non-nil.  These sources
must contain diary messages ONLY.
(custom-declare-variable 'nndiary-mail-sources '`((file :path ,(expand-file-name "~/.nndiary"))) '(#$ . -1106) :group 'nndiary :group 'mail-source :type 'sexp)
#@171 *NNDiary specific split methods.
This variable is used by nndiary in place of the standard
`nnmail-split-methods' variable when `nndiary-get-new-mail' is set to
non-nil.
(custom-declare-variable 'nndiary-split-methods ''(("diary" "")) '(#$ . -1483) :group 'nndiary :group 'nnmail-split :type '(choice (repeat :tag "Alist" (group (string :tag "Name") regexp)) (function-item nnmail-split-fancy) (function :tag "Other")))
#@1567 *Different times when you want to be reminded of your appointments.
Diary articles will appear again, as if they'd been just received.

Entries look like (3 . day) which means something like "Please
Hortense, would you be so kind as to remind me of my appointments 3 days
before the date, thank you very much. Anda, hmmm... by the way, are you
doing anything special tonight ?".

The units of measure are 'minute 'hour 'day 'week 'month and 'year (no,
not 'century, sorry).

NOTE: the units of measure actually express dates, not durations: if you
use 'week, messages will pop up on Sundays at 00:00 (or Mondays if
`nndiary-week-starts-on-monday' is non-nil) and *not* 7 days before the
appointment, if you use 'month, messages will pop up on the first day of
each months, at 00:00 and so on.

If you really want to specify a duration (like 24 hours exactly), you can
use the equivalent in minutes (the smallest unit).  A fuzz of 60 seconds
maximum in the reminder is not that painful, I think.  Although this
scheme might appear somewhat weird at a first glance, it is very powerful.
In order to make this clear, here are some examples:

- '(0 . day): this is the default value of `nndiary-reminders'.  It means
  pop up the appointments of the day each morning at 00:00.

- '(1 . day): this means pop up the appointments the day before, at 00:00.

- '(6 . hour): for an appointment at 18:30, this would pop up the
  appointment message at 12:00.

- '(360 . minute): for an appointment at 18:30 and 15 seconds, this would
  pop up the appointment message at 12:30.
(custom-declare-variable 'nndiary-reminders ''((0 . day)) '(#$ . -1911) :group 'nndiary :type '(repeat (cons :format "%v\n" (integer :format "%v") (choice :format "%[%v(s)%] before...\n" :value day (const :format "%v" minute) (const :format "%v" hour) (const :format "%v" day) (const :format "%v" week) (const :format "%v" month) (const :format "%v" year)))))
#@55 *Whether a week starts on monday (otherwise, sunday).
(custom-declare-variable 'nndiary-week-starts-on-monday 'nil '(#$ . -3843) :type 'boolean :group 'nndiary)
#@128 *Hooks to run after `nndiary-request-create-group' is executed.
The hooks will be called with the full group name as argument.
(custom-declare-variable 'nndiary-request-create-group-hooks 'nil '(#$ . -4011) :group 'nndiary :type 'hook)
#@133 *Hooks to run after `nndiary-request-update-info-group' is executed.
The hooks will be called with the full group name as argument.
(custom-declare-variable 'nndiary-request-update-info-hooks 'nil '(#$ . -4254) :group 'nndiary :type 'hook)
#@174 *Hooks to run before accepting an article.
Executed near the beginning of `nndiary-request-accept-article'.
The hooks will be called with the article in the current buffer.
(custom-declare-variable 'nndiary-request-accept-article-hooks 'nil '(#$ . -4501) :group 'nndiary :type 'hook)
#@55 *If t, check directories twice to avoid NFS failures.
(custom-declare-variable 'nndiary-check-directory-twice 't '(#$ . -4791) :group 'nndiary :type 'boolean)
(byte-code "\302\236\203�\302\236A\303\304\305\"\240\210\202�\302\303\304\305\"\305\211FB\302	\236\204*�\302\306D	B\305\207" [nnoo-definition-alist nnoo-state-alist nndiary mapcar list nil "*internal-non-initialized-backend*"] 4)
#@115 Spool directory for the nndiary back end.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-directory (nnheader-concat gnus-directory "diary/") (#$ . 5194))
(nnoo-define 'nndiary-directory nil)
#@111 Active file for the nndiary back end.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-active-file (expand-file-name "active" nndiary-directory) (#$ . 5433))
(nnoo-define 'nndiary-active-file nil)
#@127 Newsgroups description file for the nndiary back end.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-newsgroups-file (expand-file-name "newsgroups" nndiary-directory) (#$ . 5676))
(nnoo-define 'nndiary-newsgroups-file nil)
#@311 Whether nndiary gets new mail and split it.
Contrary to traditional mail back ends, this variable can be set to t
even if your primary mail back end also retreives mail. In such a case,
NDiary uses its own mail-sources and split-methods.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-get-new-mail nil (#$ . 5947))
(nnoo-define 'nndiary-get-new-mail nil)
#@519 If non-nil, Gnus will never use nov databases for nndiary groups.
Using nov databases will speed up header fetching considerably.
This variable shouldn't be flipped much.  If you have, for some reason,
set this to t, and want to set it to nil again, you should always run
the `nndiary-generate-nov-databases' command.  The function will go
through all nnml directories and generate nov databases for them
all.  This may very well take some time.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-nov-is-evil nil (#$ . 6350))
(nnoo-define 'nndiary-nov-is-evil nil)
#@121 *Hook run narrowed to an article before saving.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-prepare-save-mail-hook nil (#$ . -6959))
(nnoo-define 'nndiary-prepare-save-mail-hook nil)
#@101 If non-nil, inhibit expiry.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndiary-inhibit-expiry nil (#$ . 7193))
(nnoo-define 'nndiary-inhibit-expiry nil)
#@33 Current Diary back end version.
(defconst nndiary-version "0.2-b14" (#$ . 7389))
#@33 Current Diary back end version.
(defalias 'nndiary-version #[nil "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 7476) nil])
(byte-code "\302B\303\302!\204�\304\302\305\"\210\306\302\307\"\210\310B\303\310!\204#�\304\310\307\"\210\306\310\307\"\210\311B\303\311!\2047�\304\311\307\"\210\306\311\307\"\210\312B\303\312!\204K�\304\312\313\"\210\306\312\307\"\210\314B\303\314!\204_�\304\314\307\"\210\306\314\307\"\210\315B\303\315!\204s�\304\315\307\"\210\306\315\307\"\210\316B\303\316!\204\207�\304\316\307\"\210\306\316\307\"\210\317B\303\317!\204\233�\304\317\307\"\210\306\317\307\"\210\320B\303\320!\204\257�\304\320\321\"\210\306\320\307\"\210\322B\303\322!\204\303�\304\322\307\"\210\306\322\307\"\210\323B\303\323!\204\327�\304\323	\"\210\306\323\307\"\210\324B\325\326!\207" [current-load-list nnmail-file-coding-system nndiary-nov-file-name default-boundp set-default ".overview" nnoo-define nil nndiary-current-directory nndiary-current-group nndiary-status-string "" nndiary-nov-buffer-alist nndiary-group-alist nndiary-active-timestamp nndiary-article-file-alist nndiary-generate-active-function nndiary-generate-active-info nndiary-nov-buffer-file-name nndiary-file-coding-system nndiary-headers (lambda (#1=#:defconst-tmp-var) (defconst nndiary-headers #1#)) (("Minute" 0 59) ("Hour" 0 23) ("Dom" 1 31) ("Month" 1 12) ("Year" 1971) ("Dow" 0 6) ("Time-Zone" (("Y" -43200) ("X" -39600) ("W" -36000) ("V" -32400) ("U" -28800) ("PST" -28800) ("T" -25200) ("MST" -25200) ("PDT" -25200) ("S" -21600) ("CST" -21600) ("MDT" -21600) ("R" -18000) ("EST" -18000) ("CDT" -18000) ("Q" -14400) ("AST" -14400) ("EDT" -14400) ("P" -10800) ("ADT" -10800) ("O" -7200) ("N" -3600) ("Z" 0) ("GMT" 0) ("UT" 0) ("UTC" 0) ("WET" 0) ("A" 3600) ("CET" 3600) ("MET" 3600) ("MEZ" 3600) ("BST" 3600) ("WEST" 3600) ("B" 7200) ("EET" 7200) ("CEST" 7200) ("MEST" 7200) ("MESZ" 7200) ("C" 10800) ("D" 14400) ("E" 18000) ("F" 21600) ("G" 25200) ("H" 28800) ("I" 32400) ("JST" 32400) ("K" 36000) ("GST" 36000) ("L" 39600) ("M" 43200) ("NZST" 43200) ("NZDT" 46800))))] 3)
(defalias 'nndiary-schedule #[nil "\301\302\303\304\217)\207" [head nil arg (mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nndiary-headers) ((t (byte-code "\302\303\304	A$\210\305\207" [head arg nnheader-report nndiary "X-Diary-%s header parse error: %s." nil] 5)))] 3])
(byte-code "\300\301\302\303#\210\304\305!\207" [put nndiary-schedule byte-optimizer byte-compile-inline-expand nnoo-define-basics-1 nndiary] 4)
(defalias 'nndiary-retrieve-headers #[(sequence &optional group server fetch-old) "\306	\"\205\326�\212\nq\210\307 \210\310\fG\311 !\"\310\211#$%\2050�&\247?\2060�
&X%\f@;\203<�\312\202\324�\313\f'\"\203H�\314\202\324�\f\203\276�\f@$\315$!\211\203\222�\316!\203\222�\317!\204\222�\320\321$\"c\210`#\322!\210#b\210\323\324\310\325#\203\205�\326u\210\202\213�db\210\324c\210\327c\210`d|\210\fA T &\247\203H�
&V\203H�\330 \331\246!\203H�\332\333\334 \335_
\245#\210\202H�&\247\203\320�
&V\203\320�\332\333\336\"\210\337 \210\312.\207" [group server nntp-server-buffer file sequence number nndiary-possibly-change-directory erase-buffer nil 0 headers nndiary-retrieve-headers-with-nov nov nndiary-article-to-file file-exists-p file-directory-p format "221 %d Article retrieved.\n" nnheader-insert-head search-forward "\n\n" t -1 ".\n" zerop 20 nnheader-message 6 "nndiary: Receiving headers... %d%%" 100 "nndiary: Receiving headers...done" nnheader-fold-continuation-lines count nnmail-pathname-coding-system file-name-coding-system beg article nndiary-check-directory-twice nnmail-large-newsgroup fetch-old] 6])
(nnoo-register-function 'nndiary-retrieve-headers)
(defalias 'nndiary-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204�\306\307\310\217\210\305\n!\204 �\311 \210\312\304\313\n#\207\314\315\n!!\2041�\311 \210\312\304\316\n#\207\312\304\317\n$\210\320\207" [server defs nndiary-directory nnoo-change-server nndiary file-exists-p nil (make-directory nndiary-directory t) ((error)) nndiary-close-server nnheader-report "Couldn't create directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 5])
(nnoo-register-function 'nndiary-open-server)
(defalias 'nndiary-request-regenerate #[(server) "\301\302\"\210\303!\210\304\207" [server nndiary-possibly-change-directory nil nndiary-generate-nov-databases t] 3])
(nnoo-register-function 'nndiary-request-regenerate)
(defalias 'nndiary-request-article #[(id &optional group server buffer) "\306	\"\210\n\206\n�\f\307\211\307;\203G�\310!\211\203M�A\311\312@\"\211!\236A\203M�\313A!P\202M�\314!\204[�\315\316\317#\202\253�\320!\204k�\315\316\321#\202\253�\322!\203{�\315\316\323#\202\253�\212\324!*\204\221�\315\316\325#\202\253�\315\316\326#\210\203\243�@\202\244�\327\330!!B-\207" [group server buffer nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system nndiary-possibly-change-directory nil nndiary-find-group-number nnheader-article-to-file-alist nnmail-group-pathname int-to-string nndiary-article-to-file nnheader-report nndiary "No such article: %s" file-exists-p "No such file: %s" file-directory-p "File is a directory: %s" nnmail-find-file "Couldn't read file: %s" "Article %s retrieved" string-to-number file-name-nondirectory path gpath group-num id nndiary-directory nndiary-file-coding-system nnmail-file-coding-system] 6])
(nnoo-register-function 'nndiary-request-article)
(defalias 'nndiary-request-group #[(group &optional server dont-check) "\306\n\"\204�\307\310\311\"\202r�\312\f!\204�\307\310\313\f#\202r�\314\f!\204,�\307\310\315\f#\202r�
\203:�\307\310\316\n#\210\317\202r�\320\f!\210\321\310!\210\322\n\"A@\211\204W�\307\310\323\n#\202q�\307\310\324\n#\210\325\326A@ZT\327]@A\n%))\207" [nnmail-pathname-coding-system file-name-coding-system group server nndiary-current-directory dont-check nndiary-possibly-change-directory nnheader-report nndiary "Invalid group (no such directory)" file-exists-p "Directory %s does not exist" file-directory-p "%s is not a directory" "Group %s selected" t nnheader-re-read-dir nnmail-activate assoc "No such group: %s" "Selected group %s" nnheader-insert "211 %d %d %d %s\n" 0 nndiary-group-alist active] 7])
(nnoo-register-function 'nndiary-request-group)
(defalias 'nndiary-request-scan #[(&optional group server) "	\306\307
\"\210\310\311\312\f
$*\207" [nndiary-mail-sources nndiary-split-methods nnmail-split-methods mail-sources nndiary-article-file-alist group nil nndiary-possibly-change-directory nnmail-get-new-mail nndiary nndiary-save-nov server nndiary-directory] 5])
(nnoo-register-function 'nndiary-request-scan)
(defalias 'nndiary-close-group #[(group &optional server) "\301\302\207" [nndiary-article-file-alist nil t] 1])
(nnoo-register-function 'nndiary-close-group)
(defalias 'nndiary-request-create-group #[(group &optional server args) "\306\307\"\210\310\311!\210\312	\n\"\203�\313\207\314\315	\"!\203-�\316\315	\"!\204-�\317\311\320\315	\"#\207\307	\321\322B\211D\nB\323	!\210\306	\"\210\324
!\211\203[�\f\325\326\"\240\210\f\325\327\"\241\210)\330\n\"\210\331\332\333	\334D\"\"\210)\313\207" [server group nndiary-group-alist nndiary-directory active nndiary-current-directory nndiary-possibly-change-directory nil nnmail-activate nndiary assoc t file-exists-p nnmail-group-pathname file-directory-p nnheader-report "%s is a file" 1 0 nndiary-possibly-create-directory nnheader-directory-articles apply min max nnmail-save-active run-hook-with-args nndiary-request-create-group-hooks gnus-group-prefixed-name "nndiary" articles nndiary-active-file] 7])
(nnoo-register-function 'nndiary-request-create-group)
(defalias 'nndiary-request-list #[(&optional server) "\212	\306\f!\210*\307 )\310\207" [nnmail-active-file-coding-system nnmail-pathname-coding-system file-name-coding-system nnmail-file-coding-system nndiary-active-file nndiary-group-alist nnmail-find-file nnmail-get-active t] 2])
(nnoo-register-function 'nndiary-request-list)
(defalias 'nndiary-request-newgroups #[(date &optional server) "\301!\207" [server nndiary-request-list] 2])
(nnoo-register-function 'nndiary-request-newgroups)
(defalias 'nndiary-request-list-newsgroups #[(&optional server) "\212\301!)\207" [nndiary-newsgroups-file nnmail-find-file] 2])
(nnoo-register-function 'nndiary-request-list-newsgroups)
(defalias 'nndiary-request-expire-articles #[(articles group &optional server force) "\306	\"\210\307\n!\310\211\211!\311\312!\210\313\"!\"\"\"\203\211�\314\"\211A\"@\211!\315\"\203\202�#\204?�\316
!\203\202�$\317=\204g�\320\321!%r%q\210\322\216\323	p$\210\310\324$\"\210,\306	\"\210\325\326\327$\210\310\330\331\217\210\332!\"!\333\"\210\202�\fB\202�\334&\"A@\211'\203\253�'!\203\245�\335\336!\"\206\251�'AT\240\210\337&(\"\210)\340 \210\f\"\244,\207" [group server nndiary-current-directory number rest article nndiary-possibly-change-directory nnheader-directory-articles nil nnmail-activate nndiary gnus-intersection nndiary-article-to-file nndiary-deletable-article-p nndiary-expired-article-p delete generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) nndiary-request-article nnmail-expiry-target-group nnheader-message 5 "Deleting article %s in %s" (funcall nnmail-delete-file-function article) ((file-error (byte-code "	B\302\207" [number rest nil] 2))) delq nndiary-nov-delete-article assoc apply min nnmail-save-active nndiary-save-nov active-articles articles force nnmail-expiry-target #1# nndiary-group-alist active nndiary-active-file] 6])
(nnoo-register-function 'nndiary-request-expire-articles)
(defalias 'nndiary-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306\307!\310\311\n\"\210\312 \210\313\n\f\"\203Z�\314\f\n#\203Z�\310\211\211\212	q\210\315!\210\316!\317p!\210,\203Z�\311\n\"\210\310\320\321\217\210\322\n\f\"\210\203Z�\323 \210\324\"\210*\207" [result buf group server article nndiary-article-file-alist get-buffer-create " *nndiary move*" nil nndiary-possibly-change-directory nndiary-update-file-alist nndiary-deletable-article-p nndiary-request-article insert-buffer-substring eval kill-buffer (byte-code "\302	!!\207" [nnmail-delete-file-function article nndiary-article-to-file] 3) ((file-error)) nndiary-nov-delete-article nndiary-save-nov nnmail-save-active nndiary-current-group nndiary-current-directory nntp-server-buffer accept-form last nndiary-group-alist nndiary-active-file] 4])
(nnoo-register-function 'nndiary-request-move-article)
(defalias 'nndiary-request-accept-article #[(group &optional server last) "\306	\"\210\307 \210\310\311!\210\312\313\314\315\217)\205\212�\312\f\203&�\316\317\320!\317\321!#\210;\203P�\322\323!\203\210�\324\325!BC!@\211\203\210�\326
\"\210\203\210�\327 \210\202\210�\322\323!\203\210�\330\325!\211\204j�\331\332!\203j�\333\211\202p�\324!@\211\203\210�\203\210�\326
\"\210\f\203\205�\334 \210\327 \210)\207" [group server head result nnmail-cache-accepted-message-ids nndiary-group-alist nndiary-possibly-change-directory nnmail-check-syntax run-hooks nndiary-request-accept-article-hooks nil arg (mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nndiary-headers) ((t (byte-code "\302\303\304	A$\210\305\207" [head arg nnheader-report nndiary "X-Diary-%s header parse error: %s." nil] 5))) nnmail-cache-insert nnmail-fetch-field "message-id" "subject" nnmail-activate nndiary nndiary-save-mail nndiary-active-number nnmail-save-active nndiary-save-nov nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnmail-cache-close nndiary-active-file last] 5])
(nnoo-register-function 'nndiary-request-accept-article)
(defalias 'nndiary-request-post #[(&optional server) "\301\302\"\207" [server nnmail-do-request-post nndiary-request-accept-article] 3])
(nnoo-register-function 'nndiary-request-post)
(defalias 'nndiary-request-replace-article #[(article group buffer) "\306!\210\212	q\210\307!\210\310 \311\n!\312P\313\313\314\315\217\205n�\316
\n\"\212\317!q\210eb\210\320\f!\204<�\321\322\fP\313\323#\203I�\324 \210`\325y\210`|\210\202b�\320\326!\203b�\327\330\224\330\225{!\nW\203b�\331\325y!\204I�\324 \210\332!\210\333 \210)\323,\207" [group buffer article headers art chars nndiary-possibly-change-directory nndiary-possibly-create-directory nnmail-insert-lines int-to-string "	" nil (byte-code "\302ed\303!\206�\304\305!	\"\306\307\310!?\205�\311%\210\312\207" [article nndiary-current-directory nnmail-write-region nndiary-article-to-file expand-file-name int-to-string nil nnheader-be-verbose 5 nomesg t] 7) ((error)) nndiary-parse-head nndiary-open-nov looking-at search-forward "\n" t beginning-of-line 1 "[0-9]+	" string-to-number 0 zerop nnheader-insert-nov nndiary-save-nov] 4])
(nnoo-register-function 'nndiary-request-replace-article)
(defalias 'nndiary-request-delete-group #[(group &optional force server) "\306	\"\210\n\203E�\307\310\f\311\312
!\313R#\314\203?�\211A@\315!\203�\316\317\320$\210!\210\202�*\314\321\322\217\210\323\324\"\"\314\211\325\"\210\310\207" [group server force nndiary-current-directory nnheader-numerical-short-files nndiary-nov-file-name nndiary-possibly-change-directory directory-files t "\\|" regexp-quote "$" nil file-writable-p nnheader-message 5 "Deleting article %s in %s..." (delete-directory nndiary-current-directory) ((error)) delq assoc nnmail-save-active article articles nnmail-delete-file-function nndiary-group-alist nndiary-current-group nndiary-active-file] 8])
(nnoo-register-function 'nndiary-request-delete-group)
(defalias 'nndiary-request-rename-group #[(group new-name &optional server) "\306	\"\210\307\n\"\307\"\310\311\312\217\205\207�\313\f!\203B�\314\f\211@A)P
\211@A)P\"\210\211A@\210\202�)\fP\315!\203Y�\314
P\"\210)\316\f!G\317X\203h�\310\320\321\217\210\322\"\211\203x�\n\240\210\310\211\323\"\210)\324*\207" [group server new-name nndiary-directory old-dir new-dir nndiary-possibly-change-directory nnmail-group-pathname nil (byte-code "\301\302\"\210\302\207" [new-dir make-directory t] 3) ((error)) nnheader-article-to-file-alist rename-file file-exists-p directory-files 2 (delete-directory old-dir) ((error)) assoc nnmail-save-active t files x nndiary-nov-file-name overview nndiary-group-alist entry nndiary-current-directory nndiary-current-group nndiary-active-file] 5])
(nnoo-register-function 'nndiary-request-rename-group)
(defalias 'nndiary-set-status #[(article name value &optional group server) "\306	\"\210\307\n!\310!\204�\311\312\313#\202?�\314\315\316!!\317\216r\fq\210\320!\210\321\"\210)r\fq\210\322\323\211
\323\324%\210,\325)\207" [group server article file #1=#:temp-buffer #2=#:temp-file nndiary-possibly-change-directory nndiary-article-to-file file-exists-p nnheader-report nndiary "File %s does not exist" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-file-contents nnmail-replace-status write-region nil 0 t name value] 6])
(nnoo-register-function 'nndiary-set-status)
(defalias 'nndiary-request-update-info #[(group info &optional server) "\306!\210\307\310	8\302\311#\211\204�\312\313\314#\210\202w�\315\316	8\317\"\320\211\211\211\212\321\322!\211A@\211\203Y� \323!P\324
!\203/�\325
\n\"\203/�\fB\202/�\326\327!\210\330!\210)\331\f\332\"\211\203v�	AA\333	@\f\311#\240\210-\334\335	@\"\210)\311\207" [group info timestamp buf unread file nndiary-possibly-change-directory gnus-group-parameter-value 5 t nnheader-report nndiary "Group %s doesn't have a timestamp" nndiary-flatten 2 0 nil nnheader-set-temp-buffer " *nndiary update*" int-to-string file-exists-p nndiary-renew-article-p sit-for 1 kill-buffer sort < gnus-update-read-articles run-hook-with-args nndiary-request-update-info-hooks article articles nndiary-current-directory] 6])
(nnoo-register-function 'nndiary-request-update-info)
(defalias 'nndiary-article-to-file #[(article) "\305 \210\306	\n\236A\211\203�\307\"\202+�\f\205+�\310\307\311	!\"\211!\205+�\305\312!\210)\207" [file article nndiary-article-file-alist nndiary-current-directory nndiary-check-directory-twice nndiary-update-file-alist nil expand-file-name file-exists-p number-to-string t] 4])
#@46 Say whether ARTICLE in GROUP can be deleted.
(defalias 'nndiary-deletable-article-p #[(group article) "\305\306	!\211\205�\307!\205�\n?\206�\310\f\"A@A	=?)\207" [path article nnmail-keep-last-article group nndiary-group-alist nil nndiary-article-to-file file-writable-p assoc] 3 (#$ . 24119)])
(defalias 'nndiary-find-group-number #[(id) "\212\306\307!q\210\310\311\f\"\211\203�	B\202L�	\204@�\n\203@�\n\211@@)\230\2046�\311\n\211@@)\f\"	\204�\nA\202�	\205L�\n\211@@)	B+\207" [nndiary-group-alist number alist nndiary-current-group id x get-buffer-create " *nndiary id*" nil nndiary-find-id] 4])
(defalias 'nndiary-find-id #[(group id) "\306 \210\307\310	\n\"\"\311\211\312
!\205L�\313
!\210\204K�\314\311\315#\203K�\316\317\311\315\320$\2038�\316\317\321 \315#\203>�\322y\210\202�\323 \210\315\311\324\325\217\202�\f+\207" [nndiary-nov-file-name group nndiary-directory found number nov erase-buffer expand-file-name nnmail-group-pathname nil file-exists-p nnheader-insert-file-contents search-forward t search-backward "	" 4 point-at-bol 1 beginning-of-line (byte-code "\300p!\207" [read] 2) ((error)) id] 5])
(defalias 'nndiary-retrieve-headers-with-nov #[(articles &optional fetch-old) "\206�	?\205L�\306\n\"\307\f!\205K�\212
q\210\310 \210\311\f!\210\203.�\247\204.�\312\202J�\313\203?�\314@Z]\202B�@\315!@\"\210\312))\207" [gnus-nov-is-evil nndiary-nov-is-evil nndiary-nov-file-name nndiary-current-directory nov nntp-server-buffer expand-file-name file-exists-p erase-buffer nnheader-insert-file-contents t nnheader-nov-delete-outside-range 1 last fetch-old articles] 4])
(defalias 'nndiary-possibly-change-directory #[(group &optional server) "\203�\306!\204�\307!\210	\204�\310\207\311	\n\"\211\f\232\204+�
\f	
\312\313\f!*\207" [server group nndiary-directory nnmail-pathname-coding-system file-name-coding-system pathname nndiary-server-opened nndiary-open-server t nnmail-group-pathname nil file-exists-p nndiary-current-directory nndiary-current-group nndiary-article-file-alist] 4])
(defalias 'nndiary-possibly-create-directory #[(group) "\303	\"\304\n!?\205�\305\306\n!\307\"\210\310\311\312\n#)\207" [group nndiary-directory dir nnmail-group-pathname file-exists-p make-directory directory-file-name t nnheader-message 5 "Creating mail directory %s"] 4])
#@32 Called narrowed to an article.
(defalias 'nndiary-save-mail #[(group-art) "\306\211\307 \310\n!\210\311\312!\210\311\313!\210eb\210\314\315!\203&�\316\317!\210\320y\210\202�\n\306\211\203v�\321\f\211@@)!\210\322\f\211@@)\"\323\f\211@A)!P\203[�\324#\210\202n�\325ed\306\326\327!?\205i�\330%\210)\fA\211\204.�*\331	!\n\211\203\230�\332\f\211@@)\f\211@A)#\210\fA\211\204\201�)\n*\207" [headers chars group-art first ga x nil nnmail-insert-lines nnmail-insert-xref run-hooks nnmail-prepare-save-mail-hook nndiary-prepare-save-mail-hook looking-at "From " replace-match "X-From-Line: " 1 nndiary-possibly-create-directory nnmail-group-pathname int-to-string t nnmail-write-region nnheader-be-verbose 5 nomesg nndiary-parse-head nndiary-add-nov nndiary-directory file nnmail-crosspost-link-function] 8 (#$ . 26465)])
#@43 Compute the next article number in GROUP.
(defalias 'nndiary-active-number #[(group) "\306	\"\211A@)\211\204A�\307!\210\310!\210\f\204!�\311\312
!\313\"\f\2037�\f\211@@)\314\f!\211@@)B\202:�\315\316BD	B\211AT\241\210\317\320\321A!\322\"\"!\203`�\211AT\241\210\202G�A)\207" [group nndiary-group-alist x active nndiary-article-file-alist nndiary-current-directory assoc nndiary-possibly-create-directory nndiary-possibly-change-directory sort nnheader-article-to-file-alist car-less-than-car last 1 0 file-exists-p expand-file-name int-to-string nnmail-group-pathname nndiary-directory] 7 (#$ . 27313)])
#@36 Add a nov line for the GROUP base.
(defalias 'nndiary-add-nov #[(group article headers) "\212\303!q\210db\210	\304\nI\210\305	!)\207" [group headers article nndiary-open-nov 0 nnheader-insert-nov] 3 (#$ . 27940)])
(defalias 'nndiary-header-value #[nil "\300\225\301\210`{\207" [0 nil] 2])
(put 'nndiary-header-value 'byte-optimizer 'byte-compile-inline-expand)
#@39 Parse the head of the current buffer.
(defalias 'nndiary-parse-head #[(chars &optional number) "\212\214\303\304 !\204�eb\305\306\307\310#\203�`S\202�d}\210\311 \211\312	I\210\313\nI\210+\207" [headers chars number zerop buffer-size search-forward "\n\n" nil t nnheader-parse-naked-head 6 0] 6 (#$ . 28309)])
(defalias 'nndiary-open-nov #[(group) "\306	\"A\2065�\307\310\311\"!\212\nq\210\312\305!\210\313\314\f\"\"\315 \210\316
!\203,�\317
!\210)\nB	B\n)\207" [group nndiary-nov-buffer-alist buffer nndiary-nov-file-name nndiary-directory nndiary-nov-buffer-file-name assoc get-buffer-create format " *nndiary overview %s*" make-local-variable expand-file-name nnmail-group-pathname erase-buffer file-exists-p nnheader-insert-file-contents] 5])
(defalias 'nndiary-save-nov #[nil "\212\2055�\303\211@A)!\203-�\211@A)q\210\304 \203%�\305\306d\n\307\310%\210\311\307!\210\312p!\210A\211\204�\307)\207" [nndiary-nov-buffer-alist x nndiary-nov-buffer-file-name buffer-name buffer-modified-p nnmail-write-region 1 nil nomesg set-buffer-modified-p kill-buffer] 7])
#@52 Generate NOV databases in all nndiary directories.
(defalias 'nndiary-generate-nov-databases #[(&optional server) "\304\305!\210\306!\204�\307!\210\310	!\311	\312\313#\210\314\n\"\207" [server nndiary-directory nndiary-group-alist nndiary-active-file nnmail-activate nndiary nndiary-server-opened nndiary-open-server expand-file-name nndiary-generate-nov-databases-1 nil t nnmail-save-active] 4 (#$ . 29396) (list (or (nnoo-current-server 'nndiary) ""))])
#@37 Regenerate the NOV database in DIR.
(defalias 'nndiary-generate-nov-databases-1 #[(dir &optional seen no-active) "\306!\307!	\235?\205\202�\307!	B\310\311\312\311$\312\n\211A@\211\203=�\313\314\315!\"\204�\316!\203�\317	\"\210\202�*\320\321!\322\"\211\204k�\323\324!\f\"\325
\"\211A@)\211\205g�\211AT\240*\202\201�!\210\326\"\210?\205\201�\327\")\207" [dir seen dirs files nndiary-directory group file-name-as-directory file-truename directory-files t nil string-match "^\\." file-name-nondirectory file-directory-p nndiary-generate-nov-databases-1 sort nnheader-article-to-file-alist car-less-than-car nnheader-file-to-group directory-file-name assoc nndiary-generate-nov-file nnmail-save-active nndiary-group-alist x info nndiary-generate-active-function no-active nndiary-active-file] 6 (#$ . 29863) "DRegenerate NOV in: "])
(defalias 'nndiary-generate-active-info #[(dir) "\306\307!	\"\310\n\"\211\211A@)@\206�\311\312\f\"\n\f\211@@)\206,�T\313\f!\211@@)\206;�\311]BDB\211+\207" [dir nndiary-directory group nndiary-group-alist entry x nnheader-file-to-group directory-file-name assoc 0 delq last files] 6])
(defalias 'nndiary-generate-nov-file #[(dir files) "\306!\211	P\307\310!\311\211\311\212q\210\312 \210\313 \210q\210\314\n!\203,�\n!\210\203\212�\315\211@A)P\211!\204\201�\313 \210\316
!\210eb\317\320\311\321#\210d`Z\322`S]}\210\323\324 !\204�eb\210\325\f\211@@)\"\212q\210db\210\326!\210)~\210A\211\2041�\212q\210\327\322d\n\311\330%\210\331p!.\207" [dir nndiary-nov-file-name nov nov-buffer chars file file-name-as-directory get-buffer-create " *nov*" nil buffer-disable-undo erase-buffer file-exists-p file-directory-p nnheader-insert-file-contents search-forward "\n\n" t 1 zerop buffer-size nndiary-parse-head nnheader-insert-nov nnmail-write-region nomesg kill-buffer headers nntp-server-buffer nnmail-delete-file-function files x] 7])
(defalias 'nndiary-nov-delete-article #[(group article) "\212\306!q\210\307	!\203G�`\310y\210`|\210o\203G�\311\n\"\211A@)\312\211\203F�m\2034�
\211AT\240\210\202F�\312\313\314\217\211\203F�\f\247\203F�
\f\240\210*)\315\207" [group article nndiary-group-alist x num active nndiary-open-nov nnheader-find-nov-line 1 assoc nil (byte-code "\300p!\207" [read] 2) ((error)) t] 4])
(defalias 'nndiary-update-file-alist #[(&optional force) "\203�	\205
�\303\n!\211\207" [nndiary-article-file-alist force nndiary-current-directory nnheader-article-to-file-alist] 2])
(defalias 'nndiary-string-to-number #[(str min &optional max) "\304\305\"\204�\306\307!\207\310!\211\nW\204�\203#�	V\203#�\306\311!\210	)\207" [str val min max string-match "^[ 	]*[0-9]+[ 	]*$" nndiary-error "not an integer value" string-to-number "value out of range"] 4])
(defalias 'nndiary-parse-schedule-value #[(str min-or-values max) "\304\305\"?\205<�	<\2035�\304\306\"\205�\307\310\"\211\2030�\311\n	\"\211\2030�\n\211A@)C\2023�\312\313!)\207\314\315\316\317\"\"\207" [str min-or-values val x string-match "[ 	]*\\*[ 	]*" "[ 	]*\$[^ 	]+\$[ 	]*" match-string 1 assoc nndiary-error "invalid syntax" mapcar #[(val) "\306\307\"\211G\310U\203�\311	@\n#\202S�	G\312U\203P�\311	@\n#\311	\211A@)\n#\211

W\203<�

B\202L�

U\203H�
\202L�

B*\202S�\313\314!)\207" [val res min-or-values max x end split-string "-" 1 nndiary-string-to-number 2 nndiary-error "invalid syntax" beg] 6] split-string ","] 6])
(defalias 'nndiary-parse-schedule #[(head min-or-values max) "\304\305\"eb\210\306	\307\310#\204�\311\312!\202�\313\314\315!\n#)\207" [head header min-or-values max format "^X-Diary-%s: \$.*\$$" re-search-forward nil t nndiary-error "header missing" nndiary-parse-schedule-value match-string 1] 4])
(defalias 'nndiary-max #[(spec) "\2053�\304\305\211A@\211\2031�	\250\203$�	\nV\203\n�	\202\n�	A\nV\203\n�	A\202\n�\n+\207" [spec elt max elts 0 nil] 3])
(defalias 'nndiary-flatten #[(spec min &optional max) "\306\211\n\204�\203R�\f\211X\203R�	BT\211\202�\n\306\211A@\211\203Q�
\250\203<�
	B\202$�
@\211
AX\203$�	BT\211\202@�*	*\207" [n flat spec max min elt nil elts] 3])
(defalias 'nndiary-unflatten #[(spec) "\304\305\"\306\211\211\211A@\211\203J�@\2030�@\nTU\2030�\nT\211A@\210\202�\nU\203?�\307	C\"\202�\307	\nBC\"\202�	+\207" [spec res max min sort < nil append] 4])
(defalias 'nndiary-compute-reminders #[(date) "\306\n!\3078\f\203 �\310\3118!\203�\311\202#�\3118S\202#�\3118Z\312\211\"#\313\233\314\233\241\210	\211A@\211\"\203\364�\"A\315=\203X�\316\317\320\321A#\322\"@\323_!\"\202\354�\"A\324=\203t�\316\317\320\321\211AA$\322\"@\325_!\"\202\354�\"A\326=\203\221�\316\317\320\321\211\211\307\233%\322\"@\327_!\"\202\354�\"A\330=\203\260�\316\317\320\321\211\211
\331\233&\322\"@\332_!\"\202\354�\"A\333=\203\317�\316\317\320\321\211\211\334\331\233&\322\"@\335_!\"\202\354�\"A\336=\205\354�\316\317\320\321\211\211\334\211\313\233&\322\"@\337_!\"#B#\2023�\340#\341\"-\207" [nndiary-reminders reminders date date-elts nndiary-week-starts-on-monday monday decode-time 3 zerop 6 nil 5 8 minute subtract-time apply encode-time 0 seconds-to-time 60.0 hour 3600.0 day 86400.0 week 4 604800.0 month 1 18748800.0 year 400861056.0 sort time-less-p reminder res] 11])
(defalias 'nndiary-last-occurence #[(sched) "\306@!\306A@!\306\3078!\3108\203�\3108@\206�\311 \n\205\211�\f\204+�\312\2041�\313\3148\315\316\3178\320\321#\322\"\315\316\3078\323\"\322\"\3248
\204`�\316\320\325#\202|�\204n�\316
\326\310#\202|�\316\320\325#\316
\326\310#\327\330\215\206\210�\331\332\333\"\210\334,,\207" [sched time-zone year hour minute dow-list nndiary-max 4 6 current-time-zone 59 23 2 sort nndiary-flatten 3 1 12 > 1971 5 31 0 found (byte-code "\211A@\211\205\356�\n\306\f\211A@\211\203\352�\307\310\311\312\211\211\313	
&!8\314U\203:�\315	!\2036�\316\202]�\317\202]�\320X\203P�\321\314\246!\203L�\322\202]�\323\202]�\321\314\246!\203\\�\323\202]�\322\306\211\211A@\211\203\216�X\203o�B\202o�\211A@\211\203\310�ZT\211\312W\203\257�\320\\X\203\216�B\320\\\211\202\261�\203\345�\324\325\"\210\326\327\311\312 !@	
&\"\210.\202�*\202��\207" [year-list year month-list month months time-zone nil 6 decode-time encode-time 0 1 2 date-leap-year-p 29 28 7 zerop 30 31 sort > throw found dom-list dow-list days day dows doms max first minute hour] 11) nnheader-report nndiary "Undecidable schedule" nil year-list month-list dom-list] 6])
(defalias 'nndiary-next-occurence #[(sched now) "\306!\211A@\307	8\310	8\311	8\312	8\313\314@\315\316#\317\"\313\314A@\315\320#\317\"\3078\313\314\3108\321\322#\317\" \3118\203Y�\313\314\3118\323\"\317\"\202Z�\324!\3128\"S#\3258\203v�\3258@\206x�\326 $\"\204\212�\314\321\327#\202\252�\204\232�\314\"\315\325#\"\202\252�\314\321\327#\314\"\315\325#\"!\324=\204\313�!@\203\313�!@W\203\313�!\211A!@\210\202\261�!\203\335�\330\331\215\206\341�\332!\202\341�\332!.\207" [now today this-minute this-hour this-day this-month decode-time 2 3 4 5 sort nndiary-flatten 0 59 < 23 1 12 1971 t 6 current-time-zone 31 found (byte-code "\306=\203�	T\211\205\374	\307\n\\X\202�\211A@\211\205\374\310	\nU\203?�
@\203?�
@W\203?�
\211A@\210\202)�
\211A@\211\203\370\311\312\313\314\211\211\315\f	&!8\f\316U\203l�\317	!\203h�\320\202\217�\321\202\217�\f\322X\203\202�\323\f\316\246!\203~�\324\202\217�\325\202\217�\323\f\316\246!\203\216�\325\202\217�\324\310\211 !\"#$\"\211A\"@\211 \203\300� #X\203\241� B\202\241�!\211A!@\211 \203\372� $ZT\211 \314W\203\341�\322 \\  #X\203\300� B\322 \\\211 \202\343�\203\363\326\327\"	\nU\203-\fU\203-@\203-@%W\203-\211A@\210\202\211A@\211 \203\363&\310'(	\nU\203p\fU\203p %U\203p(@\203p(@)W\203p(\211A(@\210\202V(\211A(@\211'\203\357*\310+,	\nU\203\273\fU\203\273 %U\203\273')U\203\273,@\203\273,@-W\203\273,\211A,@\210\202\241,\211A,@\211+\203\353\313\314+' \f	&.\330/.\"\203\347\331\332.\"\210)\202\273*\202p*\202-.\202?�*\202��\207" [years year this-year month-list month months t 10 nil 6 decode-time encode-time 0 1 2 date-leap-year-p 29 28 7 zerop 30 31 sort < time-less-p throw found this-month time-zone dom-list dow-list days day dows doms max first this-day hour-list hour hours this-hour minute-list minute minutes this-minute time now] 11) nndiary-last-occurence this-year sched minute-list hour-list dom-list month-list years dow-list year time-zone] 6])
(defalias 'nndiary-expired-article-p #[(file) "\304\305!rq\210\306\216\307	!\203-�\310\311\312\313\217)\211\205)�\314!\211\205)�\315\316 \")\2024�\317\320\321	#\210\310+\207" [#1=#:temp-buffer file head sched generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnheader-insert-head nil arg (mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nndiary-headers) ((t (byte-code "\302\303\304	A$\210\305\207" [head arg nnheader-report nndiary "X-Diary-%s header parse error: %s." nil] 5))) nndiary-last-occurence time-less-p current-time nnheader-report nndiary "Could not read file %s"] 5])
(defalias 'nndiary-renew-article-p #[(file timestamp) "\306 \210\307!\203K�\310 \311\312\313\314\217)\n\205I�\315\n\"\211\205I�\316\317\n!\nC\"\f\203>�\320\f@
\"\203>�\f\211A@\210\202)�\f?\206H�\320\f@\")*\207\321\322\323#\210\311\207" [file head sched now reminders timestamp erase-buffer nnheader-insert-head current-time nil arg (mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nndiary-headers) ((t (byte-code "\302\303\304	A$\210\305\207" [head arg nnheader-report nndiary "X-Diary-%s header parse error: %s." nil] 5))) nndiary-next-occurence append nndiary-compute-reminders time-less-p nnheader-report nndiary "Could not read file %s"] 4])
(byte-code "\304\211\203$�\n@\305\306\307	@\"!\310\311	\"\210\310\312	\"\210\nA\211\204�*\313\314\"\2043�\315\314\316\317\320$\210\321\322!\207" [nndiary-headers header #:--cl-dolist-temp-- gnus-valid-select-methods nil intern format "X-Diary-%s" add-to-list gnus-extra-headers nnmail-extra-headers assoc "nndiary" gnus-declare-backend post-mail respool address provide nndiary] 5)

${this.title}

Code Editor : nndiary.elc