;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\311\312\313\314\315\316\317&\210\320\321\322\323\324DD\325\316\311\316\326\327\330&	\210\320\331\322\323\332DD\333\316\311\316\334\327\335&	\210\320\336\322\323\337DD\340\327\341%\210\320\342\322\323\343DD\344\327\345%\210\346\347\350\312#\210\351\211\203\201\211@\347
N\203z\350
N\204z\352\350\347N#\210
A\266\202\202`\210\353\347\350\354#\210\320\350\322\323\355DD\356\327\357%\210\346\360\361\312#\210\351\211\203\274\211@\360
N\203\265\361
N\204\265\352\361\360N#\210
A\266\202\202\233\210\353\360\361\354#\210\320\361\322\323\362DD\363\327\357%\210\346\364\365\312#\210\351\211\203\367\211@\364
N\203\360\365
N\204\360\352\365\364N#\210
A\266\202\202\326\210\353\364\365\354#\210\320\365\322\323\366DD\367\327\357%\210\320\370\322\323\371DD\372\327\345%\210\311\236\203)
\311\236A\373\374\312\"\240\210\2024
\311\373\374\312\"\312\211FB\311	\236\204@
\311\375D	B\312\207" [nnoo-definition-alist nnoo-state-alist require nnoo nnheader nnmail gnus-start gnus-sum custom-declare-group nndiary nil "The Gnus Diary back end." :version "22.1" :group gnus-diary custom-declare-variable nndiary-mail-sources funcall function #[0 "\300\301\302\303!EC\207" [file :path expand-file-name "~/.nndiary"] 4 #1=""] "NNDiary specific mail sources.\nThis variable is used by nndiary in place of the standard `mail-sources'\nvariable when `nndiary-get-new-mail' is set to non-nil.  These sources\nmust contain diary messages ONLY." mail-source :type sexp nndiary-split-methods #[0 "\300\207" [(("diary" #1#))] 1 #1#] "NNDiary specific split methods.\nThis variable is used by nndiary in place of the standard\n`nnmail-split-methods' variable when `nndiary-get-new-mail' is set to\nnon-nil." nnmail-split (choice (repeat :tag "Alist" (group (string :tag "Name") regexp)) (function-item nnmail-split-fancy) (function :tag "Other")) nndiary-reminders #[0 "\300\207" [((0 . day))] 1 #1#] "Different times when you want to be reminded of your appointments.\nDiary articles will appear again, as if they'd been just received.\n\nEntries look like (3 . day) which means something like \"Please\nHortense, would you be so kind as to remind me of my appointments 3 days\nbefore the date, thank you very much.  Anda, hmmm... by the way, are you\ndoing anything special tonight ?\".\n\nThe units of measure are `minute' `hour' `day' `week' `month' and `year' (no,\nnot `century', sorry).\n\nNOTE: the units of measure actually express dates, not durations: if you\nuse `week', messages will pop up on Sundays at 00:00 (or Mondays if\n`nndiary-week-starts-on-monday' is non-nil) and *not* 7 days before the\nappointment, if you use `month', messages will pop up on the first day of\neach months, at 00:00 and so on.\n\nIf you really want to specify a duration (like 24 hours exactly), you can\nuse the equivalent in minutes (the smallest unit).  A fuzz of 60 seconds\nmaximum in the reminder is not that painful, I think.  Although this\nscheme might appear somewhat weird at a first glance, it is very powerful.\nIn order to make this clear, here are some examples:\n\n- (0 . day): this is the default value of `nndiary-reminders'.  It means\n  pop up the appointments of the day each morning at 00:00.\n\n- (1 . day): this means pop up the appointments the day before, at 00:00.\n\n- (6 . hour): for an appointment at 18:30, this would pop up the\n  appointment message at 12:00.\n\n- (360 . minute): for an appointment at 18:30 and 15 seconds, this would\n  pop up the appointment message at 12:30." (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)))) nndiary-week-starts-on-monday #[0 "\300\207" [nil] 1 #1#] "Whether a week starts on monday (otherwise, sunday)." boolean defvaralias nndiary-request-create-group-hooks nndiary-request-create-group-functions (saved-value saved-variable-comment) put make-obsolete-variable "24.3" #[0 "\300\207" [nil] 1 #1#] "Hook run after `nndiary-request-create-group' is executed.\nThe hook functions will be called with the full group name as argument." hook nndiary-request-update-info-hooks nndiary-request-update-info-functions #[0 "\300\207" [nil] 1 #1#] "Hook run after `nndiary-request-update-info' is executed.\nThe hook functions will be called with the full group name as argument." nndiary-request-accept-article-hooks nndiary-request-accept-article-functions #[0 "\300\207" [nil] 1 #1#] "Hook run before accepting an article.\nExecuted near the beginning of `nndiary-request-accept-article'.\nThe hook functions will be called with the article in the current buffer." nndiary-check-directory-twice #[0 "\300\207" [t] 1 #1#] "If t, check directories twice to avoid NFS failures." mapcar list "*internal-non-initialized-backend*"] 10)
#@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/") (#$ . 5062))
(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) (#$ . 5301))
(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) (#$ . 5544))
(nnoo-define 'nndiary-newsgroups-file nil)
#@312 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 retrieves 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 (#$ . 5815))
(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 (#$ . 6219))
(nnoo-define 'nndiary-nov-is-evil nil)
#@120 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 (#$ . 6828))
(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 (#$ . 7060))
(nnoo-define 'nndiary-inhibit-expiry nil)
#@33 Current Diary back end version.
(defconst nndiary-version "0.2-b14" (#$ . 7256))
#@33 Current Diary back end version.
(defalias 'nndiary-version #[0 "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 7343) nil])
(defvar nndiary-nov-file-name ".overview")
(nnoo-define 'nndiary-nov-file-name nil)
(defvar nndiary-current-directory nil)
(nnoo-define 'nndiary-current-directory nil)
(defvar nndiary-current-group nil)
(nnoo-define 'nndiary-current-group nil)
(defvar nndiary-status-string "")
(nnoo-define 'nndiary-status-string nil)
(defvar nndiary-nov-buffer-alist nil)
(nnoo-define 'nndiary-nov-buffer-alist nil)
(defvar nndiary-group-alist nil)
(nnoo-define 'nndiary-group-alist nil)
(defvar nndiary-active-timestamp nil)
(nnoo-define 'nndiary-active-timestamp nil)
(defvar nndiary-article-file-alist nil)
(nnoo-define 'nndiary-article-file-alist nil)
(defvar nndiary-generate-active-function 'nndiary-generate-active-info)
(nnoo-define 'nndiary-generate-active-function nil)
(defvar nndiary-nov-buffer-file-name nil)
(nnoo-define 'nndiary-nov-buffer-file-name nil)
(defvar nndiary-file-coding-system nnmail-file-coding-system)
(nnoo-define 'nndiary-file-coding-system nil)
(defconst nndiary-headers '(("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)))))
(defalias 'nndiary-schedule #[0 "\301C\3021\303\304\305\"\"0\207\306\307\310\242A$\210\301\207" [nndiary-headers nil (error) mapcar make-closure #[257 "\300
@\240\210\301
@A@\3028#\207" [V0 nndiary-parse-schedule 2] 6 "\n\n(fn ELT)"] nnheader-report nndiary "X-Diary-%s header parse error: %s."] 7])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\312\310!\210\307\313\314\"\210\312\313!\210\307\315\316\"\210\312\315!\210\307\317\320\"\210\312\317!\207" [function-put nndiary-schedule speed -1 put byte-optimizer byte-compile-inline-expand defalias nndiary-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nndiary] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nndiary-status-message #[256 "\300\301\"\207" [nnoo-status-message nndiary] 4 "\n\n(fn &optional SERVER)"] nndiary-close-server #[512 "\300\301\"\207" [nnoo-close-server nndiary] 5 "\n\n(fn &optional SERVER DEFS)"] nndiary-open-server #[513 "\300\301#\207" [nnoo-change-server nndiary] 6 "\n\n(fn SERVER &optional DEFS)"]] 5)
#@50 

(fn SEQUENCE &optional GROUP SERVER FETCH-OLD)
(defalias 'nndiary-retrieve-headers #[1025 "\305\"\205\312rq\210\306 \210\307G\310	\307\211\205#\f\247?\206#\fX@;\203/\311\202\306\312	\"\203<\313\202\306\203\262@\262
\314
!\262\203\206\315!\203\206\316!\204\206\317\320\"c\210`\262\321!\210
b\210\322\323\307\324#\203y\325u\210\202db\210\323c\210\326c\210`d|\210A\262	T\262\f\247\203<\fV\203<\327\246\310U\203<\330\331\332\333\334_\"#\210\202<\f\247\203\302\fV\203\302\330\331\335\"\210\336 \210\311*\266\205)\207" [nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system nndiary-check-directory-twice nnmail-large-newsgroup 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" 20 nnheader-message 6 "nndiary: Receiving headers... %d%%" floor 100.0 "nndiary: Receiving headers...done" nnheader-fold-continuation-lines] 15 (#$ . 10300)])
(nnoo-register-function 'nndiary-retrieve-headers)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nndiary-open-server #[513 "\302\303#\210\211\203'\211@\304\305\306@\"!\262
\307\310\"\210\307\311\"\210
A\266\202\202\210\312	!\204<\3131;\314	\315\"0\210\202<\210\312	!\204K\316 \210\317\303\320	#\207\321\322	!!\204\\\316 \210\317\303\323	#\207\317\303\324	$\210\315\207" [nndiary-headers nndiary-directory nnoo-change-server nndiary intern format "X-Diary-%s" add-to-list gnus-extra-headers nnmail-extra-headers file-exists-p (error) make-directory t 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"] 8 (#$ . 11458)])
(nnoo-register-function 'nndiary-open-server)
#@15 

(fn SERVER)
(defalias 'nndiary-request-regenerate #[257 "\300\301\"\210\302
!\210\303\207" [nndiary-possibly-change-directory nil nndiary-generate-nov-databases t] 4 (#$ . 12196)])
(nnoo-register-function 'nndiary-request-regenerate)
#@41 

(fn ID &optional GROUP SERVER BUFFER)
(defalias 'nndiary-request-article #[1025 "\306\"\210\211\206\n	\307\211\211;\203<\310!\211\262\203B\211A\311\312@\"\211\262!\236A\203B
\313A!P\262\202B\314!\262\204O\315\316\317	#\202\224\320!\204]\315\316\321#\202\224\322!\203k\315\316\323#\202\224\212\f\324!*\204}\315\316\325#\202\224\315\316\326	#\210\211\203\215\211@\202\216\327\330!!B*\207" [nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system nndiary-directory nndiary-file-coding-system nnmail-file-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] 12 (#$ . 12439)])
(nnoo-register-function 'nndiary-request-article)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nndiary-request-group #[1025 "\304\"\204\305\306\307\"\202p\310\n!\204\305\306\311\n#\202p\312\n!\204,\305\306\313\n#\202p
\203;\305\306\314#\210\315\202p\316\n!\210\317\306!\210\320\"A@\211\204V\305\306\321#\202n\305\306\322#\210\323\324A@ZT\325]@A	%\262
)\207" [nnmail-pathname-coding-system file-name-coding-system nndiary-current-directory nndiary-group-alist 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] 11 (#$ . 13475)])
(nnoo-register-function 'nndiary-request-group)
#@31 

(fn &optional GROUP SERVER)
(defalias 'nndiary-request-scan #[512 "	\306\307\"\210\310\311\312
$*\207" [nndiary-mail-sources nndiary-split-methods nnmail-split-methods mail-sources nndiary-article-file-alist nndiary-directory nil nndiary-possibly-change-directory nnmail-get-new-mail nndiary nndiary-save-nov] 7 (#$ . 14320)])
(nnoo-register-function 'nndiary-request-scan)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nndiary-close-group #[513 "\301\302\207" [nndiary-article-file-alist nil t] 3 (#$ . 14709)])
(nnoo-register-function 'nndiary-close-group)
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nndiary-request-create-group #[769 "\304\305\"\210\306\307!\210\310\"\203\311\207\312\313	\"!\203.\314\313	\"!\204.\315\307\316\313	\"#\207\305\317\320B\211\262DB\321!\210\304\"\210\322\n!\211\203X
\323\324\"\240\210
\323\325\"\241\210\210\326\"\210\327\330\331\332D\"\"\210\311\207" [nndiary-group-alist nndiary-directory nndiary-current-directory nndiary-active-file 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-functions gnus-group-prefixed-name "nndiary"] 10 (#$ . 14896)])
(nnoo-register-function 'nndiary-request-create-group)
#@25 

(fn &optional SERVER)
(defalias 'nndiary-request-list #[256 "\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] 3 (#$ . 15764)])
(nnoo-register-function 'nndiary-request-list)
#@30 

(fn DATE &optional SERVER)
(defalias 'nndiary-request-newgroups #[513 "\300
!\207" [nndiary-request-list] 4 (#$ . 16126)])
(nnoo-register-function 'nndiary-request-newgroups)
#@25 

(fn &optional SERVER)
(defalias 'nndiary-request-list-newsgroups #[256 "\212\301!)\207" [nndiary-newsgroups-file nnmail-find-file] 3 (#$ . 16309)])
(nnoo-register-function 'nndiary-request-list-newsgroups)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nndiary-request-expire-articles #[1026 "\305\"\210\306!\307\211\211\310\311!\210\312\313#\237\262\203\233\314\211A\262\n\242\211\262!\262\315\"\203\223\204=\316!\203\223	\317=\204j\320\321\322\"r\211q\210\323\324\"\216\325		p$\210\307\326		\"\210+\210\305\"\210\327\330\331\n$\210\3321~\n!0\210\202\204\210\211B\262\333
\"\262\334\"\210\202\211B\262\202\335\"A@\211\203\270\211\203\263\336\337\"\206\266
AT\240\210\340\f\"\266\341 \210
\244\207" [nndiary-current-directory nnmail-expiry-target nnmail-delete-file-function nndiary-group-alist nndiary-active-file nndiary-possibly-change-directory nnheader-directory-articles nil nnmail-activate nndiary seq-intersection eq nndiary-article-to-file nndiary-deletable-article-p nndiary-expired-article-p delete generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nndiary-request-article nnmail-expiry-target-group nnheader-message 5 "Deleting article %s in %s" (file-error) delq nndiary-nov-delete-article assoc apply min nnmail-save-active nndiary-save-nov] 14 (#$ . 16524)])
(nnoo-register-function 'nndiary-request-expire-articles)
#@73 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL)
(defalias 'nndiary-request-move-article #[1540 "\306\307!\310\311\"\210\312 \210\313	\"\203j\314#\203j\310\211\211r
q\210\315!\210\316\317\"\262
\320p!\210,\211\203j\311\"\210\3211U\f\322	!!0\210\202V\210\323	\"\210\203j\324 \210\325
\"\210\207" [nndiary-article-file-alist nndiary-current-group nndiary-current-directory nntp-server-buffer nnmail-delete-file-function nndiary-group-alist gnus-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 t kill-buffer (file-error) nndiary-article-to-file nndiary-nov-delete-article nndiary-save-nov nnmail-save-active nndiary-active-file] 12 (#$ . 17791)])
(nnoo-register-function 'nndiary-request-move-article)
#@36 

(fn GROUP &optional SERVER LAST)
(defalias 'nndiary-request-accept-article #[769 "\304\"\210\305 \210\306\307!\210\310C\3111\312\313\314\"\"0\262
\202*\315\316\317\242A$\266\310\205\242\310	\203<\320\321\322!\321\323!#\210;\203f\324\316!\203\237\325\326!BC!@\211\262\203\237\327\n\"\210
\203\237\330 \210\202\237\324\316!\203\237\331\326!\211\262\204\202\332\333!\203\202\334\211\262\202\211\325
!@\211\262\203\237
\203\237\327\n\"\210	\203\234\335 \210\330 \210\211\262
\207" [nndiary-headers nnmail-cache-accepted-message-ids nndiary-group-alist nndiary-active-file nndiary-possibly-change-directory nnmail-check-syntax run-hooks nndiary-request-accept-article-functions nil (error) mapcar make-closure #[257 "\300
@\240\210\301
@A@\3028#\207" [V0 nndiary-parse-schedule 2] 6 "\n\n(fn ELT)"] nnheader-report nndiary "X-Diary-%s header parse error: %s." nnmail-cache-insert nnmail-fetch-field "message-id" "subject" nnmail-activate 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] 10 (#$ . 18687)])
(nnoo-register-function 'nndiary-request-accept-article)
#@25 

(fn &optional SERVER)
(defalias 'nndiary-request-post #[256 "\300\301\"\207" [nnmail-do-request-post nndiary-request-accept-article] 4 (#$ . 19916)])
(nnoo-register-function 'nndiary-request-post)
#@29 

(fn ARTICLE GROUP BUFFER)
(defalias 'nndiary-request-replace-article #[771 "\301!\210r\211q\210\302!\210\303 \304!\305P\306\30719\310ed\311	!\206)\312\304\n!\"\306\313\314!?\2052\315%\210\3160\202?\266\306\202\227\205\225\317\"\262
r\320!q\210eb\210\321!\204b\322\323P\306\316#\203o\324 \210`\325y\210`|\210\202\211\321\326!\203\211\327\330\224\330\225{!W\203\211\325y\330U\204o\324 \210\331
!\210\332 \210)\316\266\203)\207" [nndiary-current-directory nndiary-possibly-change-directory nndiary-possibly-create-directory nnmail-insert-lines int-to-string "	" nil (error) nnmail-write-region nndiary-article-to-file expand-file-name nnheader-be-verbose 5 nomesg t nndiary-parse-head nndiary-open-nov looking-at search-forward "\n" beginning-of-line 1 "[0-9]+	" string-to-number 0 nnheader-insert-nov nndiary-save-nov] 13 (#$ . 20122)])
(nnoo-register-function 'nndiary-request-replace-article)
#@37 

(fn GROUP &optional FORCE SERVER)
(defalias 'nndiary-request-delete-group #[769 "\306\"\210
\203E\307\310	\311\312\n!\313R#\314
\2036
\211A\262\242\262
\315
!\203\316\317\320$\210
!\210\202\266\3211D\322!0\210\202E\210\323\324\f\"\f\"\314\211\325\f\"\210\310\207" [nndiary-current-directory nnheader-numerical-short-files nndiary-nov-file-name nnmail-delete-file-function nndiary-group-alist nndiary-current-group nndiary-possibly-change-directory directory-files t "\\|" regexp-quote "$" nil file-writable-p nnheader-message 5 "Deleting article %s in %s..." (error) delete-directory delq assoc nnmail-save-active nndiary-active-file] 11 (#$ . 21050)])
(nnoo-register-function 'nndiary-request-delete-group)
#@40 

(fn GROUP NEW-NAME &optional SERVER)
(defalias 'nndiary-request-rename-group #[770 "\306\"\210\307\"\307\"\3101\311\312\"\210\3120\202\210\313\207\205|\314
!\211\203<\315@AP@AP\"\210\211A\262
\202$\210\211	P\316
!\203M\315
	P\"\210\210\317
!G\320X\203d\3211c\322
!0\210\202d\210\323\n\"\211\203p\211\240\210\313\211\324\n
\"\210\312\262
\207" [nndiary-directory nndiary-nov-file-name nndiary-group-alist nndiary-current-directory nndiary-current-group nndiary-active-file nndiary-possibly-change-directory nnmail-group-pathname (error) make-directory t nil nnheader-article-to-file-alist rename-file file-exists-p directory-files 2 (error) delete-directory assoc nnmail-save-active] 11 (#$ . 21790)])
(nnoo-register-function 'nndiary-request-rename-group)
#@50 

(fn ARTICLE NAME VALUE &optional GROUP SERVER)
(defalias 'nndiary-set-status #[1283 "\300\"\210\301!\302
!\204\303\304\305#\207\306\307\310\"\311\312\"\216r\211q\210\313!\210\314\"\210)r\211q\210\315\316\211\316\317%\210*\210\310\207" [nndiary-possibly-change-directory nndiary-article-to-file file-exists-p nnheader-report nndiary "File %s does not exist" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-file-contents nnmail-replace-status write-region nil 0] 13 (#$ . 22582)])
(nnoo-register-function 'nndiary-set-status)
#@36 

(fn GROUP INFO &optional SERVER)
(defalias 'nndiary-request-update-info #[770 "\301!\210\302\3038\304\305#\211\204\306\307\310#\210\202v\311\3128\313\"\314\211\211\211\212\315\316!\262
\211A\262\242\211\262\203R\317!P\262\320!\203)\321\"\203)B\262\202)\322\323!\210\324
!\210)\325\326\"\262
\203tAA\211\327\n@\305#\240\266\266\330\331@\"\210\305\207" [nndiary-current-directory nndiary-possibly-change-directory gnus-group-parameter-value 5 timestamp 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-functions] 15 (#$ . 23212)])
(nnoo-register-function 'nndiary-request-update-info)
#@16 

(fn ARTICLE)
(defalias 'nndiary-article-to-file #[257 "\303 \210\304
\236A\211\262\203\305
	\"\207\n\205*\306\305\307!	\"\211\262!\205*\303\310!\210\211\207" [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] 6 (#$ . 24074)])
#@66 Say whether ARTICLE in GROUP can be deleted.

(fn GROUP ARTICLE)
(defalias 'nndiary-deletable-article-p #[514 "\302\303!\211\262\205\304
!\205?\206\305	\"A@A=?\207" [nnmail-keep-last-article nndiary-group-alist nil nndiary-article-to-file file-writable-p assoc] 6 (#$ . 24430)])
#@11 

(fn ID)
(defalias 'nndiary-find-group-number #[257 "r\302\303!q\210\304\305	\"\211\262\203	
B\266\202\202H\211\204=
\203=
@@	\230\2042\305@@\"\262
\211\204
A\262\202\211\205F
@@
B\266\202)\207" [nndiary-group-alist nndiary-current-group gnus-get-buffer-create " *nndiary id*" nil nndiary-find-id] 6 (#$ . 24726)])
#@17 

(fn GROUP ID)
(defalias 'nndiary-find-id #[514 "\302 \210\303\304	\"\"\305\211\306!\205S\307!\210\211\204R\310\305\311#\203R\312\313\305\311\314$\2034\312\313\315 \311#\203:\316y\210\202\317 \210\311\262
\3201K\321p!0\202M\210\305\262\202
\207" [nndiary-nov-file-name nndiary-directory 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 (error) read] 10 (#$ . 25065)])
#@37 

(fn ARTICLES &optional FETCH-OLD)
(defalias 'nndiary-retrieve-headers-with-nov #[513 "\206	?\205E\305\n\"\306
!\205Cr\fq\210\307 \210\310
!\210
\203+
\247\204+\311\202B\312\2039\313@Z]\202;@\314!@\"\210\311)\262
\207" [gnus-nov-is-evil nndiary-nov-is-evil nndiary-nov-file-name nndiary-current-directory nntp-server-buffer expand-file-name file-exists-p erase-buffer nnheader-insert-file-contents t nnheader-nov-delete-outside-range 1 last] 7 (#$ . 25580)])
#@31 

(fn GROUP &optional SERVER)
(defalias 'nndiary-possibly-change-directory #[513 "\211\203\306
!\204\307
!\210
\204\310\207\311\"	\211\232\204&\211\312\313!)\207" [nndiary-directory nnmail-pathname-coding-system file-name-coding-system nndiary-current-directory nndiary-current-group nndiary-article-file-alist nndiary-server-opened nndiary-open-server t nnmail-group-pathname nil file-exists-p] 5 (#$ . 26062)])
#@14 

(fn GROUP)
(defalias 'nndiary-possibly-create-directory #[257 "\301
\"\302
!?\205\303\304!\305\"\210\306\307\310#\207" [nndiary-directory nnmail-group-pathname file-exists-p make-directory directory-file-name t nnheader-message 5 "Creating mail directory %s"] 6 (#$ . 26497)])
#@48 Called narrowed to an article.

(fn GROUP-ART)
(defalias 'nndiary-save-mail #[257 "\302\211\303 \262\304!\210\305\306!\210\305\307!\210eb\210\310\311!\203%\312\313!\210\314y\210\202\302
\203c\315@@!\210\316@@\"\317@A!P
\203K	\320#\266\202\\\321ed\302\322\323!?\205X\324%\210\262

A\262\202'\266\325!\262
\211\203\200\326
@@@A#\210\211A\262
\202k\210\207" [nndiary-directory nnmail-crosspost-link-function 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] 13 (#$ . 26787)])
#@55 Compute the next article number in GROUP.

(fn GROUP)
(defalias 'nndiary-active-number #[257 "\304
\"A@\211\2048\305!\210\306!\210	\204\307\310\n!\311\"	\203-	@@\312	!@@B\2020\313\314B\262


DB\211
AT\241\210\315\316\317A!\320\"\"!\203V\211
AT\241\210\202>\211A\207" [nndiary-group-alist nndiary-article-file-alist nndiary-current-directory nndiary-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] 8 (#$ . 27566)])
#@64 Add a nov line for the GROUP base.

(fn GROUP ARTICLE HEADERS)
(defalias 'nndiary-add-nov #[771 "r\300!q\210db\210\211\301I\210\302
!)\207" [nndiary-open-nov 0 nnheader-insert-nov] 6 (#$ . 28169)])
(defalias 'nndiary-header-value #[0 "\300\225\301\210`{\207" [0 nil] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nndiary-header-value speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@68 Parse the head of the current buffer.

(fn CHARS &optional NUMBER)
(defalias 'nndiary-parse-head #[513 "\212\214\300 \301U\204eb\302\303\304\305#\203`S\202d}\210\306\305!\211\307I\210\211\301I\210\211\262
*\207" [buffer-size 0 search-forward "\n\n" nil t nnheader-parse-head 6] 7 (#$ . 28595)])
#@14 

(fn GROUP)
(defalias 'nndiary-open-nov #[257 "\304
\"A\2065\305\306\307\"!r\211q\210\310\303!\210\311	\312\n\"\"\313 \210\314!\203+\315!\210)

BB\211\262
\207" [nndiary-nov-buffer-alist nndiary-nov-file-name nndiary-directory nndiary-nov-buffer-file-name assoc gnus-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] 7 (#$ . 28904)])
(defalias 'nndiary-save-nov #[0 "\212\205/\302@A!\203'@Aq\210\303 \203\304\305d	\306\307%\210\310\306!\210\311p!\210A\211\204\306)\207" [nndiary-nov-buffer-alist nndiary-nov-buffer-file-name buffer-live-p buffer-modified-p nnmail-write-region 1 nil nomesg set-buffer-modified-p kill-buffer] 7])
#@75 Generate NOV databases in all nndiary directories.

(fn &optional SERVER)
(defalias 'nndiary-generate-nov-databases #[256 "\303\304!\210\305
!\204\306
!\210\307!\310\311\312#\210\313	\n\"\207" [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] 5 (#$ . 29678) (byte-code "\300\301!\206\302C\207" [nnoo-current-server nndiary ""] 2)])
#@72 Regenerate the NOV database in DIR.

(fn DIR &optional SEEN NO-ACTIVE)
(defalias 'nndiary-generate-nov-databases-1 #[769 "\305!\262\306!\235?\205y\306!B\262\307\310\311\310$\311
\211A\262\242\211\262\203?\312\313\314!\"\204\315
!\203\316
\"\210\202\266\317\320!\321\"\211\204f\322\323!	\"\324
\n\"A@\211\205a\211
AT\240\266\202\202x!\210\325\"\210\211?\205x\326\n\f\")\207" [nndiary-files nndiary-directory nndiary-group-alist nndiary-generate-active-function nndiary-active-file 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] 10 (#$ . 30174) "DRegenerate NOV in: "])
#@12 

(fn DIR)
(defalias 'nndiary-generate-active-info #[257 "\303\304!\"\305
	\"\211A@@\206\306\307	\"\n@@\206 
T\310\n!@@\206*\306]BD	B\211\207" [nndiary-directory nndiary-group-alist nndiary-files nnheader-file-to-group directory-file-name assoc 0 delq last] 9 (#$ . 31034)])
#@18 

(fn DIR FILES)
(defalias 'nndiary-generate-nov-file #[514 "\303!\211P\304\305!\306\211\211rq\210\307 \210\310 \210	q\210\311!\203#\n!\210\203z\312@AP\211\262!\204r\310 \210\313!\210eb\314\315\306\316#\210d`Z\262\317`S]}\210\320 \321U\204peb\210\322@@\"\262
rq\210db\210\323
!\210)~\210A\262\202#rq\210\324\317d\306\325\306\326&\210\327p!*\207" [nndiary-nov-file-name nntp-server-buffer nnmail-delete-file-function file-name-as-directory gnus-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 buffer-size 0 nndiary-parse-head nnheader-insert-nov nnmail-write-region nomesg excl kill-buffer] 16 (#$ . 31326)])
#@22 

(fn GROUP ARTICLE)
(defalias 'nndiary-nov-delete-article #[514 "r\301!q\210\302
!\203N`\303y\210`|\210o\203N\304\"A@\305
\203Lm\2030
\211AT\240\266\202N\3061;\307p!0\202=\210\305\211\262\203L\211\247\203L

\240\210\266)\310\207" [nndiary-group-alist nndiary-open-nov nnheader-find-nov-line 1 assoc nil (error) read t] 6 (#$ . 32073)])
#@24 

(fn &optional FORCE)
(defalias 'nndiary-update-file-alist #[256 "\203\211\205
\302	!\211\207" [nndiary-article-file-alist nndiary-current-directory nnheader-article-to-file-alist] 3 (#$ . 32431)])
#@30 

(fn STR MIN &optional MAX)
(defalias 'nndiary-string-to-number #[770 "\300\301\"\204\302\303!\207\304!\211W\204
\203\"\211V\203\"\302\305!\210\207" [string-match "^[ 	]*[0-9]+[ 	]*$" error "Not an integer value" string-to-number "Value out of range"] 6 (#$ . 32641)])
#@30 

(fn STR MIN-OR-VALUES MAX)
(defalias 'nndiary-parse-schedule-value #[771 "\300\301\"?\205:
<\203/\300\302\"\205\303\304\"\211\203+\305
\"\211\262\203+\211A@C\207\306\307!\207\310\311\312#\313\314\"\"\207" [string-match "[ 	]*\\*[ 	]*" "[ 	]*\\([^ 	]+\\)[ 	]*" match-string 1 assoc error "Invalid syntax" mapcar make-closure #[257 "\302
\303\"\211G\304U\203\305
@\300\301#\207\211G\306U\203<\305
@\300\301#\305A@\300\301#

W\2030

B\207

U\2038
\207\211B\207\307\310!\207" [V0 V1 split-string "-" 1 nndiary-string-to-number 2 error "Invalid syntax"] 7 "\n\n(fn VAL)"] split-string ","] 8 (#$ . 32927)])
#@31 

(fn HEAD MIN-OR-VALUES MAX)
(defalias 'nndiary-parse-schedule #[771 "\300\301\"eb\210\302
\303\304#\204\305\306!\207\307\310\311!#\207" [format "^X-Diary-%s: \\(.*\\)$" re-search-forward nil t error "Header missing" nndiary-parse-schedule-value match-string 1] 8 (#$ . 33558)])
#@13 

(fn SPEC)
(defalias 'nndiary-max #[257 "\211\2055\211\300\301\211A\262\242\211\262\2032\211\250\203$\211V\203\211\262\202\211AV\203\211A\262\202
\266\203\207" [0 nil] 6 (#$ . 33849)])
#@31 

(fn SPEC MIN &optional MAX)
(defalias 'nndiary-flatten #[770 "\300\211\204\203S\262
\211X\203S\211B\262\211T\262
\202
\300
\211A\262\242\211\262\203Q\211\250\203:\211B\262\202!\211@\262
AX\203!B\262T\262\202>\266
\207" [nil] 9 (#$ . 34059)])
#@13 

(fn SPEC)
(defalias 'nndiary-unflatten #[257 "\300
\301\"\262
\302\211\211\211A\262\242\211\262\203L\262@\2030@TU\2030
T\262A\262\202
U\203@\303
C\"\262
\202	\303
BC\"\262
\202	\207" [sort < nil append] 8 (#$ . 34338)])
#@13 

(fn DATE)
(defalias 'nndiary-compute-reminders #[257 "\302!\303
8	\203\3048\305U\203\304\202!\3048S\202!\3048Z\306\211\307\233\310\233\241\210\211A\262\242\211\262\203\334
A\311=\203O\312\313\314\305A#@\315_\"\202\325
A\316=\203h\312\313\314\305\211AA$@\317_\"\202\325
A\320=\203\202\312\313\314\305\211\211\303\n\233%@\321_\"\202\325
A\322=\203\237\312\313\314\305\211\211\323\233&@\324_\"\202\325
A\325=\203\273\312\313\314\305\211\211\326\323\233&@\327_\"\202\325
A\330=\205\325\312\313\314\305\211\211\326\211\307\f\233&@\331_\"
B\262
\202,\332
\333\"\207" [nndiary-reminders nndiary-week-starts-on-monday decode-time 3 6 0 nil 5 8 minute time-subtract apply encode-time 60 hour 3600 day 86400 week 4 604800 month 1 18748800 year 400861056 sort time-less-p] 16 (#$ . 34589)])
#@14 

(fn SCHED)
(defalias 'nndiary-last-occurrence #[257 "\300
@!\300A@!\300\3018!\3028\203\3028@\206\303 
\205`
\204(\304\262\204/\305\262\3068\307\310\3118\312\313#\314\"\307\310\301	8\315\"\314\"\3168\211\204Y\310\312\317#\262\202u\204g\310
\320\302#\262
\202u\310\312\317#\262\310
\320\302#\262
\3212U

\211A\262\242\211\262\205T
\322
\211A\262\242\211\262\203O
\302\323\324\320\211\211\312&!8
\306U\203\271\325	!\203\265\326\202\334\327\202\334
\330X\203\317
\306\246\320U\203\313\331\202\334\317\202\334
\306\246\320U\203\333\317\202\334\331\322\211\211A\262\242\211\262\203\373
X\203\341

B\262
\202\341\211A\262\242\211\262\203,

ZT\262
\320W\203
\330\\\262
X\203\373

B\262
\330\\\262\202
\211\203J
\307
\314\"\210\332\321\324\320@
&\"\210\266\202\207\266\202y0\206^
\333\334\335\"\210\322\266\204\207" [nndiary-max 4 6 current-time-zone 59 23 2 sort nndiary-flatten 3 1 12 > 1971 5 31 0 found nil decode-time encode-time date-leap-year-p 29 28 7 30 throw nnheader-report nndiary "Undecidable schedule"] 27 (#$ . 35427)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias nndiary-last-occurence nndiary-last-occurrence nil make-obsolete "26.1"] 4)
#@18 

(fn SCHED NOW)
(defalias 'nndiary-next-occurrence #[514 "\300
!\211A@\3018\3028\3038\3048\305\306	@\307\310#\311\"\305\306\nA@\307\312#\311\"\301\n8\305\306\302
8\313\314#\311\"\303\f8\203J\305\306\3038\315\"\311\"\202K\316\304
8S\3178\203a\3178@\206c\320 \204r\306\313\321#\262\202\217\204\200\306\307\317#\262\202\217\306\313\321#\262\306\307\317#\262\316=\204\251@\203\251@	W\203\251A\262\202\225\203\207\3222\316=\203\310
T\211\262\205~
\323\n\\X\202\321\211A\262\242\211\262\205~\324U\203\361
@\203\361
@\fW\203\361
A\262\202\335
\211A\262\242\211\262\203y\317\300\325\307\211\211\313&!8
\301U\203\"
\326!\203
\327\202E
\330\202E

\331X\2038

\301\246\307U\2034
\332\202E
\321\202E

\301\246\307U\203D
\321\202E
\332	\324\211\211A\262\242\211\262\203e

X\203K


B\262
\202K
\211A\262\242\211\262\203\226

ZT\262
\307W\203\203
\331\\\262
X\203e


B\262
\331\\\262\202\203
\211\203t\305
\311\"\262
	U\203\304
U\203\304
\211@\203\304
\211@W\203\304
\211A\262
\202\260
\211
A\262\242\211\262\203t\324U\203\376
U\203\376
U\203\376

@\203\376

@W\203\376

A\262\202\352

\211A\262\242\211\262\203o\324
U\203?\nU\203?U\203?U\203?
@\203?
@W\203?
A\262\202+
\211A\262\242\211\262\203j\325\307	&\333\"\203f\334\322\"\210\210\202?\266\202\376
\266\202\304
\266\202\361\266\202\2610\206\213\335!\207\335!\207" [decode-time 2 3 4 5 sort nndiary-flatten 0 59 < 23 1 12 1971 t 6 current-time-zone 31 found 10 nil encode-time date-leap-year-p 29 28 7 30 time-less-p throw nndiary-last-occurrence] 36 (#$ . 36695)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias nndiary-next-occurence nndiary-next-occurrence nil make-obsolete "26.1"] 4)
#@13 

(fn FILE)
(defalias 'nndiary-expired-article-p #[257 "\301\302\303\"r\211q\210\304\305\"\216\306!\203G\307C\3101&\311\304\312\"\"0\262
\2021\313\314\315\242A$\266\307\211\205B\316
!\211\262\205B\317
\307\"\262
\202N\313\314\320#\210\307*\207" [nndiary-headers generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nnheader-insert-head nil (error) mapcar #[257 "\300
@\240\210\301
@A@\3028#\207" [V0 nndiary-parse-schedule 2] 6 "\n\n(fn ELT)"] nnheader-report nndiary "X-Diary-%s header parse error: %s." nndiary-last-occurrence time-less-p "Could not read file %s"] 9 (#$ . 38537)])
#@23 

(fn FILE TIMESTAMP)
(defalias 'nndiary-renew-article-p #[514 "\301 \210\302!\203^\303 \304C\3051\306\307\310\"\"0\262
\202)\311\312\313\242A$\266\304\211\205]\314
\"\211\262\205]\315\316!C\"\211\203Q\317
@\"\203Q\211A\262
\202>\211?\206[\317
@\"\262
\207\311\312\320#\210\304\207" [nndiary-headers erase-buffer nnheader-insert-head current-time nil (error) mapcar make-closure #[257 "\300
@\240\210\301
@A@\3028#\207" [V0 nndiary-parse-schedule 2] 6 "\n\n(fn ELT)"] nnheader-report nndiary "X-Diary-%s header parse error: %s." nndiary-next-occurrence append nndiary-compute-reminders time-less-p "Could not read file %s"] 10 (#$ . 39203)])
(byte-code "\301\302\"\204\303\302\304\305\306$\210\307\310!\207" [gnus-valid-select-methods assoc "nndiary" gnus-declare-backend post-mail respool address provide nndiary] 5)