ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nndraft.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\312\236\203/ \312\236A\313\314\315\"\240\210\202: \312\313\314\315\"\316\211FB\312 \236\204F \312\317D B\316\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-start gnus-group nnmh nnoo mm-util nndraft mapcar list (nnmh) nil "*internal-non-initialized-backend*"] 4)
#@109 Where nndraft will store its files.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nndraft-directory (nnheader-concat gnus-directory "drafts/") (#$ . 810))
(nnoo-define 'nndraft-directory '(nnmh-directory))
#@198 *Headers to be generated when saving a draft message.
The headers in this variable and the ones in `message-required-headers'
are generated if and only if they are also in `message-draft-headers'.
(defvar nndraft-required-headers '(Date) (#$ . -1057))
(defvar nndraft-current-group "")
(nnoo-define 'nndraft-current-group '(nnmh-current-group))
(defvar nndraft-get-new-mail nil)
(nnoo-define 'nndraft-get-new-mail '(nnmh-get-new-mail))
(defvar nndraft-current-directory nil)
(nnoo-define 'nndraft-current-directory '(nnmh-current-directory))
(defconst nndraft-version "nndraft 1.0")
(defvar nndraft-status-string "")
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nndraft-status-string (nnmh-status-string) nnoo-define-basics-1 nndraft] 3)
(defalias 'nndraft-open-server #[(server &optional defs) "\303\304 #\210\305\n!\204 \306 \210\307\304\310\n#\207\311\312\n!!\204& \306 \210\307\304\313\n#\207\307\304\314\n$\210\315\207" [server defs nndraft-directory nnoo-change-server nndraft file-exists-p nndraft-close-server nnheader-report "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 5])
(nnoo-register-function 'nndraft-open-server)
(defalias 'nndraft-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210r q\210\307 \210\310\211\211
@;\203 \311\202s
\203o ``}\210\312
\211A\242\211p$\203 eb\210\313\314\310\315#\203D \316y\210\202G db\210\317`d\"d`Z`d|\210eb\210\320\321\f\"c\210\320\322 \n#c\210~\210db\210\323c\210\202 \324 \210\311,\207" [group nntp-server-buffer chars lines article articles nndraft-possibly-change-group erase-buffer nil headers nndraft-request-article search-forward "\n\n" t -1 count-lines format "221 %d Article retrieved.\n" "Lines: %d\nChars: %d\n" ".\n" nnheader-fold-continuation-lines server] 5])
(nnoo-register-function 'nndraft-retrieve-headers)
(defalias 'nndraft-request-article #[(id &optional group server buffer) "\306!\210 \247\205m \307 !\310\n!\311\n \"\203 \n\202
\206$ \312\f!\205l \311\n \"\203C \313\235\203> \202E \202E \314\f!)\205l rq\210eb\210\315\316\317!\320Q\321\322#\203j \323\324\322\211#\210)\322,\207" [group id file auto newest buffer nndraft-possibly-change-group nndraft-article-filename nndraft-auto-save-file-name file-newer-than-file-p file-exists-p ("drafts" "delayed") nnmail-find-file re-search-forward "^" regexp-quote "$" nil t replace-match "" nntp-server-buffer message-draft-coding-system mm-text-coding-system mm-auto-save-coding-system nnmail-file-coding-system mail-header-separator] 4])
(nnoo-register-function 'nndraft-request-article)
#@64 Request a new buffer that is restored to the state of ARTICLE.
(defalias 'nndraft-request-restore-buffer #[(article &optional group server) "\303!\210\304 \np$\205 \305\306!\210\305\307!\210\310\207" [group article server nndraft-possibly-change-group nndraft-request-article message-remove-header "xref" "lines" t] 5 (#$ . 3727)])
(nnoo-register-function 'nndraft-request-restore-buffer)
(defalias 'nndraft-request-update-info #[(group info &optional server) "\303!\210 AA\304\305\306\"\307 \310#\240\210\311 8\211\203) \311 \233\312\n\236\205' \312\n\236C\240\210)\310\207" [group info marks nndraft-possibly-change-group gnus-update-read-articles gnus-group-prefixed-name (nndraft "") nndraft-articles t 3 unsend] 6])
(nnoo-register-function 'nndraft-request-update-info)
(defalias 'nndraft-generate-headers #[nil "\212\302\303 \304#!)\207" [nndraft-required-headers message-draft-headers message-generate-headers message-headers-to-generate nil] 5])
#@53 Update groups' unread articles in the group buffer.
(defalias 'nndraft-update-unread-articles #[nil "\306 \210rq\210\307\310\311 \"\312 !\313\314 \315\313\314\"\210\212 \313 \211 \205R @\2035 \316
\"\204H \317
!\210\320 \321U\203H \322 \323y\210`|\210A\211\204$ \313.\207" [gnus-group-buffer groups gnus-group-marked gnus-get-new-news-hook inhibit-read-only group nndraft-request-list mapcar #[(elem) "\301@\302\303D\"\207" [elem gnus-group-prefixed-name nndraft ""] 4] nnmail-get-active copy-sequence nil t gnus-group-get-new-news-this-group string-match gnus-group-goto-group gnus-group-group-unread 0 point-at-bol 1 --dolist-tail-- gnus-permanently-visible-groups] 4 (#$ . 4694)])
#@68 Associate the current buffer with some article in the draft group.
(defalias 'nndraft-request-associate-buffer #[(group) "\306\307!\210\310!\210\311!\210\312p\312\211 \313\314! r
q\210\315\216\316 !\210\317\320\321!\322\323$\324\n!+\325 !%\326 &\327 \210\330\331!\203F \331\202G \332 '\333'!\210\334'\335\312\322$\210)\333\336!\210\334\336\337\312\322$\210\340\341\342\343\344$\210\n,\207" [group file article buf gnus-verbose-backends #1=#:temp-buffer nndraft-open-server "" nndraft-request-group nndraft-possibly-change-group nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring nndraft-request-accept-article nnoo-current-server nndraft t noinsert nndraft-article-filename expand-file-name make-auto-save-file-name clear-visited-file-modtime boundp write-contents-functions write-contents-hooks gnus-make-local-hook add-hook nndraft-generate-headers after-save-hook nndraft-update-unread-articles message-add-action (nndraft-update-unread-articles) exit postpone kill buffer-file-name buffer-auto-save-file-name hook] 5 (#$ . 5402)])
(nnoo-register-function 'nndraft-request-associate-buffer)
(defalias 'nndraft-request-group #[(group &optional server dont-check info) "\306!\210 \204` \307\n\"\f \310\211 \311 !\210\312\313\3141) \315 \310\316\317$0\202+ \210\310\"\211\310 \211 \203^ @\320\321\322! \"\211!\204U \323\324!\"\210A\211\2048 .\325\326\327 E#\207" [group dont-check nndraft-directory pathname nnmail-pathname-coding-system file-name-coding-system nndraft-possibly-change-group nnmail-group-pathname nil nnheader-re-read-dir mapcar #[(name) "\301\302\303O!\207" [name string-to-number 1 nil] 4] (error) directory-files "^#[0-9]+#$" t file-exists-p expand-file-name int-to-string rename-file nndraft-auto-save-file-name nnoo-parent-function nndraft nnmh-request-group dir file n --dolist-tail-- server] 8])
(nnoo-register-function 'nndraft-request-group)
(defalias 'nndraft-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306!\210\307\310!\311\312 \f#\2057 r\nq\210\313 \210\314
!\210\315!\316p!\210 )\2057 \317 C\f\320$?\2057 *\207" [group result buf article server nntp-server-buffer nndraft-possibly-change-group get-buffer-create " *nndraft move*" nil nndraft-request-article erase-buffer insert-buffer-substring eval kill-buffer nndraft-request-expire-articles force accept-form] 5])
(nnoo-register-function 'nndraft-request-move-article)
(defalias 'nndraft-request-expire-articles #[(articles group &optional server force) "\306!\210\307\310\311\312\313 \f
F# \314 \203s \211A\242\211>\204 \315\316!! \317!\203= !\210)\320\321 \322\316!!*\314 \211 \203o @\317!\203f !\210A\211\204T *\202 ,\207" [group nnmh-allow-delete-final nnmail-expiry-target articles server force nndraft-possibly-change-group t delete nnoo-parent-function nndraft nnmh-request-expire-articles nil nndraft-auto-save-file-name nndraft-article-filename file-exists-p 1 0 find-backup-file-name res article auto nnmail-delete-file-function kept-old-versions kept-new-versions backup --dolist-tail--] 8])
(nnoo-register-function 'nndraft-request-expire-articles)
(defalias 'nndraft-request-accept-article #[(group &optional server last noinsert) "\305!\210\306\307\310\311\n \fF#)\207" [group gnus-verbose-backends server last noinsert nndraft-possibly-change-group nil nnoo-parent-function nndraft nnmh-request-accept-article] 7])
(nnoo-register-function 'nndraft-request-accept-article)
(defalias 'nndraft-request-replace-article #[(article group buffer) "\306!\210\307\235\203 \202 \n\310\311\312\f
E#)\207" [group message-draft-coding-system mm-text-coding-system nnmail-file-coding-system article buffer nndraft-possibly-change-group ("drafts" "delayed") nnoo-parent-function nndraft nnmh-request-replace-article] 6])
(nnoo-register-function 'nndraft-request-replace-article)
(defalias 'nndraft-request-create-group #[(group &optional server args) "\302!\210\303 !\203 \304 !\205 \305\207\3061 \307 !\210\3050\207\210\310\207" [group nndraft-current-directory nndraft-possibly-change-group file-exists-p file-directory-p t (file-error) gnus-make-directory nil] 2])
(nnoo-register-function 'nndraft-request-create-group)
(defalias 'nndraft-possibly-change-group #[(group) "\205 \232?\205 \304\305!\210\306\n\"\211\207" [group nndraft-current-group nndraft-directory nndraft-current-directory nndraft-open-server "" nnheader-concat] 3])
(defalias 'nndraft-article-filename #[(article &rest args) "\303\304\305!\306 !\n$\207" [nndraft-current-directory article args apply concat file-name-as-directory int-to-string] 5])
(defalias 'nndraft-auto-save-file-name #[(file) "\212\302\303!q\210\304 \305p!\210)\207" [file buffer-file-name get-buffer-create " *draft tmp*" make-auto-save-file-name kill-buffer] 3])
#@43 Return the list of messages in the group.
(defalias 'nndraft-articles #[nil "\301!\210\302\303\304\305\306\307\310$\"\311\"\207" [nndraft-current-directory gnus-make-directory sort mapcar string-to-number directory-files nil "\\`[0-9]+\\'" t <] 8 (#$ . 10344)])
(byte-code "\300\301\302\"\210\303\301!\207" [nnoo-import-1 nndraft ((nnmh nnmh-retrieve-headers nnmh-request-group nnmh-close-group nnmh-request-list)) provide] 3)
Kontol Shell Bypass