;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\313\"\210\307\315\316\"\210\307\317\316\"\210\307\320\321\"\210\307\322\321\"\210\307\323\321\"\210\307\324\325\"\210\307\326\327\"\210\307\330\327\"\210\307\331\327\"\210\307\332\327\"\210\307\333\327\"\210\307\334\327\"\210\307\335\336\"\210\307\323\321\"\210\307\337\321\"\207" [require cl-lib gnus-util epg epa password-cache mm-encode autoload mail-strip-quoted-names "mail-utils" mml2015-sign "mml2015" mml2015-encrypt mml1991-sign "mml1991" mml1991-encrypt message-fetch-field "message" message-goto-body message-options-get mml-insert-tag "mml" mml-smime-sign "mml-smime" mml-smime-encrypt mml-smime-sign-query mml-smime-encrypt-query mml-smime-verify mml-smime-verify-test epa--select-keys "epa" message-options-set] 3)
#@33 Alist of MIME signer functions.
(defvar mml-sign-alist '(("smime" mml-smime-sign-buffer mml-smime-sign-query) ("pgp" mml-pgp-sign-buffer list) ("pgpauto" mml-pgpauto-sign-buffer list) ("pgpmime" mml-pgpmime-sign-buffer list)) (#$ . 948))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable mml-default-sign-method funcall function #[0 "\300\207" ["pgpmime"] 1 ""] "Default sign method.\nThe string must have an entry in `mml-sign-alist'." :version "22.1" :type (choice (const "smime") (const "pgp") (const "pgpauto") (const "pgpmime") string) :group message] 10)
#@37 Alist of MIME encryption functions.
(defvar mml-encrypt-alist '(("smime" mml-smime-encrypt-buffer mml-smime-encrypt-query) ("pgp" mml-pgp-encrypt-buffer list) ("pgpauto" mml-pgpauto-sign-buffer list) ("pgpmime" mml-pgpmime-encrypt-buffer list)) (#$ . 1560))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\312\313\310\317&	\210\300\320\302\303\321DD\322\312\313\310\323&\210\300\324\302\303\325DD\326\312\313\310\323&\210\300\327\302\303\330DD\331\312\313\310\332&\210\300\333\302\303\334DD\335\306\336\312\313\310\337&	\207" [custom-declare-variable mml-default-encrypt-method funcall function #[0 "\300\207" ["pgpmime"] 1 #1=""] "Default encryption method.\nThe string must have an entry in `mml-encrypt-alist'." :version "22.1" :type (choice (const "smime") (const "pgp") (const "pgpauto") (const "pgpmime") string) :group message mml-signencrypt-style-alist #[0 "\300\207" [(("smime" separate) ("pgp" combined) ("pgpauto" combined) ("pgpmime" combined))] 1 #1#] "Alist specifying if `signencrypt' results in two separate operations or not.\nThe first entry indicates the MML security type, valid entries include\nthe strings \"smime\", \"pgp\", and \"pgpmime\".  The second entry is\na symbol `separate' or `combined' where `separate' means that MML signs\nand encrypt messages in a two step process, and `combined' means that MML\nsigns and encrypt the message in one step.\n\nNote that the output generated by using a `combined' mode is NOT\nunderstood by all PGP implementations, in particular PGP version\n2 does not support it!  See Info node `(message) Security' for\ndetails." (repeat (list (choice (const :tag "S/MIME" "smime") (const :tag "PGP" "pgp") (const :tag "PGP/MIME" "pgpmime") (string :tag "User defined")) (choice (const :tag "Separate" separate) (const :tag "Combined" combined)))) mml-secure-verbose #[0 "\300\207" [nil] 1 #1#] "If non-nil, ask the user about the current operation more verbosely." boolean mml-secure-cache-passphrase #[0 "\207" [password-cache] 1 #1#] "If t, cache OpenPGP or S/MIME passphrases inside Emacs.\nPassphrase caching in Emacs is NOT recommended.  Use gpg-agent instead.\nSee Info node `(message) Security'." mml-secure-passphrase-cache-expiry #[0 "\207" [password-cache-expiry] 1 #1#] "How many seconds the passphrase is cached.\nWhether the passphrase is cached at all is controlled by\n`mml-secure-cache-passphrase'." integer mml-secure-safe-bcc-list #[0 "\300\207" [nil] 1 #1#] "List of e-mail addresses that are safe to use in Bcc headers.\nEasyPG encrypts e-mails to Bcc addresses, and the encrypted e-mail\nby default identifies the used encryption keys, giving away the\nBcc'ed identities.  Clearly, this contradicts the original goal of\n*blind* copies.\nFor an academic paper explaining the problem, see URL\n`https://crypto.stanford.edu/portia/papers/bb-bcc.pdf'.\nUse this variable to specify e-mail addresses whose owners do not\nmind if they are identifiable as recipients.  This may be useful if\nyou use Bcc headers to encrypt e-mails to yourself." "25.1" (repeat string)] 10)
#@492 Function for setting/getting the signencrypt-style used.  Takes two
arguments, the method (e.g. "pgp") and optionally the mode
(e.g. combined).  If the mode is omitted, the current value is returned.

For example, if you prefer to use combined sign & encrypt with
smime, putting the following in your Gnus startup file will
enable that behavior:

(mml-set-signencrypt-style "smime" combined)

You can also customize or set `mml-signencrypt-style-alist' instead.

(fn METHOD &optional STYLE)
(defalias 'mml-signencrypt-style #[513 "\301\"\211\203
\302=\204
\303=\203\211A\240\207\211A@\207\304\305!\207" [mml-signencrypt-style-alist assoc separate combined message "Warning, attempt to set invalid signencrypt style"] 5 (#$ . 4674)])
#@13 

(fn CONT)
(defalias 'mml-smime-sign-buffer #[257 "\300
!\206	\301\302!\207" [mml-smime-sign error "Signing failed... inspect message logs for errors"] 3 (#$ . 5422)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml-smime-encrypt-buffer #[513 "\211\203\f\300\301!\210\302\303!\210\304!\206\305\306!\207" [message "Combined sign and encrypt S/MIME not support yet" sit-for 1 mml-smime-encrypt error "Encryption failed... inspect message logs for errors"] 4 (#$ . 5598)])
#@13 

(fn CONT)
(defalias 'mml-pgp-sign-buffer #[257 "\300
!\206	\301\302!\207" [mml1991-sign error "Signing failed... inspect message logs for errors"] 3 (#$ . 5904)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml-pgp-encrypt-buffer #[513 "\300\"\206\n\301\302!\207" [mml1991-encrypt error "Encryption failed... inspect message logs for errors"] 5 (#$ . 6076)])
#@13 

(fn CONT)
(defalias 'mml-pgpmime-sign-buffer #[257 "\300
!\206	\301\302!\207" [mml2015-sign error "Signing failed... inspect message logs for errors"] 3 (#$ . 6275)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml-pgpmime-encrypt-buffer #[513 "\300\"\206\n\301\302!\207" [mml2015-encrypt error "Encryption failed... inspect message logs for errors"] 5 (#$ . 6451)])
#@13 

(fn CONT)
(defalias 'mml-pgpauto-sign-buffer #[257 "\300 \210\301\302\303\304#\203\305
!\202\306
!\206\307\310!\207" [message-goto-body re-search-backward "Content-Type: *multipart/.*" nil t mml2015-sign mml1991-sign error "Encryption failed... inspect message logs for errors"] 5 (#$ . 6654)])
#@28 

(fn CONT &optional SIGN)
(defalias 'mml-pgpauto-encrypt-buffer #[513 "\300 \210\301\302\303\304#\203\305\"\202\306\"\206\307\310!\207" [message-goto-body re-search-backward "Content-Type: *multipart/.*" nil t mml2015-encrypt mml1991-encrypt error "Encryption failed... inspect message logs for errors"] 6 (#$ . 6963)])
#@30 

(fn METHOD &optional SIGN)
(defalias 'mml-secure-part #[513 "\212\303\304\203\f\202
	\"8 \305\306\307\310#\203U\311\225b\210
\203$\312\202%\313\261\210\211\205\213\211
A\262\242
\211A\262\242\211\203P\314\315\"\203I\316
!\262
\317\320#c\210\266\202)\305\321\322\n!\323Q\307\310#\204o\324\321\322\n!\323Q\307\310#\203\210\311\225b\210\325\326\327\203~\330\202\331BB#\202\213\332\333!\262
)\207" [mml-sign-alist mml-encrypt-alist mail-header-separator 2 assoc re-search-backward "<#\\(multipart\\|part\\|external\\|mml\\)" nil t 0 " sign=" " encrypt=" string-match "[\"'\\~/*;() 	\n]" prin1-to-string format " %s=%s" "^" regexp-quote "\n" re-search-forward apply mml-insert-tag part sign encrypt error "The message is corrupted.  No mail header separator"] 9 (#$ . 7300)])
#@46 Current security method.  Internal variable.
(defvar mml-secure-method (byte-code "	\232\203	\207\302\207" [mml-default-encrypt-method mml-default-sign-method "pgpmime"] 2) (#$ . 8109))
#@141 Add MML tags to sign this MML part.
Use METHOD if given.  Else use `mml-secure-method' or
`mml-default-sign-method'.

(fn &optional METHOD)
(defalias 'mml-secure-sign #[256 "\302
\206\n\206\n	\303\"\207" [mml-secure-method mml-default-sign-method mml-secure-part sign] 4 (#$ . 8305) [nil (mml-mode)]])
#@144 Add MML tags to encrypt this MML part.
Use METHOD if given.  Else use `mml-secure-method' or
`mml-default-sign-method'.

(fn &optional METHOD)
(defalias 'mml-secure-encrypt #[256 "\302
\206\n\206\n	!\207" [mml-secure-method mml-default-sign-method mml-secure-part] 3 (#$ . 8617) [nil (mml-mode)]])
#@41 Add MML tags to PGP sign this MML part.
(defalias 'mml-secure-sign-pgp #[0 "\300\301\302\"\207" [mml-secure-part "pgp" sign] 3 (#$ . 8924) [nil (mml-mode)]])
#@46 Add MML tags to PGP-auto sign this MML part.
(defalias 'mml-secure-sign-pgpauto #[0 "\300\301\302\"\207" [mml-secure-part "pgpauto" sign] 3 (#$ . 9088) [nil (mml-mode)]])
#@46 Add MML tags to PGP/MIME sign this MML part.
(defalias 'mml-secure-sign-pgpmime #[0 "\300\301\302\"\207" [mml-secure-part "pgpmime" sign] 3 (#$ . 9265) [nil (mml-mode)]])
#@44 Add MML tags to S/MIME sign this MML part.
(defalias 'mml-secure-sign-smime #[0 "\300\301\302\"\207" [mml-secure-part "smime" sign] 3 (#$ . 9442) [nil (mml-mode)]])
#@44 Add MML tags to PGP encrypt this MML part.
(defalias 'mml-secure-encrypt-pgp #[0 "\300\301!\207" [mml-secure-part "pgp"] 2 (#$ . 9613) [nil (mml-mode)]])
#@49 Add MML tags to PGP/MIME encrypt this MML part.
(defalias 'mml-secure-encrypt-pgpmime #[0 "\300\301!\207" [mml-secure-part "pgpmime"] 2 (#$ . 9773) [nil (mml-mode)]])
#@47 Add MML tags to S/MIME encrypt this MML part.
(defalias 'mml-secure-encrypt-smime #[0 "\300\301!\207" [mml-secure-part "smime"] 2 (#$ . 9946) [nil (mml-mode)]])
#@186 Whether the current buffer contains a mail message that should be encrypted.
If TAG-PRESENT, say whether the <#secure tag is present anywhere
in the buffer.

(fn &optional TAG-PRESENT)
(defalias 'mml-secure-is-encrypted-p #[256 "\212eb\210\300 \210\211\203\301\302\303\304#\202\305\303w\210\306\302!)\207" [message-goto-body re-search-forward "<#secure[^>]+encrypt" nil t "[ 	\n" looking-at] 5 (#$ . 10114)])
#@422 Check whether usage of Bcc is safe (or absent).
Bcc usage is safe in two cases: first, if the current message does
not contain an MML secure encrypt tag;
second, if the Bcc addresses are a subset of `mml-secure-safe-bcc-list'.
In all other cases, ask the user whether Bcc usage is safe.
Raise error if user answers no.
Note that this function does not produce a meaningful return value:
either an error is raised or not.
(defalias 'mml-secure-bcc-is-safe #[0 "\301 \205+\302\303\304!!\211\205)\305\306\307\310\"\"\311
\"?\205'\312\313!?\205'\314\315!\262
\262
\207" [mml-secure-safe-bcc-list mml-secure-is-encrypted-p mail-strip-quoted-names message-fetch-field "bcc" mapcar cadr mail-extract-address-components t gnus-subsetp yes-or-no-p "Message for encryption contains Bcc header.  This may give away all Bcc'ed identities to all recipients.  Are you sure that this is safe?  (Customize `mml-secure-safe-bcc-list' to avoid this warning.)" error "Aborted"] 6 (#$ . 10534)])
#@33 

(fn METHOD &optional MODESYM)
(defalias 'mml-secure-message #[513 "\303
!\304\305=\204\306=\205\307\310\"8 \311=\204#\306=\205+\307\310	\"8 \"\312\313 \210\212eb\210\314\315\316\n!\317Q\312\320#\203_\321\225\211\262b\210\322\323!\204c\324\325\326\327\330&\210\202c\331\332!\210)\333
`\"\205m\334y\207" [mml-sign-alist mml-encrypt-alist mail-header-separator prin1-to-string append sign signencrypt 2 assoc encrypt nil mml-unsecure-message re-search-forward "^" regexp-quote "\n" t 0 looking-at "<#secure" apply mml-insert-tag secure method mode error "The message is corrupted.  No mail header separator" eql 1] 13 (#$ . 11522)])
#@48 Remove security related MML tags from message.
(defalias 'mml-unsecure-message #[0 "\212db\210\300\301\302\303#\205\304\224\304\225|)\207" [re-search-backward "^<#secure.*>\n" nil t 0] 4 (#$ . 12186) [nil (mml-mode)]])
#@146 Add MML tags to sign the entire message.
Use METHOD if given.  Else use `mml-secure-method' or
`mml-default-sign-method'.

(fn &optional METHOD)
(defalias 'mml-secure-message-sign #[256 "\302
\206\n\206\n	\303\"\207" [mml-secure-method mml-default-sign-method mml-secure-message sign] 4 (#$ . 12414) [nil (mml-mode)]])
#@157 Add MML tag to sign and encrypt the entire message.
Use METHOD if given.  Else use `mml-secure-method' or
`mml-default-sign-method'.

(fn &optional METHOD)
(defalias 'mml-secure-message-sign-encrypt #[256 "\302
\206\n\206\n	\303\"\207" [mml-secure-method mml-default-sign-method mml-secure-message signencrypt] 4 (#$ . 12743) [nil (mml-mode)]])
#@148 Add MML tag to encrypt the entire message.
Use METHOD if given.  Else use `mml-secure-method' or
`mml-default-sign-method'.

(fn &optional METHOD)
(defalias 'mml-secure-message-encrypt #[256 "\302
\206\n\206\n	\303\"\207" [mml-secure-method mml-default-sign-method mml-secure-message encrypt] 4 (#$ . 13098) [nil (mml-mode)]])
#@49 Add MML tag to encrypt/sign the entire message.
(defalias 'mml-secure-message-sign-smime #[0 "\300\301\302\"\207" [mml-secure-message "smime" sign] 3 (#$ . 13434) [nil (mml-mode)]])
#@49 Add MML tag to encrypt/sign the entire message.
(defalias 'mml-secure-message-sign-pgp #[0 "\300\301\302\"\207" [mml-secure-message "pgp" sign] 3 (#$ . 13622) [nil (mml-mode)]])
#@49 Add MML tag to encrypt/sign the entire message.
(defalias 'mml-secure-message-sign-pgpmime #[0 "\300\301\302\"\207" [mml-secure-message "pgpmime" sign] 3 (#$ . 13806) [nil (mml-mode)]])
#@49 Add MML tag to encrypt/sign the entire message.
(defalias 'mml-secure-message-sign-pgpauto #[0 "\300\301\302\"\207" [mml-secure-message "pgpauto" sign] 3 (#$ . 13998) [nil (mml-mode)]])
#@140 Add MML tag to encrypt and sign the entire message.
If called with a prefix argument, only encrypt (do NOT sign).

(fn &optional DONTSIGN)
(defalias 'mml-secure-message-encrypt-smime #[256 "\300\301\203\n\302\202\303\"\207" [mml-secure-message "smime" encrypt signencrypt] 4 (#$ . 14191) ["P" (mml-mode)]])
#@140 Add MML tag to encrypt and sign the entire message.
If called with a prefix argument, only encrypt (do NOT sign).

(fn &optional DONTSIGN)
(defalias 'mml-secure-message-encrypt-pgp #[256 "\300\301\203\n\302\202\303\"\207" [mml-secure-message "pgp" encrypt signencrypt] 4 (#$ . 14509) ["P" (mml-mode)]])
#@140 Add MML tag to encrypt and sign the entire message.
If called with a prefix argument, only encrypt (do NOT sign).

(fn &optional DONTSIGN)
(defalias 'mml-secure-message-encrypt-pgpmime #[256 "\300\301\203\n\302\202\303\"\207" [mml-secure-message "pgpmime" encrypt signencrypt] 4 (#$ . 14823) ["P" (mml-mode)]])
#@140 Add MML tag to encrypt and sign the entire message.
If called with a prefix argument, only encrypt (do NOT sign).

(fn &optional DONTSIGN)
(defalias 'mml-secure-message-encrypt-pgpauto #[256 "\300\301\203\n\302\202\303\"\207" [mml-secure-message "pgpauto" encrypt signencrypt] 4 (#$ . 15145) ["P" (mml-mode)]])
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\210\300\310\302\303#\210\304\211\203W\211@\310
N\203P\302
N\204P\305\302\310N#\210
A\266\202\2026\210\306\310\302\307#\210\311\302\312\313\314DD\315\316\317\320\321&\210\300\322\323\303#\210\304\211\203\225\211@\322
N\203\216\323
N\204\216\305\323\322N#\210
A\266\202\202t\210\306\322\323\307#\210\311\323\312\313\324DD\325\316\317\320\326&\210\300\327\330\303#\210\304\211\203\323\211@\327
N\203\314\330
N\204\314\305\330\327N#\210
A\266\202\202\262\210\306\327\330\307#\210\300\331\330\303#\210\304\211\203
\211@\331
N\203\373\330
N\204\373\305\330\331N#\210
A\266\202\202\341\210\306\331\330\307#\210\311\330\312\313\332DD\333\316\317\320\334&\210\300\335\336\303#\210\304\211\203@
\211@\335
N\2039
\336
N\2049
\305\336\335N#\210
A\266\202\202
\210\306\335\336\307#\210\311\336\312\313\337DD\340\316\317\320\341&\210\300\342\343\303#\210\304\211\203~
\211@\342
N\203w
\343
N\204w
\305\343\342N#\210
A\266\202\202]
\210\306\342\343\307#\210\311\343\312\313\344DD\345\316\317\320\346&\210\300\347\350\303#\210\304\211\203\274
\211@\347
N\203\265
\350
N\204\265
\305\350\347N#\210
A\266\202\202\233
\210\306\347\350\307#\210\311\350\312\313\351DD\352\316\317\320\346&\210\300\353\354\303#\210\304\211\203\372
\211@\353
N\203\363
\354
N\204\363
\305\354\353N#\210
A\266\202\202\331
\210\306\353\354\307#\210\311\354\312\313\355DD\356\316\317\320\346&\210\311\357\312\313\360DD\361\362\307\316\317\320\346&	\210\311\363\312\313\364DD\365\362\307\316\317\320\366&	\207" [defvaralias mml1991-signers mml-secure-openpgp-signers nil (saved-value saved-variable-comment) put make-obsolete-variable "25.1" mml2015-signers custom-declare-variable funcall function #[0 "\300\207" [nil] 1 #1=""] "A list of your own key ID(s) which will be used to sign OpenPGP messages.\nIf set, it is added to the setting of `mml-secure-openpgp-sign-with-sender'." :group mime-security :type (repeat (string :tag "Key ID")) mml-smime-signers mml-secure-smime-signers #[0 "\300\207" [nil] 1 #1#] "A list of your own key ID(s) which will be used to sign S/MIME messages.\nIf set, it is added to the setting of `mml-secure-smime-sign-with-sender'." (repeat (string :tag "Key ID")) mml1991-encrypt-to-self mml-secure-openpgp-encrypt-to-self mml2015-encrypt-to-self #[0 "\300\207" [nil] 1 #1#] "List of own key ID(s) or t; determines additional recipients with OpenPGP.\nIf t, also encrypt to key for message sender; if list, encrypt to those keys.\nWith this variable, you can ensure that you can decrypt your own messages.\nAlternatives to this variable include Bcc'ing the message to yourself or\nusing the encrypt-to or hidden-encrypt-to option in gpg.conf (see man gpg(1)).\nNote that this variable and the encrypt-to option give away your identity\nfor *every* encryption without warning, which is not what you want if you are\nusing, e.g., remailers.\nAlso, use of Bcc gives away your identity for *every* encryption without\nwarning, which is a bug, see:\nhttps://debbugs.gnu.org/cgi/bugreport.cgi?bug=18718" (choice (const :tag "None" nil) (const :tag "From address" t) (repeat (string :tag "Key ID"))) mml-smime-encrypt-to-self mml-secure-smime-encrypt-to-self #[0 "\300\207" [nil] 1 #1#] "List of own key ID(s) or t; determines additional recipients with S/MIME.\nIf t, also encrypt to key for message sender; if list, encrypt to those keys.\nWith this variable, you can ensure that you can decrypt your own messages.\nAlternatives to this variable include Bcc'ing the message to yourself or\nusing the encrypt-to option in gpgsm.conf (see man gpgsm(1)).\nNote that this variable and the encrypt-to option give away your identity\nfor *every* encryption without warning, which is not what you want if you are\nusing, e.g., remailers.\nAlso, use of Bcc gives away your identity for *every* encryption without\nwarning, which is a bug, see:\nhttps://debbugs.gnu.org/cgi/bugreport.cgi?bug=18718" (choice (const :tag "None" nil) (const :tag "From address" t) (repeat (string :tag "Key ID"))) mml2015-sign-with-sender mml-secure-openpgp-sign-with-sender #[0 "\300\207" [nil] 1 #1#] "If t, use message sender to find an OpenPGP key to sign with.\nAlso use message's sender with GnuPG's --sender option." boolean mml-smime-sign-with-sender mml-secure-smime-sign-with-sender #[0 "\300\207" [nil] 1 #1#] "If t, use message sender to find an S/MIME key to sign with." mml2015-always-trust mml-secure-openpgp-always-trust #[0 "\300\207" [t] 1 #1#] "If t, skip key validation of GnuPG on encryption." mml-secure-fail-when-key-problem #[0 "\300\207" [nil] 1 #1#] "If t, raise an error if some key is missing or several keys exist.\nOtherwise, ask the user." :version mml-secure-key-preferences #[0 "\300\207" [((OpenPGP (sign) (encrypt)) (CMS (sign) (encrypt)))] 1 #1#] "Protocol- and usage-specific fingerprints of preferred keys.\nThis variable is only relevant if a recipient owns multiple key pairs (for\nencryption) or you own multiple key pairs (for signing).  In such cases,\nyou will be asked which key(s) should be used, and your choice can be\ncustomized in this variable." (alist :key-type (symbol :tag "Protocol") :value-type (alist :key-type (symbol :tag "Usage") :value-type (alist :key-type (string :tag "Name") :value-type (repeat (string :tag "Fingerprint")))))] 10)
#@63 Return preferences for CONTEXT and USAGE.

(fn CONTEXT USAGE)
(defalias 'mml-secure-cust-usage-lookup #[514 "\302!>\204\303\304\305D\"\210
\306H\307
	\"A\307\"\207" [cl-struct-epg-context-tags mml-secure-key-preferences type-of signal wrong-type-argument epg-context 1 assoc] 7 (#$ . 20891)])
#@94 Return fingerprints of preferred keys for CONTEXT, USAGE, and NAME.

(fn CONTEXT USAGE NAME)
(defalias 'mml-secure-cust-fpr-lookup #[771 "\300\"\301A\"\211\205\211A\207" [mml-secure-cust-usage-lookup assoc] 7 (#$ . 21197)])
#@178 For CONTEXT, USAGE, and NAME record fingerprint(s) of KEYS.
If optional SAVE is not nil, save customized fingerprints.
Return keys.

(fn CONTEXT USAGE NAME KEYS &optional SAVE)
(defalias 'mml-secure-cust-record-keys #[1284 "
\204\301\302!\210\303\"\304A\"A\305\306\"\307\310\311$\203,\304A\"
\241\210\2026BAB\241\210\203?\312\300\"\210\207" [mml-secure-key-preferences cl--assertion-failed keys mml-secure-cust-usage-lookup assoc mapcar mml-secure-fingerprint cl-union :test equal customize-save-variable] 13 (#$ . 21434)])
#@141 Remove keys for CONTEXT, USAGE, and NAME.
Return t if a customization for NAME was present (and has been removed).

(fn CONTEXT USAGE NAME)
(defalias 'mml-secure-cust-remove-keys #[771 "\300\"\301\"\211\205
\302A\"\241\210\303\207" [mml-secure-cust-usage-lookup assoc remove t] 9 (#$ . 21989)])
(defvar mml-secure-secret-key-id-list nil)
#@52 Record KEY-ID in list of secret keys.

(fn KEY-ID)
(defalias 'mml-secure-add-secret-key-id #[257 "\211\235\203\207\211B\211\207" [mml-secure-secret-key-id-list] 3 (#$ . 22341)])
#@60 Remove passwords from cache and clear list of secret keys.
(defalias 'mml-secure-clear-secret-key-id-list #[0 "\211\203\211@\301
!\210
A\266\202\202
\210\302\211\207" [mml-secure-secret-key-id-list password-cache-remove nil] 4 (#$ . 22531)])
#@161 Return t if OpenPGP or S/MIME passphrases should be cached for PROTOCOL.
Passphrase caching in Emacs is NOT recommended.  Use gpg-agent instead.

(fn PROTOCOL)
(defalias 'mml-secure-cache-passphrase-p #[257 "\211\304=\203\206/\305\301!\203	\206/\305\302!\203\n\206/\211\306=\205/\206/\305\303!\205/\207" [mml-secure-cache-passphrase mml2015-cache-passphrase mml1991-cache-passphrase mml-smime-cache-passphrase OpenPGP boundp CMS] 3 (#$ . 22785)])
#@146 Return time in seconds to cache passphrases for PROTOCOL.
Passphrase caching in Emacs is NOT recommended.  Use gpg-agent instead.

(fn PROTOCOL)
(defalias 'mml-secure-cache-expiry-interval #[257 "\211\304=\203\305\300!\203\206/\305\301!\203	\206/\n\206/\211\306=\205/\305\303!\203.\206/\n\207" [mml2015-passphrase-cache-expiry mml1991-passphrase-cache-expiry mml-secure-passphrase-cache-expiry mml-smime-passphrase-cache-expiry OpenPGP boundp CMS] 3 (#$ . 23254)])
#@121 Ask for passphrase in CONTEXT for KEY-ID for STANDARD.
The passphrase is read and cached.

(fn CONTEXT KEY-ID STANDARD)
(defalias 'mml-secure-passphrase-callback #[771 "
\303=\203\f\304\305#\207
\306=\203\307\202
\310\"\311\306=\203&\312\2029
\2034\313\314A#\2029\313\315\"\"\211\205d\316\317!	>\204Q\320\321\322	D\"\210\323H!\324\"\210)\325!\210\326
!\207" [epg-user-id-alist cl-struct-epg-context-tags password-cache-expiry SYM epa-passphrase-callback-function nil PIN "PIN" assoc password-read "Passphrase for PIN: " format "Passphrase for %s %s: " "Passphrase for %s: " mml-secure-cache-expiry-interval type-of signal wrong-type-argument epg-context 1 password-cache-add mml-secure-add-secret-key-id copy-sequence] 11 (#$ . 23740)])
#@89 Check whether KEY has a non-revoked, non-expired UID for RECIPIENT.

(fn KEY RECIPIENT)
(defalias 'mml-secure-check-user-id #[514 "\302!>\204\303\304\305D\"\210
\306H\3072\237\211\211\203\233\211@\302
!	>\204,\303\304\310D\"\210\211\311H;\203\224\3121O\313\302!	>\204G\303\304\310D\"\210
\311H!0\202Q\210\314@\203\224\313\302!	>\204e\303\304\310D\"\210
\311H!@\227\313!@\206s\227\232\203\224\302
!	>\204\207\303\304\310D\"\210\211\315H\316>\204\224\317\307\320\"\210
A\266\202\202\314\262
0\207" [cl-struct-epg-key-tags cl-struct-epg-user-id-tags type-of signal wrong-type-argument epg-key 3 break epg-user-id 2 (error) mail-header-parse-address nil 1 (revoked expired) throw t] 10 (#$ . 24514)])
#@93 Return t if keyring for CONTEXT contains secret key for public SUBKEY.

(fn CONTEXT SUBKEY)
(defalias 'mml-secure-secret-key-exists-p #[514 "\301
!>\204\302\303\304D\"\210\211\305H\306\307#\211G\211\310Y\203%\311\312#\210\211\313U\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 9 epg-list-keys secret 2 error "Found %d secret keys with same fingerprint %s" 1] 9 (#$ . 25245)])
#@562 Check whether in CONTEXT the public KEY has a usable subkey for USAGE.
This is the case if KEY is not disabled, and there is a subkey for
USAGE that is neither revoked nor expired.  Additionally, if optional
FINGERPRINT is present and if it is not the primary key's fingerprint, then
the returned subkey must have that FINGERPRINT.  FINGERPRINT must consist of
hexadecimal digits only (no leading "0x" allowed).
If USAGE is not `encrypt', then additionally an appropriate secret key must
be present in the keyring.

(fn CONTEXT KEY USAGE &optional FINGERPRINT)
(defalias 'mml-secure-check-sub-key #[1027 "\303!>\204\304\305\306D\"\210\307H\211@\303
!	>\204#\304\305\310D\"\210\211\311H\312\303!	>\2046\304\305\310D\"\210\307H>?\205\320\3132\320\211\203\314\211@\303!	>\204Z\304\305\310D\"\210
\307H>\203\305\303
!	>\204p\304\305\310D\"\210\211\314H\315>\204\305\316=\204\207\317	\"\203\305\203\300\320P\321\322\323#)\266\203\204\300\320P\303!	>\204\257\304\305\310D\"\210
\311H\321\322\323#)\266\203\203\305\324\313\322\"\210
A\266\202\202C\321\262
0\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags inhibit-changing-match-data type-of signal wrong-type-argument epg-key 2 epg-sub-key 9 disabled break 1 (revoked expired) encrypt mml-secure-secret-key-exists-p "$" nil t string-match throw] 16 (#$ . 25671)])
#@618 In CONTEXT return a list of keys for NAME and USAGE.
If USAGE is `encrypt' public keys are returned, otherwise secret ones.
Only non-revoked and non-expired keys are returned whose primary key is
not disabled.
NAME can be an e-mail address or a key ID.
If NAME just consists of hexadecimal digits (possibly prefixed by "0x"), it
is treated as key ID for which at most one key must exist in the keyring.
Otherwise, NAME is treated as user ID, for which no keys are returned if it
is expired or revoked.
If optional JUSTONE is not nil, return the first key instead of a list.

(fn CONTEXT NAME USAGE &optional JUSTONE)
(defalias 'mml-secure-find-usable-keys #[1027 "\300\"\301\302\"\303\304\"\305\203!G\304Y\203!\306\307#\210\3102a\211\203]\211@\2048\311
\n\"\203V\312\n\n$\203V\203Q\313\310\"\210\202V\211B\262
A\266\202\202&
\262
0\207" [epg-list-keys string-match "\\(0x\\)?\\([[:xdigit:]]\\{8,\\}\\)" match-string 2 nil error "Name %s (for %s) looks like a key ID but multiple keys found" break mml-secure-check-user-id mml-secure-check-sub-key throw] 15 (#$ . 27044)])
#@414 Return list of preferred keys in CONTEXT for NAMES and USAGE.
This inspects the keyrings to find keys for each name in NAMES.  If several
keys are found for a name, `mml-secure-select-keys' is used to look for
customized preferences or have the user select preferable ones.
When `mml-secure-fail-when-key-problem' is t, fail with an error in
case of missing, outdated, or multiple keys.

(fn CONTEXT NAMES USAGE)
(defalias 'mml-secure-select-preferred-keys #[771 "\300\301\302\303\304#\"\"\207" [apply nconc mapcar make-closure #[257 "\303\300\301#\211G\211\304U\203#\n\204\305\306\307\301#!?\2051\310\311\301#\207\211\312U\203+
\207\313\300\301$\207" [V0 V1 mml-secure-fail-when-key-problem mml-secure-find-usable-keys 0 y-or-n-p format "No %s key for %s; skip it? " error "No %s key for %s" 1 mml-secure-select-keys] 8 "\n\n(fn NAME)"]] 10 (#$ . 28157)])
#@46 Return fingerprint for public KEY.

(fn KEY)
(defalias 'mml-secure-fingerprint #[257 "\302\211!>\204\303\304\305D\"\210
\306H@!	>\2044\303\304\307\302!>\204-\303\304\305D\"\210\306H@D\"\210\302
!>\204C\303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 9] 8 (#$ . 29036)])
#@66 Filter KEYS to subset with fingerprints in FPRS.

(fn KEYS FPRS)
(defalias 'mml-secure-filter-keys #[514 "
\205\300@!
\235\203
@\301A\"B\207\301A\"\207" [mml-secure-fingerprint mml-secure-filter-keys] 6 (#$ . 29426)])
#@91 Normalize NAME to be used for customization.
Currently, remove ankle brackets.

(fn NAME)
(defalias 'mml-secure-normalize-cust-name #[257 "\300\301\"\203\f\302\303\"\207\207" [string-match "^<\\(.*\\)>$" match-string 1] 4 (#$ . 29659)])
#@287 In CONTEXT for NAME select among KEYS for USAGE.
KEYS should be a list with multiple entries.
NAME is normalized first as customized keys are inspected.
When `mml-secure-fail-when-key-problem' is t, fail with an error in case of
outdated or multiple keys.

(fn CONTEXT NAME KEYS USAGE)
(defalias 'mml-secure-select-keys #[1028 "\301!\302#\303\304\"
\203D\305\"\203\306\"\207\307#\210\310\"\2033\311\312#\207\313\314\315#%\207\203N\311\316#\207\313\314\317\n\n#%\207" [mml-secure-fail-when-key-problem mml-secure-normalize-cust-name mml-secure-cust-fpr-lookup mapcar mml-secure-fingerprint gnus-subsetp mml-secure-filter-keys mml-secure-cust-remove-keys gnus-setdiff error "Customization of %s keys for %s outdated" mml-secure-select-keys-1 format "Customized keys\n (%s)\nfor %s not available any more.\nSelect anew.  " "Multiple %s keys for %s" "Multiple %s keys for:\n %s\nSelect preferred one(s).  "] 17 (#$ . 29906)])
#@136 In CONTEXT for NAME let user select among KEYS for USAGE, showing MESSAGE.
Return selected keys.

(fn CONTEXT NAME KEYS USAGE MESSAGE)
(defalias 'mml-secure-select-keys-1 #[1285 "\301
\"\211G\302
\203)\303\304\305\n$!\203%\306\307%\202<
\202<\303\304\310	#!?\205<\311\312#)\207" [message-truncate-lines epa--select-keys nil y-or-n-p format "%d %s key(s) selected.  Store for %s? " mml-secure-cust-record-keys save "No %s key for %s; skip it? " error "No %s key for %s"] 13 (#$ . 30883)])
#@329 Determine signer names for PROTOCOL and message from SENDER.
Returned names may be e-mail addresses or key IDs and are determined based
on `mml-secure-openpgp-signers' and `mml-secure-openpgp-sign-with-sender' with
OpenPGP or `mml-secure-smime-signers' and `mml-secure-smime-sign-with-sender'
with S/MIME.

(fn PROTOCOL SENDER)
(defalias 'mml-secure-signer-names #[514 "
\304=\203\305	\205\205\306\307QC\"\207\305\n\205&\205&\306\307QC\"\207" [mml-secure-openpgp-signers mml-secure-openpgp-sign-with-sender mml-secure-smime-signers mml-secure-smime-sign-with-sender OpenPGP append "<" ">"] 7 (#$ . 31401)])
#@198 Determine signing keys in CONTEXT from SIGNER-NAMES.
If `mm-sign-option' is `guided', the user is asked to choose.
Otherwise, `mml-secure-select-preferred-keys' is used.

(fn CONTEXT SIGNER-NAMES)
(defalias 'mml-secure-signers #[514 "\301=\203
\302\303\304$\207\305\306#\207" [mm-sign-option guided epa-select-keys "Select keys for signing.\nIf no one is selected, default secret key is used.  " t mml-secure-select-preferred-keys sign] 7 (#$ . 32029)])
#@155 Determine additional recipients based on encrypt-to-self variables.
PROTOCOL specifies OpenPGP or S/MIME for a message from SENDER.

(fn PROTOCOL SENDER)
(defalias 'mml-secure-self-recipients #[514 "
\302=\203\n\202	\211\205\211<\203\207
C\207" [mml-secure-openpgp-encrypt-to-self mml-secure-smime-encrypt-to-self OpenPGP] 4 (#$ . 32496)])
#@168 Determine encryption recipients.
PROTOCOL specifies OpenPGP or S/MIME with matching CONTEXT and CONFIG
for a message from SENDER.

(fn PROTOCOL CONTEXT CONFIG SENDER)
(defalias 'mml-secure-recipients #[1028 "\301\302\303\304\305\"\306\307\310!\206\311\310\312\313!\"\314\"\"\"\211\315\"\244\210\316=\203-\317\320#\207\321\322#\262
\211\204<\323\324!\210\207" [mm-encrypt-option apply nconc mapcar make-closure #[257 "\301\300\"\206\f\302
\303QC\207" [V0 epg-expand-group "<" ">"] 4 "\n\n(fn RECIPIENT)"] split-string message-options-get message-recipients message-options-set read-string "Recipients: " "[ \f	\n
,]+" mml-secure-self-recipients guided epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " mml-secure-select-preferred-keys encrypt error "No recipient specified"] 13 (#$ . 32851)])
#@37 

(fn PROTOCOL CONT &optional SIGN)
(defalias 'mml-secure-epg-encrypt #[770 "\304!\305\306!\307\310!\311$\312\"\313\211\203]\314\"\262
\315!>\2044\316\317\320	D\"\210\321I\210	\306=\203]	\203]\315!>\204V\316\317\320	D\"\210\322I\210	\306=\203\222\315!>\204u\316\317\320	D\"\210\323\324I\210\315!>\204\214\316\317\320	D\"\210\325\324I\210\326\n!\203\242\327\330\fB\"\210\3311\315	\306=\203\273\332\333 \n%\202\303\332\333 #\262\313\2110\210\202\330\334 \210\316
@A\"\266
\207" [cl-struct-epg-context-tags mml-secure-openpgp-sign-with-sender mml-secure-openpgp-always-trust mml-secure-secret-key-id-list epg-make-context epg-find-configuration OpenPGP message-options-get message-sender mml-secure-recipients mml-secure-signer-names nil mml-secure-signers type-of signal wrong-type-argument epg-context 13 14 4 t 5 mml-secure-cache-passphrase-p epg-context-set-passphrase-callback mml-secure-passphrase-callback (error) epg-encrypt-string buffer-string mml-secure-clear-secret-key-id-list] 16 (#$ . 33734)])
#@313 Query whether to use SENDER to sign when using PROTOCOL.
PROTOCOL will be `OpenPGP' or `CMS' (smime).
This can also save the resulting value of
`mml-secure-smime-sign-with-sender' or
`mml-secure-openpgp-sign-with-sender' via Customize.
Returns non-nil if the user has chosen to use SENDER.

(fn PROTOCOL SENDER)
(defalias 'mml-secure-sender-sign-query #[514 "\302\303!\304\305\211\211\306 \307\310\"\216\311!\210\312 \210\313\314	\315=\203#\316\202$\317	#c\210\204\202\320\321\"\262@\211\322\267\210\202)\315=\203N\323\324\300\323\"\210\202U\323\324\301\323\"\210\323\262\323\262\210\202)\315=\203k\323\202m\323\323\262\323\262\210\202)\323\262\210\202)\210\202))\210\207" [mml-secure-openpgp-sign-with-sender mml-secure-smime-sign-with-sender get-buffer-create "*MML sender signing options*" ((97 "always" "Sign using this sender now and sign with message sender in future.") (115 "session only" "Sign using this sender now, and sign with message sender for this session only.") (110 "no" "Do not sign this message (and error out)")) nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] pop-to-buffer erase-buffer format "No %s signing key was found for this message.\nThe sender of this message is \"%s\".\nWould you like to attempt looking up a signing key based on it?" OpenPGP "openpgp" "smime" read-multiple-choice "Sign this message using the sender?" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (97 61 115 95 110 119)) t customize-save-variable] 12 (#$ . 34822)])
#@22 

(fn PROTOCOL MODE)
(defalias 'mml-secure-epg-sign #[514 "\306!\307\310!\311\"\312\"\313\211\204G\2040\314\"\2030\311\"\262\312\"\262\204G	\204<\n\203@\315\202A\316\317\320\"\266\321=\203\225\322!>\204_\323\324\325D\"\210\326\327I\210\322!>\204u\323\324\325D\"\210\330\327I\210\n\203\225\322!>\204\217\323\324\325D\"\210\331I\210\322!>\204\246\323\324\325D\"\210\332I\210\333!\203\273\334\335\nB\"\210\3361\346\321=\203\321\337\340 	#\202\334\337\341\342\343\340 #\327#\262\313\2110\210\202\361\344 \210\323
@A\"\266\345\346\"\203
\345\346\"@\322
!
>\204
\323\324\347D\"\210\211\350H\262
\262


B\207" [noninteractive mml-secure-smime-sign-with-sender mml-secure-openpgp-sign-with-sender cl-struct-epg-context-tags mml-secure-secret-key-id-list cl-struct-epg-new-signature-tags epg-make-context message-options-get message-sender mml-secure-signer-names mml-secure-signers nil mml-secure-sender-sign-query "." "; try setting `mml-secure-smime-sign-with-sender' or 'mml-secure-openpgp-sign-with-sender'." error "Couldn't find any signer names%s" OpenPGP type-of signal wrong-type-argument epg-context 4 t 5 14 13 mml-secure-cache-passphrase-p epg-context-set-passphrase-callback mml-secure-passphrase-callback (error) epg-sign-string buffer-string string-replace "\n" "
\n" mml-secure-clear-secret-key-id-list epg-context-result-for sign epg-new-signature 3] 14 (#$ . 36422)])
(provide 'mml-sec)