;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:45 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-diary.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 "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320\321\312\305\312\322&	\210\314\323\324\325\320\321\312\305&\210\314\326\327\330\320\331\312\305&\207" [require nndiary message gnus-art custom-declare-group gnus-diary nil "Utilities on top of the nndiary back end for Gnus." :version "22.1" :group gnus custom-declare-variable gnus-diary-summary-line-format "%U%R%z %uD: %(%s%) (%ud)\n" "*Summary line format for nndiary groups." :type string gnus-summary-format gnus-diary-time-format "%a, %b %e %y, %H:%M" "*Time format to display appointments in nndiary summary buffers.\nPlease refer to `format-time-string' for information on possible values." gnus-diary-delay-format-function 'gnus-diary-delay-format-english "*Function called to format a diary delay string.\nIt is passed two arguments.  The first one is non-nil if the delay is in\nthe past.  The second one is of the form ((NUM . UNIT) ...) where NUM is\nan integer and UNIT is one of 'year 'month 'week 'day 'hour or 'minute.\nIt should return strings like \"In 2 months, 3 weeks\", \"3 hours,\n1 minute ago\" and so on.\n\nThere are currently two built-in format functions:\n`gnus-diary-delay-format-english' (the default)\n`gnus-diary-delay-format-french'" (choice (const :tag "english" gnus-diary-delay-format-english) (const :tag "french" gnus-diary-delay-format-french) (symbol :tag "other"))] 10)
#@33 Current Diary back end version.
(defconst gnus-diary-version nndiary-version (#$ . 1982))
(byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp kill-entire-line defalias gnus-diary-kill-entire-line #[nil "\301 \210\302\303 )\207" [kill-whole-line beginning-of-line t kill-line] 1]] 3)
(defalias 'gnus-diary-delay-format-french #[(past delay) "\204\304\207G\305V\203A\306\241\210	\203\307\202\310\311\306\211A@\211\203\211\312\n@!\313\nA\314=\203:\315\202n\nA\316=\203E\317\202n\nA\320=\203P\321\202n\nA\322=\203[\323\202n\nA\324=\203f\325\202n\nA\326=\205n\327\nA\316=\206y\n@\305U?\205~\330\205\203\331\260\202*P\207" [delay past del str "maintenant!" 1 nil "il y a " "dans " "" int-to-string " " year "an" month "mois" week "semaine" day "jour" hour "heure" minute "minute" "s" ", "] 7])
(defalias 'gnus-diary-delay-format-english #[(past delay) "\204\304\207G\305V\203A\306\241\210	?\205\307\310\306\211A@\211\203C\311\n@!\312\313\nA!\n@\305V\2058\314\205=\315\260\202*	\205J\316Q\207" [delay past del str "now!" 1 nil "in " "" int-to-string " " symbol-name "s" ", " " ago"] 7])
(defalias 'gnus-diary-header-schedule #[(headers) "\301\302\"\207" [nndiary-headers mapcar #[(elt) "\304\305\306\307@\"!	\"A\211\205 \310\n\211A@)\211AA)@#)\207" [elt headers head x assoc intern format "X-Diary-%s" nndiary-parse-schedule-value] 6]] 3])
(defalias 'gnus-user-format-function-d #[(header) "\306H\307	!\310\n\311 \"\311 \312\f\"\211\204\313\202\243\314
@!\315_
\211A@)\\\211\316W\317 \203@[\320!\204\233\321\322B\323\324B\325\326B\327\330B\331BBBB\317\211!\"##\211A#@\211\"\203\232\320\332\"A\245!\211!!\204\214\333 \334!!\"@BC\" !\"A_Z\202`+$ \"+-\207" [header extras sched occur now real-time 9 gnus-diary-header-schedule nndiary-next-occurence current-time subtract-time "?????" float 65536 0 nil zerop year 31557600.0 month 2678400 week 604800 day 86400 ((hour . 3600) (minute . 60)) ffloor append floor x sec past delay num unit units gnus-diary-delay-format-function] 6])
(defalias 'gnus-user-format-function-D #[(header) "\305H\306	!\307\n\310 \"\311\f\"+\207" [header extras sched occur gnus-diary-time-format 9 gnus-diary-header-schedule nndiary-next-occurence current-time format-time-string] 3])
(defalias 'gnus-article-sort-by-schedule #[(h1 h2) "\306 	\307H\307H\310\n!\310\f!\f\311
\"
\311\f\"
@@U\203I
\211A@)\211A@)U\203I	\312H\312HW\202O\313
\".\207" [now h1 e1 h2 e2 s1 current-time 9 gnus-diary-header-schedule nndiary-next-occurence 0 time-less-p s2 o1 o2 x] 4])
(defalias 'gnus-thread-sort-by-schedule #[(h1 h2) "\300\301\302\303\304#\301\302\305\304#\"\207" [gnus-article-sort-by-schedule byte-code "\211:\203\211@;\203A@@\207" [h1] 2 [h2]] 6])
#@126 Sort nndiary summary buffers by schedule of appointments.
Optional prefix (or REVERSE argument) means sort in reverse order.
(defalias 'gnus-summary-sort-by-schedule #[(&optional reverse) "\301\302\"\207" [reverse gnus-summary-sort schedule] 3 (#$ . 4851) "P"])
(add-hook 'gnus-summary-menu-hook #[nil "\301\302\303\304$\207" [gnus-summary-misc-menu easy-menu-add-item ("Sort") ["Sort by schedule" gnus-summary-sort-by-schedule (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nndiary)] "Sort by number"] 5])
(defalias 'gnus-diary-update-group-parameters #[(group) "\306\304\307#	\310\203-\311\312\211@@)\"A\313\n\f\"\204\n\314\f\n\315DC\"\202\n\316\304\f#\210+\306\317\307#\204D\316\317C#\210\306\320\"\204Q\316\320\321#\210\306\322\"?\205^\316\322\323#\207" [group nndiary-headers header headers posting-style x gnus-group-get-parameter t nil format "X-Diary-%s" assoc append "*" gnus-group-set-parameter gnus-summary-line-format gnus-article-sort-functions ((append gnus-article-sort-functions (list 'gnus-article-sort-by-schedule))) gnus-thread-sort-functions ((append gnus-thread-sort-functions (list 'gnus-thread-sort-by-schedule))) gnus-diary-summary-line-format] 5])
(defalias 'gnus-diary-maybe-update-group-parameters #[(group) "\301!@\302=\205\f\303!\207" [group gnus-find-method-for-group nndiary gnus-diary-update-group-parameters] 2])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\207" [add-hook nndiary-request-create-group-functions gnus-diary-update-group-parameters nndiary-request-update-info-functions gnus-subscribe-newsgroup-functions gnus-diary-maybe-update-group-parameters] 3)
(defvar gnus-diary-header-value-history nil)
#@164 Narrow the current buffer to the header part.
Point is left at the beginning of the region.
The buffer is assumed to contain a message, but the format is unknown.
(defalias 'gnus-diary-narrow-to-headers #[nil "\301=\203	\302 \207eb\210\303\304\305\306#\205e`S}\210eb\207" [major-mode message-mode message-narrow-to-headers search-forward "\n\n" nil t] 4 (#$ . 6563)])
#@108 Add a header to the current buffer.
The buffer is assumed to contain a message, but the format is unknown.
(defalias 'gnus-diary-add-header #[(str) "\302=\203\n\303	!\207\214\304 \210db\210\305\306	\"\203	c\202!	\307\261)\207" [major-mode str message-mode message-add-header gnus-diary-narrow-to-headers string-match "\n$" 10] 3 (#$ . 6942)])
#@246 Ensure that the current message is a valid for NNDiary.
This function checks that all NNDiary required headers are present and
valid, and prompts for values / correction otherwise.

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