;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 (#$ . 494)) #@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)) (#$ . 570)) #@25 If t, cache passphrase. (defvar mml1991-cache-passphrase mml-secure-cache-passphrase (#$ . 793)) (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 (#$ . 984)) (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 (#$ . 1306)) #@62 If t, add your own key ID to recipient list when encryption. (defvar mml1991-encrypt-to-self nil (#$ . 1417)) (autoload 'mc-sign-generic "mc-toplev") (defvar mml1991-decrypt-function 'mailcrypt-decrypt) (defvar mml1991-verify-function 'mailcrypt-verify) #@13 (fn CONT) (defalias 'mml1991-mailcrypt-sign #[257 "p\300\211\301\302!eb\210\303\304!\203\300y\210\202 o\204!\305 \262e`|\210db\210n\204+\306c\210\307ed\"\210\310\311\312\"r\211q\210\313\314\"\216p\262\315!\210\316\317\320!\300\211\211\211%\204^deV\204^\321!\210\322\323!\210eb\210\324\325\300\312#\203r\326\327\312\211#\210\202a\330ed\"\210q\210ed|\210\203\205c\210\306c\210\315!\210db*\207" [nil get-buffer-create "*GPG Result*" looking-at "^Content[^ ]+:" buffer-string "\n" quoted-printable-decode-region generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 " +$" replace-match "" quoted-printable-encode-region] 12 (#$ . 1677)]) #@28 (fn CONT &optional SIGN) (defalias 'mml1991-mailcrypt-encrypt #[513 "p\206\206\301\302!\206\303\302\304\305!\206\306\"\307=\206\310\311\312\313!eb\210\314\315!\2034\311y\210\202(o\204<e`|\210\316\317\307\"r\211q\210\320\321\"\216\322\311!\210p\262\323!\210\324\301\325!\206a\303\325\326\327!\"\311ed\301\330!\331&\204{deV\204{\332!\210\333\334!\210eb\210\335\336\311\307#\203\217\337\340\307\211#\210\202~q\210ed|\210\341c\210\323!\210db*\262)\207" [mc-pgp-always-sign 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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring mc-encrypt-generic message-recipients read-string "Recipients: " message-sender sign pop-to-buffer error "Encrypt error" re-search-forward " +$" replace-match "" "\n"] 14 (#$ . 2522)]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload pgg-sign-region "pgg" pgg-encrypt-region] 3) #@13 (fn CONT) (defalias 'mml1991-pgg-sign #[257 "\304\305\306!\206\307\211eb\210\310\311\307\304#\203>e`{\262\214e`}\210\312\313!\262)\314y\210e`|\210\211\203>\315\227!\262\316!\210\317ed\304#\204N\320\n!\210\321\322!\210ed|\210\323\324\304\"r\211q\210\325\326\"\216\327\307!\210\330 !\210eb\210\310\331\307\304#\203{\332\333\304\211#\210\202j\203\203\334!\210eb\210\203\215c\210\335c\210\336 *\262c\210*\304\207" [pgg-default-user-id pgg-text-mode pgg-errors-buffer pgg-output-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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring " +$" replace-match "" mm-encode-content-transfer-encoding "\n" buffer-string] 10 (#$ . 3642)]) #@28 (fn CONT &optional SIGN) (defalias 'mml1991-pgg-encrypt #[513 "eb\210\303\304\305\306#\203'\214e`}\210\307\310!)\311y\210e`|\210\211\203&\312\313\227!!\210\210\306\314ed\315\316\317!\2069\320\317\321\322!\"\323\"$)\204I\324 !\210\325\326!\210ed|\210\327c\210\330\n!\210\306\207" [pgg-text-mode 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] 10 (#$ . 4609)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\302\"\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\321\"\210\300\322\321\"\207" [autoload epg-make-context "epg" 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) #@13 (fn CONT) (defalias 'mml1991-epg-sign #[257 "\300\211eb\210\301\302\300\303#\2032e`{\262\214e`}\210\304\305!\262)\306y\210e`|\210\211\2032\307\227!\262\310!\210\311\312\313\"\211@\211;\204A\314\315!\210ed|\210\316\317\303\"r\211q\210\320\321\"\216\322\300!\210c\210eb\210\301\323\300\303#\203m\324\325\303\211#\210\202\\\203u\326!\210eb\210\203c\210\327c\210\330 *\262c\266\303\207" [nil re-search-forward "^$" t 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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte " +$" replace-match "" mm-encode-content-transfer-encoding "\n" buffer-string] 10 (#$ . 5925)]) #@28 (fn CONT &optional SIGN) (defalias 'mml1991-epg-encrypt #[513 "eb\210\300\301\302\303#\203'\214e`}\210\304\305!)\306y\210e`|\210\211\203&\307\310\227!!\210\210\311\312#ed|\210\313\261\266\303\207" [re-search-forward "^$" nil t mail-fetch-field "content-transfer-encoding" 1 mm-decode-content-transfer-encoding intern mml-secure-epg-encrypt OpenPGP "\n"] 6 (#$ . 6743)]) #@28 (fn CONT &optional SIGN) (defalias 'mml1991-encrypt #[513 "\302 \2368\211\203\211\"\207\303\304!\207" [mml1991-use mml1991-function-alist 2 error "Cannot find encrypt function"] 6 (#$ . 7129)]) #@13 (fn CONT) (defalias 'mml1991-sign #[257 " \236A@\211\203 \211!\207\302\303!\207" [mml1991-use mml1991-function-alist error "Cannot find sign function"] 4 (#$ . 7336)]) (provide 'mml1991)