;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:18 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nndiary.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\312\313!\203\"\314\315\316\"\210\202'\314\315\317\"\210\320\321\322\323\324\325\326\327&\210\330\331\332\333\326\321\326\334\335\336&	\210\330\337\340\341\326\321\326\342\335\343&	\210\330\344\345\346\326\321\335\347&\210\330\350\322\351\335\352\326\321&\210\353\354\355\322#\210\356\322\211\203\216	@\354N\203\207\355N\204\207\357\355\354N#\210	A\211\204p*\360\354\355\361#\210\330\355\322\362\326\321\335\363&\210\353\364\365\322#\210\356\322\211\203\314	@\364N\203\305\365N\204\305\357\365\364N#\210	A\211\204\256*\360\364\365\361#\210\330\365\322\366\326\321\335\363&\210\353\367\370\322#\210\356\322\211\203\n
	@\367N\203
\370N\204
\357\370\367N#\210	A\211\204\354*\360\367\370\361#\210\330\370\322\371\326\321\335\363&\210\330\372\373\374\326\321\335\352&\210\321\n\236\203:
\321\n\236A\375\376\322\"\240\210\202E
\321\375\376\322\"\322\211F\nB\321\236\204Q
\321\377DB\322\207" [prop --dolist-tail-- nnoo-definition-alist nnoo-state-alist 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 custom-declare-variable nndiary-mail-sources `((file :path ,(expand-file-name "~/.nndiary"))) "*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 '(("diary" "")) "*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 . day)) "*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 "*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" "*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 "*Hook run after `nndiary-request-update-info-group' 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 "*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 t "*If t, check directories twice to avoid NFS failures." mapcar list "*internal-non-initialized-backend*"] 11)
#@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/") (#$ . 5528))
(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) (#$ . 5767))
(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) (#$ . 6010))
(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 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 (#$ . 6281))
(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 (#$ . 6684))
(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 (#$ . -7293))
(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 (#$ . 7527))
(nnoo-define 'nndiary-inhibit-expiry nil)
#@33 Current Diary back end version.
(defconst nndiary-version "0.2-b14" (#$ . 7723))
#@33 Current Diary back end version.
(defalias 'nndiary-version #[nil "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 7810) 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 #[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) ((error (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\326r\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\213db\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\203MA\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 info) "\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-functions 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\211r	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-functions nil arg (mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nndiary-headers) ((error (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!\210r	q\210\307!\210\310 \311\n!\312P\313\313\314\315\217\205n\316
\n\"r\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-functions 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 (#$ . 24279)])
(defalias 'nndiary-find-group-number #[(id) "r\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!\205Kr
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 (#$ . 26619)])
#@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\202GA)\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 (#$ . 27467)])
#@36 Add a nov line for the GROUP base.
(defalias 'nndiary-add-nov #[(group article headers) "r\303!q\210db\210	\304\nI\210\305	!)\207" [group headers article nndiary-open-nov 0 nnheader-insert-nov] 3 (#$ . 28094)])
(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 !\204eb\305\306\307\310#\203`S\202d}\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 (#$ . 28460)])
(defalias 'nndiary-open-nov #[(group) "\306	\"A\2065\307\310\311\"!r\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 (#$ . 29544) (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 nndiary-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 (#$ . 30011) "DRegenerate NOV in: "])
(defalias 'nndiary-generate-active-info #[(dir) "\306\307!	\"\310\n\"\211A@@\206\311\312\f\"\n\211\f@@)\206(
T
\305!\211\f@@)\2067\311]BDB\211+\207" [dir nndiary-directory group nndiary-group-alist entry last nnheader-file-to-group directory-file-name assoc 0 delq nndiary-files x] 6])
(defalias 'nndiary-generate-nov-file #[(dir files) "\306!\211	P\307\310!\311\211\311rq\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 !\204eb\210\325\f\211@@)\"rq\210db\210\326!\210)~\210A\211\2041rq\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) "r\306!q\210\307	!\203O`\310y\210`|\210o\203O\311\n\"\211A@)\312\211\203Nm\2038
\211
AT\240\210)\202N\312\313\314\217\211\203N\f\247\203N
\211\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 #1=#:v #2=#:v] 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\216X\203oB\202o\211A@\211\203\310ZT\211\312W\203\257\320\\X\203\216B\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) ((error (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) ((error (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 --dolist-tail-- 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] 6)