;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:27 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nngateway.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (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 "\302\303!\210\302\304!\210\305\306\307\310\"\310\211FB\305\311D B\310\207" [nnoo-definition-alist nnoo-state-alist require nnoo message nngateway mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@38 Address of the mail-to-news gateway. (defvar nngateway-address nil (#$ . 860)) (nnoo-define '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 'nngateway-simple-header-transformation (#$ . 983)) (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!\2058p\310\311\312!!\313\216r\nq\210\314 !\210\315 \210 \f!\210db\210 \316\261\210~\210\317 \210-\320\207" [server buf #1=#:temp-buffer nngateway-header-transformation nngateway-address mail-header-separator nngateway-server-opened nngateway-open-server get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring message-narrow-to-head "\n" nil t message-required-mail-headers message-send-mail-function] 3]) (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 (#$ . 2289)]) #@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 (#$ . 2643)]) (byte-code "\300\301!\210\302\301!\207" [nnoo-define-skeleton-1 nngateway provide] 2)