;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:36:20 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/nndraft.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "!!!!\"ȉF B \"" [require nnheader nnmh nnoo cl nndraft mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist autoload mail-send-and-exit "sendmail"] 4) #@41 Where nndraft will store its directory. (defvar nndraft-directory nil (#$ . 693)) (byte-code "\" B! B\"!" [nnoo-define nndraft-directory nil "nndraft 1.0" nndraft-version current-load-list boundp nndraft-status-string "" nnoo-define-basics-1 nndraft] 3) (defalias 'nndraft-retrieve-headers #[(articles &optional group server fetch-old) "q !\fqp! @;#ɂrn\fqA@ \fp$#eb#PySdb`d|qdb\"c\f!c# +" [nntp-server-buffer erase-buffer get-buffer-create " *draft headers*" buf nil article buffer-disable-undo articles headers nndraft-request-article group server search-forward "\n\n" t -1 format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" nnheader-fold-continuation-lines] 5]) (nnoo-register-function (quote nndraft-retrieve-headers)) (defalias 'nndraft-open-server #[(server &optional defs) "\n # \n\f! \f#\f!!. \f#\n\f$͇" [nnoo-change-server nndraft server defs nndraft-directory 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 (quote nndraft-open-server)) (defalias 'nndraft-request-article #[(id &optional group server buffer) "O!\n!\n\f\"\n\f\"!N!Nqeb Q#LЉ#)," [id nndraft-article-filename file nndraft-auto-save-file-name auto file-newer-than-file-p newest buffer nntp-server-buffer file-exists-p nnmail-find-file re-search-forward "^" mail-header-separator "$" nil t replace-match ""] 4]) (nnoo-register-function (quote 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) " \"É!Fʉ$\fE\f!!q p$  C$)b\f," [nndraft-article-filename article ".state" nil nndraft-buffer-name nndraft-mode nndraft-point file file-exists-p load t get-buffer-create generate-new-buffer-name nndraft-request-article group server gnus-verbose-backends nndraft-request-expire-articles] 5 (#$ . 2398)]) (nnoo-register-function (quote nndraft-request-restore-buffer)) (defalias 'nndraft-request-update-info #[(group info &optional server) "AA8Ç" [info nil 3 t] 2]) (nnoo-register-function (quote nndraft-request-update-info)) #@68 Associate the current buffer with some article in the draft group. (defalias 'nndraft-request-associate-buffer #[(group) " !$A!\n  +" [nil gnus-verbose-backends nndraft-request-accept-article group nnoo-current-server nndraft t noinsert article nndraft-article-filename file buffer-file-name make-auto-save-file-name buffer-auto-save-file-name clear-visited-file-modtime] 6 (#$ . 3132)]) (nnoo-register-function (quote nndraft-request-associate-buffer)) (defalias 'nndraft-request-group #[(group &optional server dont-check) "\fF!\"" [nndraft-execute-nnmh-command nnmh-request-group group "" dont-check nnheader-report nndraft nnmh-status-string] 5]) (nnoo-register-function (quote nndraft-request-group)) (defalias 'nndraft-request-list #[(&optional server dir) " E!" [nndraft-execute-nnmh-command nnmh-request-list nil dir] 4]) (nnoo-register-function (quote nndraft-request-list)) (defalias 'nndraft-request-newgroups #[(date &optional server) "\n E!" [nndraft-execute-nnmh-command nnmh-request-newgroups date server] 4]) (nnoo-register-function (quote nndraft-request-newgroups)) (defalias 'nndraft-request-expire-articles #[(articles group &optional server force) " D ! P A@ >\"!! !?! !L !* *" [nndraft-execute-nnmh-command nnmh-request-expire-articles quote articles group server force nil article res nndraft-article-filename ".state" nndraft-auto-save-file-name auto file file-exists-p nnmail-delete-file-function] 6]) (nnoo-register-function (quote nndraft-request-expire-articles)) (defalias 'nndraft-request-accept-article #[(group &optional server last noinsert) "`  \n BBBB!  A\"!\nD\f\"ced%p!) ." [point major-mode mode buffer-name name nil gnus-verbose-backends nndraft-execute-nnmh-command nnmh-request-accept-article group server last (noinsert) gart nndraft-article-filename ".state" state nnheader-set-temp-buffer " *draft state*" format "%S\n" setq nndraft-mode quote nndraft-point nndraft-buffer-name write-region silent kill-buffer] 9]) (nnoo-register-function (quote nndraft-request-accept-article)) (defalias 'nndraft-close-group #[(group &optional server) "" [t] 1]) (nnoo-register-function (quote nndraft-close-group)) (defalias 'nndraft-request-create-group #[(group &optional server) " ! !ÇƏ" [file-exists-p nndraft-directory file-directory-p t nil (byte-code " \"‡" [make-directory nndraft-directory t] 3) ((file-error))] 3]) (nnoo-register-function (quote nndraft-request-create-group)) (defalias 'nndraft-execute-nnmh-command #[(command) " !\n\"\nʼnO\n\"\nŔTO\nʼnTOlj \n  !-" [expand-file-name nndraft-directory dir string-match "/$" 0 "/[^/]+$" nil nnmh-get-new-mail nnmail-keep-last-article nnmh-directory group eval command] 4]) (defalias 'nndraft-article-filename #[(article &rest args) " ! !$" [apply concat file-name-as-directory nndraft-directory int-to-string article args] 5]) (defalias 'nndraft-auto-save-file-name #[(file) "!q\n p!)" [get-buffer-create " *draft tmp*" file buffer-file-name make-auto-save-file-name kill-buffer] 3]) (provide (quote nndraft))