Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/gnus/gnus-rfc1843.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require rfc1843 gnus-sum gnus-art message] 2)
#@45 Decode HZ encoded text in the article body.
(defalias 'rfc1843-decode-article-body #[nil "\306\307\310Q	\206\n\311\"\205O\212\214\312 \210\313\211\314\315\313\"\211\205#\316\f!\211\2032\306\317
@\"\2042\320db\210~\210\321y\210`d}\210
\203I
@\322\232\205M\323`d\".\207" [rfc1843-newsgroups-regexp gnus-newsgroup-name inhibit-point-motion-hooks case-fold-search ct ctl string-match "\\<\\(" "\\)\\>" "" message-narrow-to-head t message-fetch-field "Content-Type" mail-header-parse-content-type "/" nil 1 "text/plain" rfc1843-decode-region] 5 (#$ . 521)])
#@29 Setup HZ decoding for Gnus.
(defalias 'rfc1843-gnus-setup #[nil "\305\306\307\310#\210\311\312\n\313\314Q\315BC\244\f\313\314Q\316BC\244\211\207" [gnus-decode-encoded-word-function gnus-decode-header-function gnus-decode-encoded-word-methods rfc1843-newsgroups-regexp gnus-decode-header-methods add-hook gnus-article-decode-hook rfc1843-decode-article-body t gnus-multi-decode-encoded-word-string gnus-multi-decode-header "\\<\\(" "\\)\\>" rfc1843-decode-string rfc1843-decode-region] 4 (#$ . 1094)])
(provide 'gnus-rfc1843)