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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\211$\210\307\310\306\311\312\313\314\315&\210\316\317\320\321\322DD\323\324\325%\210\316\326\320\321\327DD\330\324\325%\210\316\331\320\321\332DD\333\324\325%\210\316\334\320\321\335DD\336\312\313\324\337&\207" [require nndraft gnus-draft autoload parse-time-string "parse-time" nil custom-declare-group gnus-delay "Arrange for sending postings later." :version "22.1" :group gnus custom-declare-variable gnus-delay-group funcall function #[0 "\300\207" ["delayed"] 1 #1=""] "Group name for storing delayed articles." :type string gnus-delay-header #[0 "\300\207" ["X-Gnus-Delayed"] 1 #1#] "Header name for storing info about delayed articles." gnus-delay-default-delay #[0 "\300\207" ["3d"] 1 #1#] "Default length of delay." gnus-delay-default-hour #[0 "\300\207" [8] 1 #1#] "If deadline is given as date, then assume this time of day." integer] 8)
#@660 Delay this article by some time.
DELAY is a string, giving the length of the time.  Possible values are:

* <digits><units> for <units> in minutes (`m'), hours (`h'), days (`d'),
  weeks (`w'), months (`M'), or years (`Y');

* YYYY-MM-DD for a specific date.  The time of day is given by the
  variable `gnus-delay-default-hour', minute and second are zero.

* hh:mm for a specific time.  Use 24h format.  If it is later than this
  time, then the deadline is tomorrow, else today.

The value of `message-draft-headers' determines which headers are
generated when the article is delayed.  Remaining headers are
generated when the article is sent.

(fn DELAY)
(defalias 'gnus-delay-article #[257 "\304\305!\210\306\211\211\211\211\211\211\211\307\310\n\"\203B\311\312\313\"!\262\311\312\314\"!\262\311\312\315\"!\262\316\317\320\211\n\f&!\262
\202
\307\321\n\"\203\206\311\312\313\"!\262\311\312\314\"!\262\322\306\211\323#\262
\324\317@\315\233%\262
\325
\306\"\203~\326\327\"\262
\316
!\262
\202
\307\330\n\"\203
\312\313\n\"\262\312\314\n\"\262\311!\262\331\230\203\266\332\333\211\334\335%\262	\202	
\336\230\203\312\332\333\211\334\337%\262	\202	
\340\230\203\336\332\333\211\334\341%\262	\202	
\342\230\203\361\332\333\211\334$\262	\202	
\343\230\203
\333_\333_\262	\202	
\333_\262	\316\326\306\"!\262
\202
\344\345\n\"\210\346\347\350	#!\266	\351\323!\210\352\n!\210\353 \210\354\n!\210\355\320!\210\356p!\210\357!\207" [gnus-delay-default-hour gnus-delay-header gnus-delay-group message-postpone-actions run-hooks message-send-hook nil string-match "\\([0-9][0-9][0-9]?[0-9]?\\)-\\([0-9]+\\)-\\([0-9]+\\)" string-to-number match-string 1 2 3 message-make-date encode-time 0 "\\([0-9]+\\):\\([0-9]+\\)" decode-time t apply time-less-p time-add 86400 "\\([0-9]+\\)\\s-*\\([mhdwMY]\\)" "Y" * 60 24 365 "M" 30 "w" 7 "d" "h" error "Malformed delay `%s'" message-add-header format "%s: %s" set-buffer-modified-p gnus-agent-queue-setup message-disassociate-draft nndraft-request-associate-buffer save-buffer kill-buffer message-do-actions] 17 (#$ . 992) [(byte-code "\301\302\"C\207" [gnus-delay-default-delay read-string "Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): "] 3) (message-mode)]])
#@49 Send all the delayed messages that are due now.
(defalias 'gnus-delay-send-queue #[0 "\212\305\306\"\307	!\310\211\211\311\n\"\205w\312!\210\313\301\314\315#\210\316 \262\211A\262\242\211\262\205w\317\"\210q\210eb\210\320\321\322\f!\323Q\310\315#\203o\324\310w\210`\325 {\262
\326\327!!\262
\330\310\"\204!\331\332\"\210\333\"\210\331\334\"\210\202!\331\335\"\210\202!)\266\204)\207" [gnus-delay-group message-send-hook gnus-newsrc-hashtb nntp-server-buffer gnus-delay-header format "nndraft:%s" copy-sequence nil gethash gnus-activate-group add-hook #[0 "\301!\207" [gnus-delay-header message-remove-header] 2] t nndraft-articles gnus-request-head re-search-forward "^" regexp-quote ":\\s-+" " 	" point-at-eol encode-time parse-time-string time-less-p message "Sending delayed article %d" gnus-draft-send "Sending delayed article %d...done" "Delay header missing for article %d"] 8 (#$ . 3303) nil])
#@319 Initialize the gnus-delay package.
This sets up a key binding in `message-mode' to delay a message.
This tells Gnus to look for delayed messages after getting new news.

The optional arg NO-KEYMAP is ignored.
Checking delayed messages is skipped if optional arg NO-CHECK is non-nil.

(fn &optional NO-KEYMAP NO-CHECK)
(defalias 'gnus-delay-initialize #[512 "\211?\205	\300\301\302\"\207" [add-hook gnus-get-new-news-hook gnus-delay-send-queue] 5 (#$ . 4236)])
(provide 'gnus-delay)