;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:18:06 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/nndraft.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nndraft.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\311\312\313\314\"\315\211FB\311\316D B\315\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-start nnmh nnoo mm-util nndraft mapcar #[(p) "C\207" [p] 1] (nnmh) nil "*internal-non-initialized-backend*"] 4) #@37 Where nndraft will store its files. (defvar nndraft-directory (nnheader-concat gnus-directory "drafts/") (#$ . 965)) (byte-code "\306\307\310\"\210\311\300!\204 \312\300 B\306\300\313\"\210\311\302!\204\314\302 B\306\302\315\"\210\311\303!\204/\314\303 B\306\303\316\"\210\317\304 B\311\305!\204F\312\305 B\306\305\320\"\210\321\322!\207" [nndraft-current-group current-load-list nndraft-get-new-mail nndraft-current-directory nndraft-version nndraft-status-string nnoo-define nndraft-directory (nnmh-directory) boundp "" (nnmh-current-group) nil (nnmh-get-new-mail) (nnmh-current-directory) "nndraft 1.0" (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) "\305!\210\212 q\210\306 \210\307 @;\203\310\202^ \203Z``}\210\311 \211A@\211\fp$\203eb\210\312\313\307\314#\203?\315y\210\202Bdb\210`d|\210eb\210\316\317\n\"c\210~\210db\210\320c\210\202\321 \210\310*\207" [group nntp-server-buffer article articles server nndraft-possibly-change-group erase-buffer nil headers nndraft-request-article search-forward "\n\n" t -1 format "221 %d Article retrieved.\n" ".\n" nnheader-fold-continuation-lines] 5]) (nnoo-register-function 'nndraft-retrieve-headers) (defalias 'nndraft-request-article #[(id &optional group server buffer) "\306!\210 \247\205k\307 !\310\n!\311\n \"\203\n\202  \206$\312\f!\205j\311\n \"\203C\313\232\203>\202E\202E\314\f!)\205j\212q\210eb\210\315\316\317Q\320\321#\203h\322\323\321\211#\210)\321,\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" nnmail-find-file re-search-forward "^" "$" 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 (#$ . 3443)]) (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) #@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\315!!\316\216r q\210\317 !\210\320\321\322!\323\324$\325\n!+\326 !\327 \330 \210\n,\207" [group file article buf gnus-verbose-backends #1=#:temp-buffer nndraft-open-server "" nndraft-request-group nndraft-possibly-change-group nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\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 buffer-file-name buffer-auto-save-file-name] 5 (#$ . 4230)]) (nnoo-register-function 'nndraft-request-associate-buffer) (defalias 'nndraft-request-expire-articles #[(articles group &optional server force) "\306!\210\307\310\311\312\n \fF#\313\n\203o\n\211A@\211 >\204\314\315!!\316!\2039!\210)\317\320\321\315!!*\313\211\203k@\316!\203b!\210A\211\204P*\202 +\207" [group nnmh-allow-delete-final articles server force res nndraft-possibly-change-group t 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 article auto nnmail-delete-file-function kept-old-versions kept-new-versions backup #1=#:--dolist-temp--82137] 7]) (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-create-group #[(group &optional server args) "\302!\210\303 !\203\304 !\205\305\207\306\307\310\217\207" [group nndraft-current-directory nndraft-possibly-change-group file-exists-p file-directory-p t nil (byte-code "\301!\210\302\207" [nndraft-current-directory gnus-make-directory t] 2) ((file-error))] 3]) (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-int directory-files nil "\\`[0-9]+\\'" t <] 8 (#$ . 7133)]) (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 nnmh-request-newsgroups nnmh-request-move-article nnmh-request-replace-article)) provide] 3)