ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/nngateway.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 697))
(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 (#$ . 892))
(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 mm-subst-char-in-string "@" "\n"] 5 (#$ . 2266)])
#@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 (#$ . 2623)])
(byte-code "\300\301!\210\302\301!\207" [nnoo-define-skeleton-1 nngateway provide] 2)
Kontol Shell Bypass