;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-delay.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\303\304\305\306\211$\210\307\310\306\311\312\313\314\315&\210\316\317\320\321\322\323\314\310&\210\316\324\325\326\322\323\314\310&\210\316\327\330\331\322\323\314\310&\210\316\332\333\334\312\313\322\335\314\310&	\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 "delayed" "Group name for storing delayed articles." :type string gnus-delay-header "X-Gnus-Delayed" "Header name for storing info about delayed articles." gnus-delay-default-delay "3d" "*Default length of delay." gnus-delay-default-hour 8 "*If deadline is given as date, then assume this time of day." integer] 10)
#@483 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.
(defalias 'gnus-delay-article #[(delay) "\306\211\211\211\211\211\211\211\211234\307\3105\"\203E\311\312\3135\"!\311\312\3145\"!\311\312\3155\"!\316\317\320\2116\f
&!\202
\307\3215\"\203\215\311\312\3135\"!\311\312\3145\"!\322\323\324\325 !\"\211\313	I\210\314\nI\210\326\322\317\327\306\"\"!\211\326 W\203\204\330\\\316\331!!\202
\307\3325\"\203\f
\312\3135\"4\312\3145\"3\3114!43\333\230\203\2714\334_5\202\3773\335\230\203\3114\336_5\202\3773\337\230\203\3314\340_5\202\3773\341\230\203\3514\330_5\202\3773\342\230\203\3714\343_5\202\3774\344_5\316\331\326 5\\!!\202
\345\3465\"\210\347\350\3517#!\210.	\352\353!\210\3548!\210\355 \210\3568!\210\357\320!\210\360p!\210\3619!\207" [deadline minute hour day month year 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]+\\)" apply vector decode-time current-time gnus-float-time append 86400 seconds-to-time "\\([0-9]+\\)\\s-*\\([mhdwMY]\\)" "Y" 31536000 "M" 2592000 "w" 604800 "d" "h" 3600 60 error "Malformed delay `%s'" message-add-header format "%s: %s" set-buffer-modified-p t gnus-agent-queue-setup message-disassociate-draft nndraft-request-associate-buffer save-buffer kill-buffer message-do-actions days unit num delay gnus-delay-default-hour gnus-delay-header gnus-delay-group message-postpone-actions] 10 (#$ . 1349) (list (read-string "Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): " gnus-delay-default-delay))])
#@49 Send all the delayed messages that are due now.
(defalias 'gnus-delay-send-queue #[nil "\212\306\307\"\310\n!\311\211\311\312	!\"J\205\206\313	!\210\314\302\315\"\210\316 \211A@\211\205\206\317\f	\"\210\"q\210eb\210\320\321\322#!\323Q\311\324#\203~\325\311w\210`\326 {\327\330\331
!\"\332
!\211@\333Y\203%
A@\333Y\203%\334\335\f\"\210\336\f	\"\210\334\337\f\"\210\202%\334\340\f\"\210\202%.\207" [gnus-delay-group group message-send-hook articles article deadline format "nndraft:%s" copy-sequence nil intern-soft gnus-activate-group add-hook #[nil "\301!\207" [gnus-delay-header message-remove-header] 2] nndraft-articles gnus-request-head re-search-forward "^" regexp-quote ":\\s-+" t " 	" point-at-eol apply encode-time parse-time-string time-since 0 message "Sending delayed article %d" gnus-draft-send "Sending delayed article %d...done" "Delay header missing for article %d" gnus-newsrc-hashtb nntp-server-buffer gnus-delay-header] 5 (#$ . 3442) nil])
#@284 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.
(defalias 'gnus-delay-initialize #[(&optional no-keymap no-check) "?\205	\301\302\303\"\207" [no-check add-hook gnus-get-new-news-hook gnus-delay-send-queue] 3 (#$ . 4432)])
(provide 'gnus-delay)