ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mml1991.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\302!\210\303\304\305\"\210\303\306\305\"\210\303\307\310\"\210\303\311\310\"\210\303\312\313\"\210\303\314\313\"\210\300\315!\207" [require mm-encode mml-sec autoload quoted-printable-decode-region "qp" quoted-printable-encode-region mm-decode-content-transfer-encoding "mm-bodies" mm-encode-content-transfer-encoding message-options-get "message" message-options-set mml2015] 3)
#@27 The package used for PGP.
(defvar mml1991-use mml2015-use (#$ . 820))
#@25 Alist of PGP functions.
(defvar mml1991-function-alist '((mailcrypt mml1991-mailcrypt-sign mml1991-mailcrypt-encrypt) (pgg mml1991-pgg-sign mml1991-pgg-encrypt) (epg mml1991-epg-sign mml1991-epg-encrypt)) (#$ . 896))
#@25 If t, cache passphrase.
(defvar mml1991-cache-passphrase mml-secure-cache-passphrase (#$ . 1119))
(make-obsolete-variable 'mml1991-cache-passphrase 'mml-secure-cache-passphrase "25.1")
#@129 How many seconds the passphrase is cached.
Whether the passphrase is cached at all is controlled by
`mml1991-cache-passphrase'.
(defvar mml1991-passphrase-cache-expiry mml-secure-passphrase-cache-expiry (#$ . 1311))
(make-obsolete-variable 'mml1991-passphrase-cache-expiry 'mml-secure-passphrase-cache-expiry "25.1")
#@65 A list of your own key ID which will be used to sign a message.
(defvar mml1991-signers nil (#$ . 1634))
#@62 If t, add your own key ID to recipient list when encryption.
(defvar mml1991-encrypt-to-self nil (#$ . 1745))
(autoload 'mc-sign-generic "mc-toplev")
(defvar mml1991-decrypt-function 'mailcrypt-decrypt)
(defvar mml1991-verify-function 'mailcrypt-verify)
(defalias 'mml1991-mailcrypt-sign #[(cont) "p\305\211\306\307!eb\210\310\311!\203 \305y\210\202
o\204$ \312 e`|\210db\210n\204. \313c\210\314ed\"\210\315\316! r\fq\210\317\216p\320 !\210\321\322\323!\305\211\211\211%\204] deV\204] \324!\210\325\326!\210eb\210\327\330\305\331#\203q \332\333\331\211#\210\202` \334ed\"\210 q\210ed|\210\n\203\204 \nc\210\313c\210\320 !\210db.\207" [result-buffer signature headers text #1=#:temp-buffer nil get-buffer-create "*GPG Result*" looking-at "^Content[^ ]+:" buffer-string "\n" quoted-printable-decode-region generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring mc-sign-generic message-options-get message-sender pop-to-buffer error "Sign error" re-search-forward "
+$" t replace-match "" quoted-printable-encode-region] 6])
(defalias 'mml1991-mailcrypt-encrypt #[(cont &optional sign) "p\206 \206 \306\307!\206 \310\307\311\312!\206 \313\"\314=\206 \315\316\317\320! eb\210\321\322!\2036 \316y\210\202* o\204> e`|\210\323\324! r
q\210\325\216\326\316!\210p\327\f!\210\330\306\331!\206_ \310\331\332\333!\"\316ed\306\334!\301&\204y deV\204y \335\n!\210\336\337!\210eb\210\340\341\316\314#\203\215 \342\343\314\211#\210\202| \fq\210ed|\210\344c\210\327 !\210db.\207" [mc-pgp-always-sign sign result-buffer cipher text #1=#:temp-buffer message-options-get message-sign-encrypt message-options-set y-or-n-p "Sign the message? " not t never nil get-buffer-create "*GPG Result*" looking-at "^Content[^ ]+:" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring mc-encrypt-generic message-recipients read-string "Recipients: " message-sender pop-to-buffer error "Encrypt error" re-search-forward "
+$" replace-match "" "\n"] 7])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload pgg-sign-region "pgg" pgg-encrypt-region] 3)
(defalias 'mml1991-pgg-sign #[(cont) "\306\307\310!\206 \311\211eb\210\312\313\311\306#\203; e`{\214e`}\210\314\315!)\316y\210e`|\210 \203; \317 \227!\320 !\210\321ed\306#\204K \322\f!\210\323\324!\210ed|\210
\211 \203Z \325\311!\210\326 !\210eb\210\312\327\311\306#\203s \330\331\306\211#\210\202b \203{ \332 !\210eb\210\n\203\205 \nc\210\333c\210 \203\221 \325\306!\210-\306\207" [pgg-default-user-id cte headers pgg-text-mode pgg-errors-buffer enable-multibyte-characters t message-options-get mml-sender nil re-search-forward "^$" mail-fetch-field "content-transfer-encoding" 1 intern mm-decode-content-transfer-encoding pgg-sign-region pop-to-buffer error "Encrypt error" set-buffer-multibyte insert-buffer-substring "
+$" replace-match "" mm-encode-content-transfer-encoding "\n" #1=#:multibyte pgg-output-buffer] 5])
(defalias 'mml1991-pgg-encrypt #[(cont &optional sign) "eb\210\305\306\307\310#\203( \214e`}\210\311\312!)\313y\210e`|\210\203' \314\315\227!!\210)\310\316ed\317\320\321!\206: \322\321\323\324!\"\325\"\n$)\204J \326 !\210\327\330!\210ed|\210\331c\210\332\f!\210\310\207" [cte pgg-text-mode sign pgg-errors-buffer pgg-output-buffer re-search-forward "^$" nil t mail-fetch-field "content-transfer-encoding" 1 mm-decode-content-transfer-encoding intern pgg-encrypt-region split-string message-options-get message-recipients message-options-set read-string "Recipients: " "[ \f \n
,]+" pop-to-buffer error "Encrypt error" "\n" insert-buffer-substring] 8])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\210\300\311\302\"\210\300\312\302\"\210\300\313\302\"\210\300\314\302\"\210\300\315\302\"\210\300\316\302\"\210\300\317\302\"\210\300\320\302\"\210\300\321\322\"\210\300\323\322\"\207" [autoload epg-make-context "epg" epg-passphrase-callback-function epa-select-keys "epa" epg-list-keys epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epg-key-sub-key-list epg-sub-key-capability epg-sub-key-validity epg-sub-key-fingerprint epg-sign-string epg-encrypt-string epg-configuration "epg-config" epg-expand-group] 3)
(defalias 'mml1991-epg-sign #[(cont) "\306\307\211eb\210\310\311\307\306#\2033 e`{\214e`}\210\312\313!)\314y\210e`|\210\2033 \315\227!\316!\210\317\320\321\"\211@ ed|\210
\211 \203J \322\307!\210\fc\210eb\210\310\323\307\306#\203a \324\325\306\211#\210\202P \203i \326!\210eb\210 \203s c\210\327c\210\203 \322\306!\210.\306\207" [cte headers inhibit-redisplay pair signature enable-multibyte-characters t nil re-search-forward "^$" mail-fetch-field "content-transfer-encoding" 1 intern mm-decode-content-transfer-encoding mml-secure-epg-sign OpenPGP clear set-buffer-multibyte "
+$" replace-match "" mm-encode-content-transfer-encoding "\n" #1=#:multibyte] 5])
(defalias 'mml1991-epg-encrypt #[(cont &optional sign) "eb\210\304\305\306\307#\203( \214e`}\210\310\311!)\312y\210e`|\210\203' \313\314\227!!\210)\315\316 \n#ed|\210\317 \261\210)\307\207" [cte cont sign cipher re-search-forward "^$" nil t mail-fetch-field "content-transfer-encoding" 1 mm-decode-content-transfer-encoding intern mml-secure-epg-encrypt OpenPGP "\n"] 4])
(defalias 'mml1991-encrypt #[(cont &optional sign) "\305 \2368\211\203 \n \f\"\202 \306\307!)\207" [mml1991-use mml1991-function-alist func cont sign 2 error "Cannot find encrypt function"] 4])
(defalias 'mml1991-sign #[(cont) " \236A@\211\203 \n !\202 \304\305!)\207" [mml1991-use mml1991-function-alist func cont error "Cannot find sign function"] 3])
(provide 'mml1991)
Kontol Shell Bypass