;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/rfc1843.el
;;; in Emacs version 24.3.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 "\300\301!\204
\302\301\303\304B\"\210\305\306!\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require mm-util] 4)
(defvar rfc1843-word-regexp "~\\({\\([!-w][!-~]\\| \\)+\\)\\(~}\\|$\\)")
(defvar rfc1843-word-regexp-strictly "~\\({\\([!-w][!-~]\\)+\\)\\(~}\\|$\\)")
(defvar rfc1843-hzp-word-regexp "~\\({\\([!-w][!-~]\\| \\)+\\|[<>]\\([!-}][!-~]\\| \\)+\\)\\(~}\\|$\\)")
(defvar rfc1843-hzp-word-regexp-strictly "~\\({\\([!-w][!-~]\\)+\\|[<>]\\([!-}][!-~]\\)+\\)\\(~}\\|$\\)")
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\316\306\307&\207" [custom-declare-variable rfc1843-decode-loosely nil "Loosely check HZ encoding if non-nil.\nWhen it is set non-nil, only buffers or strings with strictly\nHZ-encoded are decoded." :type boolean :group mime rfc1843-decode-hzp t "HZ+ decoding support if non-nil.\nHZ+ specification (also known as HZP) is to provide a standardized\n7-bit representation of mixed Big5, GB, and ASCII text for convenient\ne-mail transmission, news posting, etc.\nThe document of HZ+ 0.78 specification can be found at\nftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc" rfc1843-newsgroups-regexp "chinese\\|hz" "Regexp of newsgroups in which might be HZ encoded." string] 8)
#@46 Decode HZ in the region between FROM and TO.
(defalias 'rfc1843-decode-region #[(from to) "\306\211\212\nb\210\204\307\f\203
\202\310#\205\217\214\n}\210eb\210\307\f\2031\2023d\310#\203c\311\312\224\312\225\"\211\313H\314\315	\312\306O\313\224\313\225|\210\"\316=\203\\\317\202]\320\"c\210\202'eb\210\321\322d\310#\205\216\306f\323=\203\200\324\325!\210\324\312!\210\202f\306f\326=\203f\324\312!\210\202f)+\207" [firstc str from rfc1843-decode-loosely rfc1843-decode-hzp rfc1843-hzp-word-regexp-strictly nil re-search-forward t buffer-substring-no-properties 1 0 mm-decode-coding-string rfc1843-decode 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126 rfc1843-word-regexp-strictly to rfc1843-hzp-word-regexp rfc1843-word-regexp] 6 (#$ . 1862) "r"])
#@42 Decode HZ STRING and return the results.
(defalias 'rfc1843-decode-string #[(string) "\306 \307\310!r	q\210\311\216\203\312 \210\nc\210ed\313\211\212\fb\210\204<\314\2034 \2026!\315#\205\257\214\f}\210eb\210\314\203O\"\202Q#d\315#\203\203\316\317\224\317\225\"\211\320H\321\322\317\313O\320\224\320\225|\210
\"
\323=\203|\324\202}\325\"c\210\202Deb\210\326\327d\315#\205\256\313f\330=\203\240\331\332!\210\331\317!\210\202\206\313f\333=\203\206\331\317!\210\202\206)-\210\334 ,\207" [m #1=#:temp-buffer string to from firstc mm-multibyte-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte nil re-search-forward t buffer-substring-no-properties 1 0 mm-decode-coding-string rfc1843-decode 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126 buffer-string str rfc1843-decode-loosely rfc1843-decode-hzp rfc1843-hzp-word-regexp-strictly rfc1843-word-regexp-strictly rfc1843-hzp-word-regexp rfc1843-word-regexp] 5 (#$ . 2666)])
#@31 Decode HZ WORD and return it.
(defalias 'rfc1843-decode #[(word &optional firstc) "\305\306\307O\307\f\203\f\310=\2031T\211\nGW\203~\nH\211\311=\204\n\312	\\I\210\202T\211\nGW\203~\nH\211\311=\2041\313	\314_\nTH\315#\n	\316\245\f\317=\203_\320\202`\321\\I\210	\316\246\nT\211	\211\322W\203w\323\202x\324\\I\210\2021\n+\207" [word v s i firstc -1 0 nil 123 32 128 + 94 -3135 157 60 201 161 63 64 98] 5 (#$ . 3729)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload mail-header-parse-content-type "mail-parse" message-narrow-to-head "message"] 3)
#@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 (#$ . 4325)])
#@29 Setup HZ decoding for Gnus.
(defalias 'rfc1843-gnus-setup #[nil "\305\306!\210\305\307!\210\310\311\312\313#\210\314\315\n\316\317Q\320BC\244\f\316\317Q\321BC\244\211\207" [gnus-decode-encoded-word-function gnus-decode-header-function gnus-decode-encoded-word-methods rfc1843-newsgroups-regexp gnus-decode-header-methods require gnus-art gnus-sum 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 (#$ . 4899)])
(provide 'rfc1843)