;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 #[0 "\304\305\306Q \206\n\307\"\205P\212\214\310 \210\311\211\312\313\311\"\211\205\"\314!\211\2031\315\316@\"\2041\317\262db\210~\210\320y\210`d}\210\211\203H\211@\321\232\205L\322`d\"*\266\202*\207" [rfc1843-newsgroups-regexp gnus-newsgroup-name inhibit-point-motion-hooks case-fold-search string-match "\\<\\(" "\\)\\>" "" message-narrow-to-head t message-fetch-field "Content-Type" mail-header-parse-content-type string-search "/" nil 1 "text/plain" rfc1843-decode-region] 6 (#$ . 197)]) #@29 Setup HZ decoding for Gnus. (defalias 'rfc1843-gnus-setup #[0 "\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 (#$ . 791)]) (provide 'gnus-rfc1843)