;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\302\303!\210\302\304!\210\305\236\203\305\236A\306\307\310\"\240\210\202&\305\306\307\310\"\310\211FB\305	\236\2042\305\311D	B\310\207" [nnoo-definition-alist nnoo-state-alist require nnoo message nngateway mapcar list nil "*internal-non-initialized-backend*"] 4)
#@110 Address of the mail-to-news gateway.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nngateway-address nil (#$ . 371))
(nnoo-define 'nngateway-address nil)
#@240 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.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nngateway-header-transformation 'nngateway-simple-header-transformation (#$ . 566))
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nngateway-header-transformation nil defalias nngateway-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nngateway] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nngateway-status-message #[256 "\300\301\"\207" [nnoo-status-message nngateway] 4 "\n\n(fn &optional SERVER)"] nngateway-close-server #[512 "\300\301\"\207" [nnoo-close-server nngateway] 5 "\n\n(fn &optional SERVER DEFS)"] nngateway-open-server #[513 "\300\301#\207" [nnoo-change-server nngateway] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nngateway-open-server #[513 "\300!\203\301\207\302
\236\204\303
\302DC\"\262
\304\305#\207" [nngateway-server-opened t nngateway-address append nnoo-change-server nngateway] 6 (#$ . 1592)])
(nnoo-register-function 'nngateway-open-server)
#@25 

(fn &optional SERVER)
(defalias 'nngateway-request-post #[256 "\306
!\204\f\307
!\205>p\310\311\312\"r\211q\210\313\314\"\216\315!\210\316 \210	!\210db\210\n\317\261\210~\210\320\f\2066
 \210+\312\262
\262
\207" [nngateway-header-transformation nngateway-address mail-header-separator message-required-mail-headers message-send-mail-real-function message-send-mail-function nngateway-server-opened nngateway-open-server generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring message-narrow-to-head "\n" nil] 6 (#$ . 1884)])
(nnoo-register-function 'nngateway-request-post)
#@53 Transform the headers to use GATEWAY.

(fn GATEWAY)
(defalias 'nngateway-simple-header-transformation #[257 "\300\301!\302\303!\210\302\304!\210eb\210\305
\306\307\310#\266\203\311\312\261\207" [mail-fetch-field "newsgroups" message-remove-header "to" "cc" "To: " 46 45 subst-char-in-string "@" "\n"] 10 (#$ . 2554)])
#@73 Transform the headers for sending to a mail2news gateway.

(fn GATEWAY)
(defalias 'nngateway-mail2news-header-transformation #[257 "\300\301!\210\300\302!\210eb\210\303
\304\261\207" [message-remove-header "to" "cc" "To: " "\n"] 4 (#$ . 2883)])
(byte-code "\300\301!\210\302\301!\207" [nnoo-define-skeleton-1 nngateway provide] 2)