;ELC   
;;; Compiled
;;; in Emacs version 26.3
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\320\310\311&\207" [custom-declare-variable rfc1843-decode-loosely funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [t] 1] "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." rfc1843-newsgroups-regexp #[0 "\300\207" [#1="chinese\\|hz"] 1 #1#] "Regexp of newsgroups in which might be HZ encoded." string] 8)
#@60 Decode HZ in the region between FROM and TO.

(fn FROM TO)
(defalias 'rfc1843-decode-region #[514 "\306\211\212b\210\204 \307	\203 \n\202 \310#\205\212 \214}\210eb\210\307	\203+ \f\202, d\310#\203^ \311\312\224\312\225\"\262\313H\262\314\315\312\306O\313\224\313\225|\210\"\316=\203W \317\202X \320\"c\210\202\" eb\210\321\322d\310#\205\211 \306f\323=\203{ \324\325!\210\324\312!\210\202a \306f\326=\203a \324\312!\210\202a ))\207" [rfc1843-decode-loosely rfc1843-decode-hzp rfc1843-hzp-word-regexp-strictly rfc1843-word-regexp-strictly rfc1843-hzp-word-regexp rfc1843-word-regexp nil re-search-forward t buffer-substring-no-properties 1 0 decode-coding-string rfc1843-decode 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126] 9 (#$ . 1559) "r"])
#@55 Decode HZ STRING and return the results.

(fn STRING)
(defalias 'rfc1843-decode-string #[257 "\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\203 \317\320!\210c\210ed\321\211\212b\210	\204; \322\n\2034 \2025 \f\323#\205\254 \214}\210eb\210\322\n\203L \202N \"d\323#\203\200 \324\325\224\325\225\"\262\311H\262\326\327\325\321O\311\224\311\225|\210\"\330=\203y \331\202z \332\"c\210\202C eb\210\333\334d\323#\205\253 \321f\335=\203\235 \336\337!\210\336\325!\210\202\203 \321f\340=\203\203 \336\325!\210\202\203 ))\266\341 *\262\207" [enable-multibyte-characters rfc1843-decode-loosely rfc1843-decode-hzp rfc1843-hzp-word-regexp-strictly rfc1843-word-regexp-strictly rfc1843-hzp-word-regexp generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte to nil re-search-forward t buffer-substring-no-properties 1 decode-coding-string rfc1843-decode 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126 buffer-string rfc1843-word-regexp] 12 (#$ . 2342)])
#@59 Decode HZ WORD and return it.

(fn WORD &optional FIRSTC)
(defalias 'rfc1843-decode #[513 "\300\301\302O\302\203 \303=\2030 T\211\262GW\203\203 H\211\262\304=\204 \305\\I\210\202 T\211\262GW\203\203 H\211\262\304=\2040 \306\307_TH\310#\262\311\245\312=\203b \313\202c \314\\I\210\211\311\246\262T\211\262\211\315W\203| \316\202} \317\\I\210\2020 \207" [-1 0 nil 123 32 128 + 94 -3135 157 60 201 161 63 64 98] 10 (#$ . 3420)])
(provide 'rfc1843)