View file File name : nngateway.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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)