| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/international/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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\316\312\"\313\224\313\225|\210\"\317=\203W \320\202X \321\"c\210\202\" eb\210\322\323d\310#\205\211 \306f\324=\203{ \325\326!\210\325\312!\210\202a \306f\327=\203a \325\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 substring 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\330\325\"\311\224\311\225|\210\"\331=\203y \332\202z \333\"c\210\202C eb\210\334\335d\323#\205\253 \321f\336=\203\235 \337\340!\210\337\325!\210\202\203 \321f\341=\203\203 \337\325!\210\202\203 ))\266\342 *\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 substring 123 cn-gb-2312 cn-big5 search-forward "~" 10 delete-char -1 126 buffer-string rfc1843-word-regexp] 12 (#$ . 2353)])
#@59 Decode HZ WORD and return it.
(fn WORD &optional FIRSTC)
(defalias 'rfc1843-decode #[513 "\300\301\302\"\303\203 \304=\2030 T\211\262GW\203\203 H\211\262\305=\204 \306\\I\210\202 T\211\262GW\203\203 H\211\262\305=\2040 \307\310_TH\311#\262\312\245\313=\203b \314\202c \315\\I\210\211\312\246\262T\211\262\211\316W\203| \317\202} \320\\I\210\2020 \207" [-1 substring 0 nil 123 32 128 + 94 -3135 157 60 201 161 63 64 98] 10 (#$ . 3441)])
(provide 'rfc1843)