%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/mml1991.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.

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


(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 (#$ . 818))
#@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)) (#$ . 894))
#@25 If t, cache passphrase.
(defvar mml1991-cache-passphrase mml-secure-cache-passphrase (#$ . 1117))
(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 (#$ . 1309))
(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 (#$ . 1632))
#@62 If t, add your own key ID to recipient list when encryption.
(defvar mml1991-encrypt-to-self nil (#$ . 1743))
(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\"\210q\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&\204ydeV\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\325\326!r
q\210\327\216\330\311!\210\331 !\210eb\210\312\332\311\306#\203v\333\334\306\211#\210\202e	\203~\335	!\210eb\210\n\203\210\nc\210\336c\210\337 +c\210,\306\207" [pgg-default-user-id cte headers pgg-text-mode pgg-errors-buffer #1=#:temp-buffer 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" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring "
+$" replace-match "" mm-encode-content-transfer-encoding "\n" buffer-string pgg-output-buffer] 4])
(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#\2033e`{\214e`}\210\312\313!)\314y\210e`|\210\2033\315\227!\316!\210\317\320\321\"\211@\211;\204D\322\323!\210ed|\210\324\325!r
q\210\326\216\327\307!\210\fc\210eb\210\310\330\307\306#\203m\331\332\306\211#\210\202\\\203u\333!\210eb\210	\203	c\210\334c\210\335 +c\210-\306\207" [cte headers inhibit-redisplay pair signature #1=#:temp-buffer t nil re-search-forward "^$" mail-fetch-field "content-transfer-encoding" 1 intern mm-decode-content-transfer-encoding mml-secure-epg-sign OpenPGP clear error "Signature failed" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte "
+$" replace-match "" mm-encode-content-transfer-encoding "\n" buffer-string] 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)

Zerion Mini Shell 1.0