ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-delay.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\307!\210\310\211\211\211\211\211\211\211\211 3 4 5\311\3126\"\203I \313\314\3156\"!\313\314\3166\"!\313\314\3176\"!\320\321\322\2117 \f
&!\202\311\3236\"\203\217 \313\314\3156\"!\313\314\3166\"!\324\325\326 \"\211\315 I\210\316\nI\210\327\324\321\330\310\"\"!\211\327 W\203\206 \331\\\320\332!!\202\311\3336\"\203\314\3156\"5\314\3166\"4\3135!54\334\230\203\273 5\335_6\2024\336\230\203\313 5\337_6\2024\340\230\203\333 5\341_6\2024\342\230\203\353 5\331_6\2024\343\230\203\373 5\344_6\2025\345_6\320\332\327 6\\!!\202\346\3476\"\210\350\351\3528#!\210. \353\354!\210\3559!\210\356 \210\3579!\210\360\322!\210\361p!\210\362:!\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]+\\)" apply vector decode-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 (#$ . 1201) (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\207 \313 !\210\314\302\315\316#\210\317 \211A\242\211\205\207 \320\f \"\210\"q\210eb\210\321\322\323#!\324Q\311\316#\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] t nndraft-articles gnus-request-head re-search-forward "^" regexp-quote ":\\s-+" " " 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 (#$ . 3301) 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 (#$ . 4297)])
(provide 'gnus-delay)
Kontol Shell Bypass