;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:17 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mml1991.el
;;; in Emacs version 24.3.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!\204
\302\301\303\304B\"\210\305\306!\203\307\310!\210\202\307\311!\210\307\312!\210\307\313!\210\314\315\316\"\210\314\317\316\"\210\314\320\321\"\210\314\322\321\"\210\314\323\324\"\210\314\325\324\"\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] locate-library "password-cache" require password-cache password 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] 4)
#@27 The package used for PGP.
(defvar mml1991-use mml2015-use (#$ . 1157))
#@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)) (#$ . 1234))
#@25 If t, cache passphrase.
(defvar mml1991-cache-passphrase mml-secure-cache-passphrase (#$ . 1458))
#@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 (#$ . 1563))
#@65 A list of your own key ID which will be used to sign a message.
(defvar mml1991-signers nil (#$ . 1785))
#@62 If t, add your own key ID to recipient list when encryption.
(defvar mml1991-encrypt-to-self nil (#$ . 1896))
(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*" ((byte-code "\301!\203\n\302!\210\301\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*" ((byte-code "\301!\203\n\302!\210\301\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)
(defvar mml1991-epg-secret-key-id-list nil)
(defalias 'mml1991-epg-passphrase-callback #[(context key-id ignore) "\306=\203\f\307	\310#\207\311\n\"\312\313\314\203A\202\"\315=\203)\316\202*\"\211\205B
\317\f\"\210)B\320\f!*\207" [key-id context epg-user-id-alist entry passphrase mml1991-passphrase-cache-expiry SYM epg-passphrase-callback-function nil assoc password-read format "GnuPG passphrase for %s: " PIN "PIN" password-cache-add copy-sequence password-cache-expiry mml1991-epg-secret-key-id-list] 5])
(defalias 'mml1991-epg-find-usable-key #[(keys usage) "\300\301\215\207" [found (byte-code "\205>\303@!\304\305	@!>\2045	\2035\n\305	@!>\203.\306	@!\307>\204.\310\311@\"\210	A\211\204)A\211\204\312\207" [keys pointer usage epg-key-sub-key-list disabled epg-sub-key-capability epg-sub-key-validity (revoked expired) throw found nil] 4)] 2])
(defalias 'mml1991-epg-find-usable-secret-key #[(context name usage) "\305	\306#\307\n\204.\203.\310\305\311\312@!@!\"\f\"\203(@\307\202A\202\n*\207" [context name secret-key secret-keys usage epg-list-keys t nil mml1991-epg-find-usable-key epg-sub-key-fingerprint epg-key-sub-key-list] 6])
(defalias 'mml1991-epg-sign #[(cont) "\306 \307\211\211\211\211$\310=\203\311
\312%\313$\202-%\203-\314\307\315\316%\"\"\317
\313\"\210\320
\313\"\210\321
	\"\210&\203F\322
\323\"\210eb\210\324\325\307\313#\203se`{\214e`}\210\326\327!)\330y\210e`|\210\203s\331\227!\332!\210\333\334\335\217\210ed|\210'\211(\203\210\336\307!\210c\210eb\210\324\337\307\313#\203\237\340\341\313\211#\210\202\216\203\247\342!\210eb\210\f\203\261\fc\210\343c\210(\203\275\336\313!\210.\313\207" [signature signers signer-key cte headers context epg-make-context nil guided epa-select-keys "Select keys for signing.\nIf no one is selected, default secret key is used.  " t delq mapcar #[(name) "\303	\304#\211\204\305\306\307	\"!\204\310\311	\"\210\n\207" [context name signer-key mml1991-epg-find-usable-secret-key sign y-or-n-p format "No secret key for %s; skip it? " error "No secret key for %s"] 5] epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback mml1991-epg-passphrase-callback re-search-forward "^$" mail-fetch-field "content-transfer-encoding" 1 intern mm-decode-content-transfer-encoding error (byte-code "\303\304 \305#\306\211\207" [context signature mml1991-epg-secret-key-id-list epg-sign-string buffer-string clear nil] 5) ((error (byte-code "\203\302@!\210A\211\204\303	@	A\"\207" [mml1991-epg-secret-key-id-list error password-cache-remove signal] 4))) set-buffer-multibyte "
+$" replace-match "" mm-encode-content-transfer-encoding "\n" mm-sign-option mml1991-signers mml1991-cache-passphrase enable-multibyte-characters #1=#:multibyte] 7])
(defalias 'mml1991-epg-encrypt #[(cont &optional sign) "eb\210\306\307\310\311#\203(\214e`}\210\312\313!)\314y\210e`|\210\203'\315\316\227!!\210)\317 \320\321!\2056\322\320\321!\323\"\310\211\211\211\211/01\203Y2\204R\324\325!\210/2\244/\310\326\327\217\203s\330\331!\203s\332 \333\334\335\336/\"\"/3\337=\203\206\3400\341/#/\202\230\342\310\335\343/\"\"\211/\204\230\324\344!\2104\203\3045\337=\203\260\3400\3452\311$\202\2762\203\276\342\310\335\3462\"\"\3470\n\"\210\3500\311\"\210\3510\311\"\2106\203\333\3520\353\"\210\324\354\355\217\210ed|\210\356\261\210.\311\207" [cte config signers cipher signer-key recipient-key re-search-forward "^$" nil t mail-fetch-field "content-transfer-encoding" 1 mm-decode-content-transfer-encoding intern epg-make-context message-options-get message-recipients split-string "[ \f	\n
,]+" error "mml1991-signers is not set" (byte-code "\300\301!\207" [require epg-config] 2) ((error)) functionp epg-expand-group epg-configuration apply nconc mapcar #[(recipient) "\302	\"\206		C\207" [config recipient epg-expand-group] 3] guided epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " delq #[(name) "\303\304	\"\305\"\211\204\306\307\310	\"!\204\311\312	\"\210\n\207" [context name recipient-key mml1991-epg-find-usable-key epg-list-keys encrypt y-or-n-p format "No public key for %s; skip it? " error "No public key for %s"] 5] "No recipient specified" "Select keys for signing.\nIf no one is selected, default secret key is used.  " #[(name) "\302	\303#\207" [context name mml1991-epg-find-usable-secret-key sign] 4] epg-context-set-signers epg-context-set-armor epg-context-set-textmode epg-context-set-passphrase-callback mml1991-epg-passphrase-callback (byte-code "\305\306 	\n$\307\211\207" [context recipients sign cipher mml1991-epg-secret-key-id-list epg-encrypt-string buffer-string nil] 6) ((error (byte-code "\203\302@!\210A\211\204\303	@	A\"\207" [mml1991-epg-secret-key-id-list error password-cache-remove signal] 4))) "\n" recipients context mml1991-encrypt-to-self mml1991-signers mm-encrypt-option sign mm-sign-option mml1991-cache-passphrase] 8])
(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)