Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/gnus/nngateway.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 (#$ . 695))
(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 (#$ . 890))
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nngateway-header-transformation nil nnoo-define-basics-1 nngateway] 3)
(defalias 'nngateway-open-server #[(server &optional defs) "\302!\203\303\207\304	\236\204\305	\304DC\"\306\307	#\207" [server defs nngateway-server-opened t nngateway-address append nnoo-change-server nngateway] 4])
(nnoo-register-function 'nngateway-open-server)
(defalias 'nngateway-request-post #[(&optional server) "\306!\204\f\307!\205;p\310\311!r\nq\210\312\216\313	!\210\314 \210\f!\210db\210
\315\261\210~\210\316\2067 \210-\317\207" [server buf #1=#:temp-buffer nngateway-header-transformation nngateway-address mail-header-separator nngateway-server-opened nngateway-open-server generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring message-narrow-to-head "\n" nil t message-required-mail-headers message-send-mail-real-function message-send-mail-function] 2])
(nnoo-register-function 'nngateway-request-post)
#@39 Transform the headers to use GATEWAY.
(defalias 'nngateway-simple-header-transformation #[(gateway) "\305\306!\307\310!\210\307\311!\210eb\210\312\313\314\315\n	#+\316\f\317\261)\207" [newsgroups to from string gateway mail-fetch-field "newsgroups" message-remove-header "to" "cc" "To: " 46 45 subst-char-in-string "@" "\n"] 5 (#$ . 2264)])
#@59 Transform the headers for sending to a mail2news gateway.
(defalias 'nngateway-mail2news-header-transformation #[(gateway) "\301\302!\210\301\303!\210eb\210\304\305\261\207" [gateway message-remove-header "to" "cc" "To: " "\n"] 3 (#$ . 2618)])
(byte-code "\300\301!\210\302\301!\207" [nnoo-define-skeleton-1 nngateway provide] 2)