Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-delay.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 "\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\307!\210\310\211\211\211\211\211\211\211\211 2 3 4\311\3125\"\203I \313\314\3155\"!\313\314\3165\"!\313\314\3175\"!\320\321\322\2116 \f
&!\202\311\3235\"\203\205 \313\314\3155\"!\313\314\3165\"!\324\310\211\325#\326\321@ \n\317\233%\327\310\"\203~ \330\331\"\320!\202\311\3325\"\203\314\3155\"4\314\3165\"3\3134!43\333\230\203\265 \3344\335\211\336\337%5\2023\340\230\203\311 \3344\335\211\336\341%5\2023\342\230\203\335 \3344\335\211\336\343%5\2023\344\230\203\360 \3344\335\211\336$5\2023\345\230\203\3344\335\211#5\2024\335_5\320\330\3105\"!\202\346\3475\"\210\350\351\3527#!\210. \353\325!\210\3548!\210\355 \210\3568!\210\357\322!\210\360p!\210\3619!\207" [deadline minute hour day month year 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 days unit num delay gnus-delay-default-hour gnus-delay-header gnus-delay-group message-postpone-actions] 9 (#$ . 1197) (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 \"\205y \313 !\210\314\302\315\316#\210\317 \211A\242\211\205y \320\f \"\210 q\210eb\210\321\322\323!!\324Q\311\316#\203q \325\311w\210`\326 {\327\330
!!\331\311
\"\204% \332\333\f\"\210\334\f \"\210\332\335\f\"\210\202% \332\336\f\"\210\202% .\207" [gnus-delay-group group message-send-hook articles article deadline format "nndraft:%s" copy-sequence nil gethash gnus-activate-group add-hook #[nil "\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" gnus-newsrc-hashtb nntp-server-buffer gnus-delay-header] 5 (#$ . 3289) 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 (#$ . 4241)])
(provide 'gnus-delay)
Mini Shell