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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\305\312\324&	\210\314\325\316\317\326DD\327\322\323%\210\314\330\316\317\331DD\332\322\333%\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 funcall function #[0 "\300\207" ["%U%R%z %uD: %(%s%) (%ud)\n"] 1 #1=""] "Summary line format for nndiary groups." :type string gnus-summary-format gnus-diary-time-format #[0 "\300\207" ["%a, %b %e %y, %H:%M"] 1 #1#] "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 #[0 "\300\207" [gnus-diary-delay-format-english] 1 #1#] "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 (#$ . 1613))
(defalias 'gnus-diary-kill-entire-line #[0 "\301 \210\302\303 )\207" [kill-whole-line beginning-of-line t kill-line] 1])
#@19 

(fn PAST DELAY)
(defalias 'gnus-diary-delay-format-french #[514 "\211\204\300\207\211G\301V\203\211A\302\241\210
\203\303\202\304\305\302\211A\262\242\211\262\203\213
\306@!\307A\310=\203:\311\202nA\312=\203E\313\202nA\314=\203P\315\202nA\316=\203[\317\202nA\320=\203f\321\202nA\322=\205n\323A\312=\206y@\301U?\205~\324\205\204\325\260\262\202
\266\202P\207" ["maintenant!" 1 nil "il y a " "dans " "" int-to-string " " year "an" month "mois" week "semaine" day "jour" hour "heure" minute "minute" "s" ", "] 11 (#$ . 1831)])
#@19 

(fn PAST DELAY)
(defalias 'gnus-diary-delay-format-english #[514 "\211\204\300\207\211G\301V\203\211A\302\241\210
?\205\303\304\302\211A\262\242\211\262\203E
\305@!\306\307A!@\301V\2058\310\205>\311\260\262\202
\266\202\205M\312Q\207" ["now!" 1 nil "in " "" int-to-string " " symbol-name "s" ", " " ago"] 11 (#$ . 2404)])
#@16 

(fn HEADERS)
(defalias 'gnus-diary-header-schedule #[257 "\301\302\303\"\"\207" [nndiary-headers mapcar make-closure #[257 "\301\302\303\304@\"!\300\"A\211\205\305
A@AA@#\207" [V0 assoc intern format "X-Diary-%s" nndiary-parse-schedule-value] 6 "\n\n(fn ELT)"]] 5 (#$ . 2757)])
#@15 

(fn HEADER)
(defalias 'gnus-user-format-function-d #[257 "\211\301H\302
!\303 \304\"\305
\"\306
\307\"\211\310W\311
\203 [\262\310U\204j\312\313B\314\315B\316\317B\320\321B\322BBBB\311\211\211A\262\242\211\262\203h\323A\"\211\262\310U\204]\324@BC\"\262\325A\"\262\2029\266\"\207" [gnus-diary-delay-format-function 9 gnus-diary-header-schedule current-time nndiary-next-occurrence time-subtract time-convert integer 0 nil year 31557600 month 2678400 week 604800 day 86400 ((hour . 3600) (minute . 60)) floor append mod] 16 (#$ . 3050)])
#@15 

(fn HEADER)
(defalias 'gnus-user-format-function-D #[257 "\211\301H\302
!\303
\304 \"\305\"\207" [gnus-diary-time-format 9 gnus-diary-header-schedule nndiary-next-occurrence current-time format-time-string] 7 (#$ . 3624)])
#@14 

(fn H1 H2)
(defalias 'gnus-article-sort-by-schedule #[514 "\300 \301H\301H\302!\302!\303\"\303\"
@
@U\2034
A@
A@U\2034\304H\304HW\207\305\"\207" [current-time 9 gnus-diary-header-schedule nndiary-next-occurrence 0 time-less-p] 12 (#$ . 3857)])
#@14 

(fn H1 H2)
(defalias 'gnus-thread-sort-by-schedule #[514 "\300\211:\203\211@;\203A@@\211:\203\211@;\203A@@\"\207" [gnus-article-sort-by-schedule] 6 (#$ . 4127)])
#@150 Sort nndiary summary buffers by schedule of appointments.
Optional prefix (or REVERSE argument) means sort in reverse order.

(fn &optional REVERSE)
(defalias 'gnus-summary-sort-by-schedule #[256 "\300\301\"\207" [gnus-summary-sort schedule] 4 (#$ . 4308) ["P" (gnus-summary-mode)]])
(add-hook 'gnus-summary-menu-hook #[0 "\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])
#@14 

(fn GROUP)
(defalias 'gnus-diary-update-group-parameters #[257 "\302
\303\304#\305
\203*\306\307@@\"\262

A\262\310
\"\204\311\312DC\"\262\202\313\303#\266\302
\314\304#\204@\313
\314	C#\210\302
\315\"\204M\313
\315\316#\210\302
\317\"?\205Z\313
\317\320#\207" [nndiary-headers gnus-diary-summary-line-format gnus-group-get-parameter posting-style 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)))] 8 (#$ . 4856)])
#@14 

(fn GROUP)
(defalias 'gnus-diary-maybe-update-group-parameters #[257 "\300
!@\301=\205\f\302
!\207" [gnus-find-method-for-group nndiary gnus-diary-update-group-parameters] 3 (#$ . 5547)])
(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 #[0 "\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 (#$ . 6060)])
#@118 Add a header to the current buffer.
The buffer is assumed to contain a message, but the format is unknown.

(fn STR)
(defalias 'gnus-diary-add-header #[257 "\301=\203\n\302
!\207\214\303 \210db\210\304\305\"\203\211c\202!\211\306\261)\207" [major-mode message-mode message-add-header gnus-diary-narrow-to-headers string-match "\n$" 10] 4 (#$ . 6437)])
#@256 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.

(fn ARG)
(defalias 'gnus-diary-check-message #[257 "\212\301\302\303\"\")\207" [nndiary-headers mapcar make-closure #[257 "\301
@P\300\302\211\214\303 \210\304\305\306Q\302\307#\203V\302f\310=\204 \311c\210`\312 {\262\313\314\"\2033\315\316\"\262\3171G\320A@\3218#0\210\202K\210\307\262
\204S\211\203V\322 \210)\204c
\203c\211\203\261\211\205k\323 \210\324\325QA@<\203\210\326
\327\330\331\nA@\"B\307\332%\202\215\333
\332#\262\210\302\262\302\262
\3341\252\320A@\3218#0\210\202W\210\307\262
\202W\335\325Q!\207" [V0 "X-Diary-" nil gnus-diary-narrow-to-headers re-search-forward "^" ":" t 32 " " point-at-eol string-match "[ 	]*\\([^ 	]+\\)[ 	]*" match-string 1 (error) nndiary-parse-schedule-value 2 gnus-diary-kill-entire-line beep "(current value invalid) " ": " gnus-completing-read "*" mapcar car gnus-diary-header-value-history read-string (error) gnus-diary-add-header] 12 "\n\n(fn HEAD)"]] 5 (#$ . 6803) ["P" (gnus-summary-mode)]])
(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 #[0 "\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 #[0 "\301\302\"\207" [nndiary-version message "NNDiary version %s"] 3 (#$ . 8303) nil])
(provide 'gnus-diary)