;ELC ;;; Compiled ;;; in Emacs version 27.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) "\304!\210 AA\211\305\306\307\"\310 \311#\240\210)\312 8\211\203,\312 \233\313 \236\205*\313 \236C\240\210)\311\207" [group info #1=#:c 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 (#$ . 4815)]) #@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 (#$ . 5523)]) (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\303\"!\207" [name string-to-number substring 1] 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\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 (#$ . 10369)]) (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)