%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/international/
Upload File :
Create Path :
Current File : //usr/local/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\202Ceb\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=\2030T\211\262GW\203\203H\211\262\305=\204\306\\I\210\202T\211\262GW\203\203H\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)

Zerion Mini Shell 1.0