;ELC   
;;; compiled by jwz@thalidomide on Wed Dec 29 01:02:56 1993
;;; from file /th/jwz/emacs19/lisp/gnus/nntp-post-bg.el
;;; emacs version 19.9 Lucid (beta8).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБ!€ВГ\"«„ЕЖ!€А‡" [require nntp string-match "flee" nntp-version error "nntp-post-bg doesn't work with flee's version of nntp.el"] 3)
(defvar nntp-post-background 'query "\
If t, each post will make a new connection to the NNTP server.
This means that you don't have to wait for the post to complete to
continue reading articles.  If nil, posts will be made on the same
connection.  If any other value, you will be asked.")
(byte-code "АБ!¬„БВM€А‡" [fboundp buffer-disable-undo buffer-flush-undo] 2)
(fset 'nntp-open-server-internal #[(host &optional service) "ЉАБ!¬„ВГ!€«‰Е!«„Ж!€ЗИ!‰q€Йp!€К €Л €МБОp®ЃС$ФХ!€Ц!€)‡" [fboundp open-network-stream require tcp nntp-server-buffer buffer-name kill-buffer generate-new-buffer " *nntpd*" buffer-disable-undo erase-buffer kill-all-local-variables t case-fold-search "nntpd" host service "nntp" nntp-server-process nntp-server-name run-hooks nntp-server-hook process-kill-without-query] 6 "\
Open connection to news server on HOST by SERVICE (default is nntp)."])
(byte-code "АБ!¬‚ВВ‡" [boundp background-post-queue nil] 2)
(fset 'nntp-request-post #[nil "Б=¬€«ыВГ!«цД‰‰pЕЙ!€К\"¬„НО!€ПР\"€ЕС!€ЉТУ!q€Ф €Хp!€Ц!€Ч €p)Љq€ШТЩ!Ы!Ь!€)!€)Љq€ЭЮ!ЯL€Эа!L€!B!вДг\"€)Ед!,‡Ее!€вжг\"­›Ез!€Ч €Еи!€йed\"€Ек!€лм!Ен!€‡" [nntp-post-background t y-or-n-p "Post in background? " nil message nntp-server-buffer nntp-server-process nntp-status-string "Opening NNTP connection for posting..." nntp-open-server gnus-nntp-server gnus-nntp-service error "couldn't open new NNTP connection for posting." set-process-filter nntp-post-bg-filter "Opening NNTP connection for posting...  encoding text..." generate-new-buffer " *bg-post-text*" erase-buffer buffer-disable-undo insert-buffer nntp-encode-text rename-buffer " *bg-post*" b buffer-name kill-buffer make-local-variable nntp-post-bg-state post nntp-post-bg-source background-post-queue nntp-send-command "POST" "Posting will proceed in background." "NNTP: awaiting POST connection..." "^[23].*$" "NNTP: got POST connection; encoding text..." "NNTP: got POST connection; sending text..." nntp-send-region-to-server "NNTP: text sent; awaiting response..." nntp-wait-for-response "^[23].*$" "NNTP: post complete."] 4 "\
Post a new news article from the text of the current buffer."])
(byte-code "АБM€ВГM€ДЕM€ЖЗ!«…ЗИД\"€ЙК!‡" [nntp-post-bg-error #[(proc error) "А	!Љ\nq€ГЕ!€З	!€Е\n!€*И		\"	­ѓГ!‡" [process-buffer proc buffer error nntp-post-bg-state kill-buffer nntp-post-bg-source delete-process delq background-post-queue] 3] nntp-post-bg-filter #[(proc string) "ЉА	!‰q€db€c€Е=«ГЖЗ!¬ѓИЄыЙК!«©Л €МН!€Љq€	\nИТЋУed\"€Ф-МХ!€Ц‰ЄНЧ	Ш`И€`{P\"ЄАЦ=«·ЖЗ!¬ѓИЄіЙК!«ќЛ €ЩЪ q€Ы	!€Ь\n!€Э	\"МЯ!Є‘Ч	Ш`И€`{P\"Є„аб\"*‡" [process-buffer proc buffer string nntp-post-bg-state post re-search-backward "^[2345].*$" nil looking-at "[23]" erase-buffer message "NNTP: got POST connection; sending text..." nntp-post-bg-source ok nntp-server-buffer nntp-server-process ((byte-code "¬…Б\nГ\"€Г‡" [ok nntp-post-bg-error proc nil] 3)) nntp-send-region-to-server t "NNTP: text sent; awaiting response in background." sent nntp-post-bg-error "POST failed: " closed other-buffer delete-process kill-buffer delq background-post-queue "Background post complete!" error "internal error: nntp-post-bg-state is %s"] 6] nntp-post-bg-maybe-warn-about-pending-posts #[nil "??­•A«‰БВГG\"!ЄѓБД!®ѓЕЖ!‡" [background-post-queue yes-or-no-p format "There are %d background posts in progress; exit anyway? " "There is a background post in progress; exit anyway? " error ""] 4] fboundp add-hook kill-emacs-hook provide nntp-post-bg] 3)