;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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 #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 #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" ["chinese\\|hz"] 1 #1#] "Regexp of newsgroups in which might be HZ encoded." regexp] 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 (#$ . 1241) "r"])#@55 Decode HZ STRING and return the results. (fn STRING) (defalias 'rfc1843-decode-string #[257 "\306\307\310\"r\211q\210\311\312\"\216\203\313\314!\210c\210ed\315\211\212b\210 \2045\316\n\203. \202/\f\310#\205\246\214}\210eb\210\316\n\203F \202Hd\310#\203z\317\320\224\320\225\"\262\321H\262\322\323\320\315O\321\224\321\225|\210\"\324=\203s\325\202t\326\"c\210\202=eb\210\327\330d\310#\205\245\315f\331=\203\227\332\333!\210\332\320!\210\202}\315f\334=\203}\332\320!\210\202}))\266\335 *\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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte to nil re-search-forward buffer-substring-no-properties 1 0 decode-coding-string rfc1843-decode 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126 buffer-string rfc1843-word-regexp] 12 (#$ . 2023)])#@59 Decode HZ WORD and return it. (fn WORD &optional FIRSTC) (defalias 'rfc1843-decode #[513 "\300\301\302O\302\203\303=\2030T\211\262GW\203\203H\211\262\304=\204\305\\I\210\202T\211\262GW\203\203H\211\262\304=\2040\306_TH\\\307\\\262\310\245\311=\203b\312\202c\313\\I\210\211\310\246\262T\211\262\211\314W\203|\315\202}\316\\I\210\2020\207" [-1 0 nil 123 32 128 94 -3135 157 60 201 161 63 64 98] 10 (#$ . 3056)]) (provide 'rfc1843)