%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/nndiary.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\314\315\316\317\320\321&\210\322\323\324\325\320\313\320\326\327\330&	\210\322\331\332\333\320\313\320\334\327\335&	\210\322\336\337\340\320\313\327\341&\210\322\342\314\343\327\344\320\313&\210\345\346\347\314#\210\350\314\211\203{	@\346N\203t\347N\204t\351\347\346N#\210	A\211\204]*\352\346\347\353#\210\322\347\314\354\320\313\327\355&\210\345\356\357\314#\210\350\314\211\203\271	@\356N\203\262\357N\204\262\351\357\356N#\210	A\211\204\233*\352\356\357\353#\210\322\357\314\360\320\313\327\355&\210\345\361\362\314#\210\350\314\211\203\367	@\361N\203\360\362N\204\360\351\362\361N#\210	A\211\204\331*\352\361\362\353#\210\322\362\314\363\320\313\327\355&\210\322\364\365\366\320\313\327\344&\210\313\n\236\203'\313\n\236A\367\370\314\"\240\210\2022\313\367\370\314\"\314\211F\nB\313\236\204>\313\371DB\314\207" [prop --dolist-tail-- 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 `((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' 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/") (#$ . 5142))
(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) (#$ . 5381))
(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) (#$ . 5624))
(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 (#$ . 5895))
(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 (#$ . 6299))
(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 (#$ . 6908))
(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 (#$ . 7140))
(nnoo-define 'nndiary-inhibit-expiry nil)
#@33 Current Diary back end version.
(defconst nndiary-version "0.2-b14" (#$ . 7336))
#@33 Current Diary back end version.
(defalias 'nndiary-version #[nil "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 7423) 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 "\303\3041\305\306	\"0\202\307\310\311\nA$\210)\303)\207" [head nndiary-headers arg nil (error) mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nnheader-report nndiary "X-Diary-%s header parse error: %s."] 5])
(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\327r\nq\210\307 \210\310\fG\311 !\"\310\211#$%\2050&\247?\2060
&X%\f@;\203<\312\202\325\313\f'\"\203H\314\202\325\f\203\277\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\246\311U\203H\331\332\333\334 \335_
\"#\210\202H&\247\203\321
&V\203\321\331\332\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" 20 nnheader-message 6 "nndiary: Receiving headers... %d%%" floor 100.0 "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] 7])
(nnoo-register-function 'nndiary-retrieve-headers)
(defalias 'nndiary-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204\3061\307\n\310\"0\202\210\202\210\305\n!\204,\311 \210\312\304\313\n#\207\314\315\n!!\204=\311 \210\312\304\316\n#\207\312\304\317\n$\210\310\207" [server defs nndiary-directory nnoo-change-server nndiary 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"] 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\227\314!\211A!\242\211!\315\"\203\220\"\204?\316
!\203\220#\317=\204g\320\321!$r$q\210\322\216\323	p$\210\310\324#\"\210,\306	\"\210\325\326\327$\210\3301z%
!0\202\200\210\fB\211\210\331 \" \332\"\210\202\fB\202\333&\"A@\211'\203\271' \203\263\334\335 \"\206\267'AT\240\210\336&(\"\210)\337 \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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 active-articles articles force nnmail-expiry-target #1# nnmail-delete-file-function 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\"\203h\314\f\n#\203h\310\211\211r	q\210\315!\210\316!\317p!\210,\203h\311\n\"\210\3201O\321\f!!0\202S\210\202T\210\322\n\f\"\210\203h\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 (file-error) nndiary-article-to-file nndiary-nov-delete-article nndiary-save-nov nnmail-save-active nndiary-current-group nndiary-current-directory nntp-server-buffer accept-form nnmail-delete-file-function 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\3131\314\315\"0\202%\316\317\320\n\fA$\210)\312)\205\241\312\203:\321\322\323!\322\324!#\210;\203e\325\317!\203\237\326\327!BC!@\211\203\237\330 !\"\210\"\203\237\331 \210\202\237\325\317!\203\237\332\327!\211\204\333\334!\203\335\211\202\205\326
!@\211\203\237\"\203\237\330 !\"\210\203\234\336 \210\331 \210
)\207" [group server head nndiary-headers arg result nndiary-possibly-change-directory nnmail-check-syntax run-hooks nndiary-request-accept-article-functions nil (error) mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] 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 nnmail-cache-accepted-message-ids nndiary-group-alist 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\3141;\315ed\316\n!\206+\317\311\n! \"\313\320\321!?\2054\322%\210\3230\202@\210\313\202\223\205\223\324
\n\"r\325!q\210eb\210\326\f!\204a\327\330\fP\313\323#\203n\331 \210`\332y\210`|\210\202\207\326\333!\203\207\334\335\224\335\225{!\nW\203\207\332y\335U\204n\331 \210\336!\210\337 \210)\323,\207" [group buffer article headers art chars 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 nndiary-current-directory] 7])
(nnoo-register-function 'nndiary-request-replace-article)
(defalias 'nndiary-request-delete-group #[(group &optional force server) "\306	\"\210\n\203P\307\310\f\311\312
!\313R#\314\203?\211A\242\315!\203\316\317\320$\210!\210\202*\3211K\322!0\202O\210\202P\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..." (error) delete-directory 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\"\3101\311
\312\"\210\3120\202\"\210\313\202\230\205\230\314\f!\203H\315\f@AP
@AP\"\210\211A\210\202*)\fP\316!\203_\315
P\"\210)\317\f!G\320X\203y\3211t\322\f!0\202x\210\202y\210\323\"\211\203\211\n\240\210\313\211\324\"\210)\312*\207" [group server new-name nndiary-directory old-dir new-dir 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 files 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\216r\fq\210\317!\210\320\"\210)r\fq\210\321\322\211
\322\323%\210,\324)\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" generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\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\202{\315\316	8\317\"\320\211\211\211\212\321\322!\211A\242\211\203Y \323!P\324
!\203/\325
\n\"\203/\fB\202/\326\327!\210\330!\210)\331\f\332\"\211\203z	AA\211!\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 #1=#:c] 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 (#$ . 23643)])
(defalias 'nndiary-find-group-number #[(id) "r\305\306!q\210\307\310\f\"\211\203	B\202C	\204:\n\203:\n@@\230\2040\310\n@@\f\"	\204\nA\202	\205C\n@@	B+\207" [nndiary-group-alist number alist nndiary-current-group id get-buffer-create " *nndiary id*" nil nndiary-find-id] 3])
(defalias 'nndiary-find-id #[(group id) "\306 \210\307\310	\n\"\"\311\211\312
!\205U\313
!\210\204T\314\311\315#\203T\316\317\311\315\320$\2038\316\317\321 \315#\203>\322y\210\202\323 \210\315\3241N\325p!0\202P\210\311\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 (error) read 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\203l\321\f@@!\210\322\f@@
\"\323\f@A!P\203Q\324#\210\202d\325ed\306\326\327!?\205_\330%\210)\fA\211\204.*\331	!\n\211\203\210\332\f@@\f@A#\210\fA\211\204w)\n*\207" [headers chars group-art first ga nndiary-directory 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 file nnmail-crosspost-link-function] 8 (#$ . 25944)])
#@43 Compute the next article number in GROUP.
(defalias 'nndiary-active-number #[(group) "\306	\"A@\211\2048\307!\210\310!\210\204\311\312\f!\313\"\203.@@\314!@@B\2021\315\316B\nD	B\n\211AT\241\210\317\320\321\nA!\322
\"\"!\203V\n\211AT\241\210\202>\nA)\207" [group nndiary-group-alist active 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] 7 (#$ . 26756)])
#@36 Add a nov line for the GROUP base.
(defalias 'nndiary-add-nov #[(group article headers) "r\304!q\210db\210	\211\305I\210)\306	!)\207" [group headers #1=#:v article nndiary-open-nov 0 nnheader-insert-nov] 4 (#$ . 27364)])
(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\305 \306U\204eb\307\310\311\312#\203`S\202d}\210\313 \211\211\314\nI\210)\211\306\fI\210)+\207" [headers #1=#:v chars #2=#:v number buffer-size 0 search-forward "\n\n" nil t nnheader-parse-naked-head 6] 6 (#$ . 27742)])
(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\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])
#@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 (#$ . 28834) (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~\307!	B\310\311\312\311$\312\n\211A\242\211\203=\313\314\315!\"\204\316!\203\317	\"\210\202*\320\321!\322\"\211\204g\323\324!\f\"\325
\"A@\211\205c\211AT\240*\202}!\210\326\"\210?\205}\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 info nndiary-generate-active-function no-active nndiary-active-file] 6 (#$ . 29301) "DRegenerate NOV in: "])
(defalias 'nndiary-generate-active-info #[(dir) "\306\307!	\"\310\n\"\211A@@\206\311\312\f\"\n@@\206$
T
\305!@@\206/\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] 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\202\315@AP\211!\204y\313 \210\316
!\210eb\317\320\311\321#\210d`Z\322`S]}\210\323 \324U\204web\210\325\f@@\"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 buffer-size 0 nndiary-parse-head nnheader-insert-nov nnmail-write-region nomesg kill-buffer headers nntp-server-buffer nnmail-delete-file-function files] 7])
(defalias 'nndiary-nov-delete-article #[(group article) "r\306!q\210\307	!\203T`\310y\210`|\210o\203T\311\n\"A@\312\211\203Sm\2034\f\211\fAT\240\210)\202S\3131?\314p!0\202A\210\312\211\203S\247\203S\f\211\240\210)*)\315\207" [group article nndiary-group-alist num active #1=#:v nndiary-open-nov nnheader-find-nov-line 1 assoc nil (error) read t #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]+[ 	]*$" error "Not an integer value" string-to-number "Value out of range"] 4])
(defalias 'nndiary-parse-schedule-value #[(str min-or-values max) "\303\304\"?\2059	<\2032\303\305\"\205\306\307\"\211\203-\310\n	\"\211\203-\nA@C\2020\311\312!)\207\313\314\315\316\"\"\207" [str min-or-values val string-match "[ 	]*\\*[ 	]*" "[ 	]*\\([^ 	]+\\)[ 	]*" match-string 1 assoc error "Invalid syntax" mapcar #[(val) "\306\307\"\211G\310U\203\311	@\n#\202K	G\312U\203H\311	@\n#\311	A@\n#\211\fW\2037
\fB\202D
\fU\203A
\202D\f
B*\202K\313\314!)\207" [val res min-or-values max end beg split-string "-" 1 nndiary-string-to-number 2 error "Invalid syntax"] 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 error "Header missing" nndiary-parse-schedule-value match-string 1] 4])
(defalias 'nndiary-max #[(spec) "\2053\304\305\211A\242\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\242\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\242\211\203I@\203/@\nTU\203/\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 \3108\311U\203\310\202#\3108S\202#\3108Z\312\211 !\313\233\314\233\241\210	\211A\242\211 \203\350 A\315=\203V\316\317\320\311A# @\321_\"\202\340 A\322=\203p\316\317\320\311\211AA$ @\323_\"\202\340 A\324=\203\213\316\317\320\311\211\211\307\233% @\325_\"\202\340 A\326=\203\250\316\317\320\311\211\211
\327\233& @\330_\"\202\340 A\331=\203\305\316\317\320\311\211\211\332\327\233& @\333_\"\202\340 A\334=\205\340\316\317\320\311\211\211\332\211\313\233& @\335_\"!B!\2023\336!\337\"-\207" [nndiary-reminders reminders date date-elts nndiary-week-starts-on-monday 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 reminder res] 11])
(defalias 'nndiary-last-occurrence #[(sched) "\306@!\306A@!\306\3078!\3108\203\3108@\206\311 \n\205\204\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#\3272z$\211A$\242\211\205y%\330'((\211A(\242\211'\203u\310\331\332\326\211\211\320'\n	&!8'\314U\203\304\333\n!\203\300\334\202\352\335\202\352'\336X\203\334'\314\246\326U\203\330\337\202\352\325\202\352'\314\246\326U\203\351\325\202\352\337&
\330\211)*+,-.,\211A,\242\211*\203*-X\203\373*)B)\202\373+\211A+\242\211*\203T*.ZT\211*\326W\203;\336*\\**-X\203*)B)\336*\\\211*\202=)\203p\315)\322\"\210\340\327\332\326\f)@'\n	&\"\210.\202\223*\202\2000\206\203\341\342\343\"\210\330,,\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 nil decode-time encode-time date-leap-year-p 29 28 7 30 throw nnheader-report nndiary "Undecidable schedule" year-list month-list dom-list month months days day dows doms max first] 11])
(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)
(defalias 'nndiary-next-occurrence #[(sched now) "\306!\211A@\307	8\310	8\311	8\312	8$\313\314%@\315\316#\317\"&\313\314%A@\315\320#\317\"'\307%8(\313\314\310%8\321\322#\317\")\311%8\203Y\313\314\311%8\323\"\317\"\202Z\324*\312%8+$S,\325%8\203v\325%8@\206x\326 -+\204\212\314(\321\327#(\202\252(\204\232\314+\315\325#+\202\252\314(\321\327#(\314+\315\325#+*\324=\204\312*@\203\312*@$W\203\312*\211A*\210\202\261*\203\361\3302\347*\324=\203\355,T\211,\205\346,\331$\\X\202\367*\211A*\242\211,\205\346)\332./,$U\203!/@\203!/@
W\203!/\211A/\210\202	/\211A/\242\211.\203\342\325\306\333\315\211\211\321.,-&!8.\307U\203U\334,!\203Q\335\202{\336\202{.\337X\203m.\307\246\315U\203i\340\202{\327\202{.\307\246\315U\203z\327\202{\340(+\332\2110123453\211A3\242\2111\203\25414X\203\21510B0\202\2152\211A2\242\2111\203\34615ZT\2111\315W\203\315\3371\\114X\203\25410B0\3371\\\2111\202\3170\203\335\3130\317\"0,$U\203.
U\2030@\2030@\fW\2030\211A0\210\2020\211A0\242\2111\203\335'\33267,$U\203[.
U\203[1\fU\203[7@\203[7@W\203[7\211A7\210\202C7\211A7\242\2116\203\331&\33289,$U\203\244.
U\203\2441\fU\203\2446U\203\2449@\203\2449@\nW\203\2449\211A9\210\202\2149\211A9\242\2118\203\325\333\315861.,-&:\341:\"\203\321\342\330:\"\210)\202\244*\202[*\202.\202!*\202\3230\206\365\343%!\202\365\343%!.\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 10 nil encode-time date-leap-year-p 29 28 7 30 time-less-p throw nndiary-last-occurrence this-year sched minute-list hour-list dom-list month-list years dow-list year time-zone month months days day dows doms max first hour hours minute minutes time] 11])
(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)
(defalias 'nndiary-expired-article-p #[(file) "\306\307!rq\210\310\216\311	!\203?\312\3131\314\315\"0\202)\316\317\320\n\fA$\210)\312)\211\205;\321
!\211\205;\322
\312\")\202F\316\317\323	#\210\312+\207" [#1=#:temp-buffer file head nndiary-headers arg sched generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] nnheader-insert-head nil (error) mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] nnheader-report nndiary "X-Diary-%s header parse error: %s." nndiary-last-occurrence time-less-p "Could not read file %s"] 6])
(defalias 'nndiary-renew-article-p #[(file timestamp) "\306 \210\307!\203e\310 \311\3121\313\314\n\"0\202$\315\316\317	A$\210)\311)\f\205c\320\f
\"\211\205c\321\322\f!\fC\"\203V\323@\"\203V\211A\210\202=?\206b\323@
\")*\207\315\316\324#\210\311\207" [file head nndiary-headers arg sched now erase-buffer nnheader-insert-head current-time nil (error) mapcar #[(elt) "@\302@A@\3038#\207" [elt head nndiary-parse-schedule 2] 5] 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" reminders timestamp] 6])
(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)
Zerion Mini Shell 1.0