;ELC   
;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:42 1998
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/nngateway.el
;;; emacs version 19.34.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 "`nngateway.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!ˆÃÄÅÆ\"Æ‰FBÃÈD	B	Æ‡" [require nnoo message nngateway mapcar #[(p) "C‡" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4)
#@38 Address of the mail-to-news gateway.
(defvar nngateway-address nil (#$ . 688))
(nnoo-define (quote nngateway-address) nil)
#@168 Function to be called to rewrite the news headers into mail headers.
It is called narrowed to the headers to be transformed with one
parameter -- the gateway address.
(defvar nngateway-header-transformation (quote nngateway-simple-header-transformation) (#$ . 818))
(byte-code "ÀÁÂ\"ˆÃÄ!‡" [nnoo-define nngateway-header-transformation nil nnoo-define-basics-1 nngateway] 3)
(defalias 'nngateway-open-server #[(server &optional defs) "À	!ƒ Â‡Ã\fž„ Å\fÃ	DC\"ÆÇ	\f#‡" [nngateway-server-opened server t nngateway-address defs append nnoo-change-server nngateway] 4])
(nnoo-register-function (quote nngateway-open-server))
(defalias 'nngateway-request-post #[(&optional server) "À	!„\f Â	!…{ pŠÄÆÈÉÊ!!qÄ\fÍŽÎ!ˆÏ ˆ!ˆdbˆÓ±ˆ~ˆÄ ˆ)Ö\f„M \f‚y Ö=ƒ\\ qˆ× ‚y qˆØÙ!!„o ÚÙ!Ö\"ˆÛedÄÜ%ˆ\f.‡" [nngateway-server-opened server nngateway-open-server buf nil temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code "À	!ƒ\n Â	!ˆÀ‡" [buffer-name temp-buffer kill-buffer] 2)) insert-buffer-substring message-narrow-to-head nngateway-header-transformation nngateway-address mail-header-separator "\n" message-required-mail-headers message-send-mail-function t buffer-string file-directory-p file-name-directory make-directory write-region nomesg] 6])
(nnoo-register-function (quote nngateway-request-post))
#@39 Transform the headers to use GATEWAY.
(defalias 'nngateway-simple-header-transformation #[(gateway) "ÀÁ!ÃÄ!ˆÃÅ!ˆebˆÆÇ\nÈÉ#ÊÌ±)‡" [mail-fetch-field "newsgroups" newsgroups message-remove-header "to" "cc" "To: " nnheader-replace-chars-in-string 46 45 "@" gateway "\n"] 5 (#$ . 2229)])
#@59 Transform the headers for sending to a mail2news gateway.
(defalias 'nngateway-mail2news-header-transformation #[(gateway) "ÀÁ!ˆÀÂ!ˆebˆÃ\fÅ±‡" [message-remove-header "to" "cc" "To: " gateway "\n"] 3 (#$ . 2522)])
(byte-code "ÀÁ!ˆÂÁ!‡" [nnoo-define-skeleton-1 nngateway provide] 2)