;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 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\"\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&\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)