HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/nndraft.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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/") (#$ . 808))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\207" [nnoo-define nndraft-directory (nnmh-directory) custom-declare-variable nndraft-required-headers '(Date) "Headers to be generated when saving a draft message.\nThe headers in this variable and the ones in `message-required-headers'\nare generated if and only if they are also in `message-draft-headers'." :type (repeat sexp) :group message-headers] 8)
(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$\203eb\210\313\314\310\315#\203D\316y\210\202Gdb\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!)\205lrq\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 (#$ . 3837)])
(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 (#$ . 4804)])
#@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\332\312\322$\210\330\333\334\312\322$\210\335\336\337\340\341$\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 add-hook write-contents-functions 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] 5 (#$ . 5512)])
(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#\2057r\nq\210\313 \210\314
!\210\315!\316p!\210	)\2057\317C\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 (#$ . 10347)])
(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)