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



(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\307\"\210\303\310\307\"\210\303\311\312\"\210\313\314\315\316\317\320%\210\321\322\323\324\325DD\326\327\330%\210\321\331\323\324\332DD\333\327\334%\210\321\335\323\324\336DD\337\327\340%\210\321\341\323\324\342DD\343\344\345\327\346&\210\321\347\323\324\350DD\351\327\352%\210\321\353\323\324\354DD\355\344\345\327\356&\210\321\357\323\324\360DD\361\327\362%\210\321\363\323\324\364DD\365\327\366%\210\321\367\323\324\370DD\371\327\366%\210\321\372\323\324\373DD\374\327\375%\210\321\376\323\324\377DD\201@\327\366%\210\321\201A\323\324\201BDD\201C\327\201D%\210\321\201E\323\324\201FDD\201G\327\366\344\201H&\210\321\201I\323\324\201JDD\201K\327\201L%\210\321\201M\323\324\201NDD\201O\327\201P\344\201Q&\210\321\201R\323\324\201SDD\201T\327\201U\344\201Q&\210\321\201V\323\324\201WDD\201X\327\366\344\201Y&\207" [require sendmail auth-source autoload mail-strip-quoted-names "mail-utils" message-make-date "message" message-make-message-id rfc2104-hash "rfc2104" custom-declare-group smtpmail nil "SMTP protocol for sending mail." :group mail custom-declare-variable smtpmail-default-smtp-server funcall function #[0 "\300\207" [nil] 1 #1=""] "Specify default SMTP server.\nThis only has effect if you specify it before loading the smtpmail library." :type (choice (const nil) string) smtpmail-smtp-server #[0 "\301\302!\206\207" [smtpmail-default-smtp-server getenv "SMTPSERVER"] 2 #1#] "The name of the host running SMTP server." (choice (const nil) string) smtpmail-smtp-service #[0 "\300\207" [25] 1 #1#] "SMTP service port number.\nThe default value would be \"smtp\" or 25." (choice (integer :tag "Port") (string :tag "Service")) smtpmail-smtp-user #[0 "\300\207" [nil] 1 #1#] "User name to use when looking up credentials in the authinfo file.\nIf non-nil, only consider credentials for the specified user." :version "24.1" (choice (const nil) string) smtpmail-local-domain #[0 "\300\207" [nil] 1 #1#] "Local domain name without a host name.\nIf the function `system-name' returns the full internet address,\ndon't define this value." (choice (const nil) string) smtpmail-stream-type #[0 "\300\207" [nil] 1 #1#] "Type of SMTP connections to use.\nThis may be either nil (upgrade with STARTTLS if possible),\n`starttls' (refuse to send if STARTTLS isn't available),\n`plain' (never use STARTTLS), or `ssl' (to use TLS/SSL)." (choice (const :tag "Possibly upgrade to STARTTLS" nil) (const :tag "Always use STARTTLS" starttls) (const :tag "Never use STARTTLS" plain) (const :tag "Use TLS/SSL" ssl)) smtpmail-sendto-domain #[0 "\300\207" [nil] 1 #1#] "Local domain name without a host name.\nThis is appended (with an @-sign) to any specified recipients which do\nnot include an @-sign, so that each RCPT TO address is fully qualified.\n(Some configurations of sendmail require this.)\n\nDon't bother to set this unless you have get an error like:\n	Sending failed; 501 <someone>: recipient address must contain a domain." (choice (const nil) string) smtpmail-debug-info #[0 "\300\207" [nil] 1 #1#] "Whether to print info in buffer *trace of SMTP session to <somewhere>*.\nSee also `smtpmail-debug-verb' which determines if the SMTP protocol should\nbe verbose as well." boolean smtpmail-debug-verb #[0 "\300\207" [nil] 1 #1#] "Whether this library sends the SMTP VERB command or not.\nThe commands enables verbose information from the SMTP server." smtpmail-code-conv-from #[0 "\300\207" [nil] 1 #1#] "Coding system for encoding outgoing mail.\nUsed for the value of `sendmail-coding-system' when\n`select-message-coding-system' is called." coding-system smtpmail-queue-mail #[0 "\300\207" [nil] 1 #1#] "Non-nil means mail is queued; otherwise it is sent immediately.\nIf queued, it is stored in the directory `smtpmail-queue-dir' and\nsent with `smtpmail-send-queued-mail'.  Also see\n`smtpmail-store-queue-variables'." smtpmail-queue-dir #[0 "\300\207" ["~/Mail/queued-mail/"] 1 #1#] "Directory where `smtpmail.el' stores queued mail.\nThis directory should not be writable by other users." directory smtpmail-warn-about-unknown-extensions #[0 "\300\207" [nil] 1 #1#] "If set, print warnings about unknown SMTP extensions.\nThis is mainly useful for development purposes, to learn about\nnew SMTP extensions that might be useful to support." "21.1" smtpmail-queue-index-file #[0 "\300\207" ["index"] 1 #1#] "File name of queued mail index.\nThis is relative to `smtpmail-queue-dir'." string smtpmail-servers-requiring-authorization #[0 "\300\207" [nil] 1 #1#] "Regexp matching servers that require authorization.\nNormally smtpmail will try first to send emails via SMTP without\nuser/password credentials, and then retry using credentials if\nthe server says that it requires it.  If the server name matches\nthis regexp, smtpmail will send over the credentials on the first\nattempt." (choice regexp (const :tag "None" nil)) "27.1" smtpmail-retries #[0 "\300\207" [10] 1 #1#] "The number of times smtpmail will retry sending when getting transient errors.\nThese are errors with a code of 4xx from the SMTP server, which\nmean \"try again\"." integer smtpmail-store-queue-variables #[0 "\300\207" [nil] 1 #1#] "If non-nil, store SMTP variables when queueing mail.\nThese will then be used when sending the queue." "28.1"] 8)
(defvar smtpmail-recipient-address-list nil)
(defvar smtpmail--stored-queue-variables '(smtpmail-smtp-server smtpmail-stream-type smtpmail-smtp-service smtpmail-smtp-user))
(defvar smtpmail-queue-counter 0)
#@158 List of supported SMTP AUTH mechanisms.
The list is in preference order.
Every element should have a matching `cl-defmethod'
for `smtpmail-try-auth-method'.
(defvar smtpmail-auth-supported '(cram-md5 plain login) (#$ . 5628))
#@70 Value to use for envelope-from address for mail from ambient buffer.
(defvar smtpmail-mail-address nil (#$ . 5860))
(defalias 'smtpmail-send-it #[0 "\203\n\306\307!\202\310\306\311!\312\211\211p\214\313 \210	\203\314 \2062\315\316!\211\205+\317
!A@\262
\2062\320 )\n\205<\321 )@\322\323#\216rq\210\324 \210\325\312\326#\210\327
!\210db\210h\330U\204f\330c\210\331 \210\332 \262A\203w\333e\"\210eb\210\334\335\326#\203\217`W\203\217\336\337!\210\202z\326@eb\210\334\340\326#\203\244\336\341!\210\202\267\334\342\326#\203\267\310\225U\203\267\336\341!\210eb\210\334\343\326#\204R

\344 B\345\267\266\202R
\346
\261\210e\347\\\332 
b\210\334\350\351#\203\374
b\210\352c\210\334\353\351#\203\371\336\354\326\"\210\202\351\352c\210\266\355\356\261\266\202R
\346\357\261\210`
c\210\332 
b\210\334\360\351#\203'
\336\354\326\"\210\202

b\210\334\361\351#\203=
\336\362\326\"\210
b\210\202*
\266\363c\266\202R
\346\337\261\266\202R
\266eb\210\334\364\326#\204d
\365\366 \337\261\210eb\210\334\367\326#\204v
\370\371 \337\261\210\312eb\210C\372=\203\265
\334\373\326#\204\265
\374\312w\210`dU\204\265
\203\265
\375\376\"\211\262\203\265
b\203\265
\377\201N\201O!\201P\261\210\210Tb\210\201QD\326\"\203\311
\201R \210eb\210\334\201S\326#\203\347
\201T\201U\"E\201V!\210)\203\363
rq\210\324 \210))\201We\"\210\306\201X!F\201Ye#G\201ZF!\210\201[!\210H\204IG\203?\201\\G\"\211\262\205\201]\201^\201_!\"\202\201]\201`!\202\201a\201b\201c\201d\201e!IT\211I#J\"\201f
!\211\201gP\201h!\201iJ!\204\203\201jJ\326\"\210r\211q\210\324 \210\325\201T\206\225\201k\201U\"\312\326#\210\327	!\210\201l!\210\201mE\306\201n\326\"r\211q\210\322\201o\"\216\201pc\210\201GK\205\315LB\211\203\347\211@\201b\201q\211J#c\210
A\266\202\202\316\210\363c\210\201red\312\201s%\210*\210)\201r\337P\312\201aMJ\"\326\201s%\210)\201Z
!\266\204-\207" [mail-interactive mail-specify-envelope-from enable-multibyte-characters smtpmail-code-conv-from sendmail-coding-system smtpmail-mail-address generate-new-buffer " smtpmail errors" 0 " smtpmail temp" nil message-narrow-to-headers mail-envelope-from mail-fetch-field "from" mail-extract-address-components smtpmail-user-mail-address select-message-coding-system make-closure #[0 "\302\301!\210\303\300!\205
\302\300!\207" [V0 V1 kill-buffer bufferp] 2] erase-buffer set-buffer-file-coding-system t insert-buffer-substring 10 mail-sendmail-undelimit-header point-marker expand-mail-aliases re-search-forward "\n\n\n*" replace-match "\n" "^Subject:\\([ 	]*\n\\)+\\b" "" "^Subject:\\([ 	]*\n\\)+" "^From:" user-full-name #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (angles 206 parens 264 nil 326)) "From: " 6 "[^- !#-'*+/-9=?A-Z^-~]" 1 "\"" "[\"\\]" "\\\\\\&" " <" ">\n" " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")\n" "^Message-Id:" "Message-Id: " message-make-message-id "^Date:" "Date: " message-make-date mime "^MIME-version:" "-" coding-system-get mime-charset "MIME-version: 1.0\n" case-fold-search mail-aliases mail-from-style mail-send-nonascii mail-mailer-swallows-blank-line coding-system-for-write smtpmail-address-buffer smtpmail-recipient-address-list smtpmail-queue-mail smtpmail-queue-counter smtpmail-queue-dir smtpmail-store-queue-variables smtpmail--stored-queue-variables smtpmail-queue-index-file "Content-type: text/plain; charset=" symbol-name "\nContent-Transfer-Encoding: 8bit\n" eval newline "^Fcc:" coding-system-change-eol-conversion unix mail-do-fcc mail-encode-header "*smtp-mail*" smtpmail-deduce-address-list kill-buffer smtpmail-do-bcc smtpmail-via-smtp error "Sending failed: %s" smtpmail--sanitize-error-message "Sending failed; no recipients" expand-file-name format "%s_%i" format-time-string "%Y-%m-%d_%H:%M:%S" convert-standard-filename ".el" create-file-buffer file-exists-p make-directory undecided write-file utf-8 " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "(setq " "     %s %S\n" write-region silent] 17])
#@73 Send mail that was queued as a result of setting `smtpmail-queue-mail'.
(defalias 'smtpmail-send-queued-mail #[0 "\306\307\310\"r\211q\210\311\312\"\216\313\211\314	\"\315\nB\313\f
#\313
#
\316!\210eb\210m\204
`\317 {\262\n	\320P\262	\321$\306\307\310\"r\211q\210\311\322\"\216\316\n!\210\323p!\211:\203k\211@\324=\203k\211A:\204r\325\326\f#\210\211A\313\211\211:\203\236\262
\211
A\262\242\262\211@\262
>\203\226L\210AA\262\202w\266*\210)\306\307\310\"r\211q\210\311\327\"\216\330$\316!\210)%\203\310\214\331 \210\332 )\206\312&'
\204\330\325\333!\210\202\352\334
p\"\211\262\203\352\325\335\336!\"\210+\210\337\n!\210\337	!\210\340 \340\341!|\210\2021\342ed\n#-\266\212*\207" [smtpmail-queue-index-file smtpmail-queue-dir smtpmail--stored-queue-variables smtpmail-smtp-server smtpmail-stream-type smtpmail-smtp-service generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil expand-file-name smtpmail-recipient-address-list insert-file-contents line-end-position ".el" utf-8 #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] read setq error "Unexpected code in %S: %S" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] no-conversion message-narrow-to-headers mail-envelope-from "Sending failed; no recipients" smtpmail-via-smtp "Sending failed: %s" smtpmail--sanitize-error-message delete-file point-at-bol 2 write-region smtpmail-smtp-user coding-system-for-read mail-specify-envelope-from user-mail-address smtpmail-mail-address] 19 (#$ . 10030) nil])
#@77 Try to remove passwords and the like from SMTP error messages.

(fn STRING)
(defalias 'smtpmail--sanitize-error-message #[257 "\300\301\302#\207" [replace-regexp-in-string "\\bAUTH\\b.*" "AUTH"] 5 (#$ . 11646)])
(defalias 'smtpmail-fqdn #[0 "\203\n\301 \302Q\207\301 \207" [smtpmail-local-domain system-name "."] 3])
#@13 

(fn CRED)
(defalias 'smtpmail-cred-server #[257 "\211@\207" [] 2 (#$ . 11973)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-server speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn CRED)
(defalias 'smtpmail-cred-port #[257 "\211A@\207" [] 2 (#$ . 12207)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-port speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn CRED)
(defalias 'smtpmail-cred-key #[257 "\300
8\207" [2] 3 (#$ . 12438)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-key speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn CRED)
(defalias 'smtpmail-cred-user #[257 "\300
8\207" [2] 3 (#$ . 12668)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-user speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn CRED)
(defalias 'smtpmail-cred-cert #[257 "\300
8\207" [3] 3 (#$ . 12900)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-cert speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn CRED)
(defalias 'smtpmail-cred-passwd #[257 "\300
8\207" [3] 3 (#$ . 13132)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put smtpmail-cred-passwd speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn CRED SERVER PORT)
(defalias 'smtpmail-find-credentials #[771 "\30022\301
\211A\262\242\211\262\205/
\211@\262
\232\203
\211A@\262
\232\203\302\300\"\210\202\266\2020\207" [done nil throw] 8 (#$ . 13368)])
#@18 

(fn RECIPIENT)
(defalias 'smtpmail-maybe-append-domain #[257 "\203\301\302\"\203\f\207\211\302Q\207" [smtpmail-sendto-domain string-search "@"] 4 (#$ . 13599)])
#@38 

(fn PROCESS STRING &optional CODE)
(defalias 'smtpmail-command-or-throw #[770 "\300\301\"\210\302\303!\211\262\"\204\304\305\306\307\310!#\"\210\207" [nil smtpmail-send-command smtpmail-ok-p smtpmail-read-response throw done format "%s in response to %s" smtpmail-response-text] 10 (#$ . 13774)])
#@74 

(fn PROCESS SUPPORTED-EXTENSIONS HOST PORT &optional ASK-FOR-PASSWORD)
(defalias 'smtpmail-try-auth-methods #[1284 "
\203\303\304\"\202\f\305\262\306\307\236\243\310#\311\312\313\314\315\n\316\317\320\205*\321\322
&\f@\323
\324\"\2069
@\323\315\"\323\325\"\205I\323\326\"\327!\203S
 \262\203u
\204u\312\316\317\313\f\314
\315\n\320\330\322\331&\f@\262\323\325\"\262\327!\203
 \262\3322\236\203\234\203\234
\203\234\333\334!$\202\2350\211;\203\263\335\313\314\f$\210\336\332\"\202\273
\203\272
 \210\211\262
)\207" [smtpmail-auth-supported auth-source-creation-prompts smtpmail-smtp-user format "%s" "smtp" seq-intersection auth eq ((user . "SMTP user name for %h: ") (secret . "SMTP password for %u@%h: ")) auth-source-search :host :port :user :max 1 :require (:user :secret) :create plist-get :smtp-auth :secret :save-function functionp (:user :secret) t done smtpmail-try-auth-method intern-soft auth-source-forget+ throw] 24 (#$ . 14089)])
(byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\210\306\301\304\316\304\317%\207" [defalias smtpmail-try-auth-method cl-generic-define (_process mech _user _password) nil "Perform authentication of type MECH for USER with PASSWORD.\nMECH should be one of the values in `smtpmail-auth-supported'.\nUSER and PASSWORD should be non-nil.\n\n(fn PROCESS MECH USER PASSWORD)" cl-generic-define-method #[1028 "\300\301\"\207" [error "Mechanism %S not implemented"] 7 "\n\n(fn PROCESS MECH USER PASSWORD)"] (process (_mech (eql 'cram-md5)) user password) #[1028 "\300\301\"\211@\302=\205+\211A@\303\304O\305
!\306\307\310\311%\312Q\313
\314\"\300\n\"\266\205\207" [smtpmail-command-or-throw "AUTH CRAM-MD5" 334 4 nil base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string t] 13 "\n\n(fn PROCESS MECH USER PASSWORD)"] (process (_mech (eql 'login)) user password) #[1028 "\300\301\"\210\300\302\303\"\"\210\300\302\303\"\"\207" [smtpmail-command-or-throw "AUTH LOGIN" base64-encode-string t] 9 "\n\n(fn PROCESS MECH USER PASSWORD)"] (process (_mech (eql 'plain)) user password) #[1028 "\300\301\302\303\303R\304\"P\305#\207" [smtpmail-command-or-throw "AUTH PLAIN " base64-encode-string "" t 235] 12 "\n\n(fn PROCESS MECH USER PASSWORD)"] (process (_mech (eql xoauth2)) user password) #[1028 "\300\301\302\303\304\305\260\306\"P\"\207" [smtpmail-command-or-throw "AUTH XOAUTH2 " base64-encode-string "user=" "
auth=Bearer " "

" t] 13 "\n\n(fn PROCESS MECH USER PASSWORD)"]] 6)
#@15 

(fn STRING)
(defalias 'smtpmail-response-code #[257 "\211\205'\300\301\302\"r\211q\210\303\304\"\216
c\210eb\210\305\306\307\302#\205$\310\311\312!!*\262
\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "^\\([0-9]+\\) " nil string-to-number match-string 1] 6 (#$ . 16718)])
#@32 

(fn RESPONSE &optional CODE)
(defalias 'smtpmail-ok-p #[513 "
@\205
@\250\205
@\300W\205\211?\206\211@U\207" [400] 4 (#$ . 17091)])
#@17 

(fn RESPONSE)
(defalias 'smtpmail-response-text #[257 "\300\301A\302#\207" [mapconcat identity "\n"] 5 (#$ . 17240)])
#@377 Query for an SMTP server and try to contact it.
If the contact succeeds, customizes and saves `smtpmail-smtp-server'
and `smtpmail-smtp-service'.  This tries standard SMTP ports, and if
none works asks you to supply one.  If you know that you need to use
a non-standard port, you can set `smtpmail-smtp-service' in advance.
Returns an error if the server cannot be contacted.
(defalias 'smtpmail-query-smtp-server #[0 "\302\303!\304\305\211\211\203\235\204B\262	\204s\211A\262\242\211\262\203s\3061@\3071:\310\311\305$00\202B0\210\305\202B\210\305\211\262\204a\204\211\204\312\313\314\"!B\262\315\262
\202\316\301\"\210\316\300\"\210\317!\210\202	?\205{\320\321!\207" [smtpmail-smtp-service smtpmail-smtp-server read-string "Outgoing SMTP mail server: " (25 587) nil (error) (quit) open-network-stream "smtp" read-number format "Port number to use when contacting %s? " t customize-save-variable delete-process error "Couldn't contact an SMTP server"] 10 (#$ . 17368)])
#@59 Return `user-mail-address' if it's a valid email address.
(defalias 'smtpmail-user-mail-address #[0 "\205\301\302\"\211G\303U\205\304\305A@\"\205\262
\207" [user-mail-address split-string "@" 2 string-search "."] 4 (#$ . 18386)])
#@80 

(fn RECIPIENT SMTPMAIL-TEXT-BUFFER &optional ASK-FOR-PASSWORD SEND-ATTEMPTS)
(defalias 'smtpmail-via-smtp #[1026 "\204\306 \210\307C
\206\310\206\311\312!	\214\313 \210\n\206:\203'\314 \206:\315\316!\211\2053\317
!A@\262
\206:\320 )\307C\307\211\211\f\203W\f\307\321\322#)\266\203\203W\321\262\323\324\n#\216\3252\313\326\327\330\n\"!\240\210r\242q\210\321@\331 \210)\332\211AB\333\334\242		\335C\336\321\337\340\327\341\342 \"\343\344\345\346\347\321\350\351\352\321\353\321&\262*@\240\204\303\354\325\355A\356\"\203\300\355A\356\"\202\301\357\"\210\360	\242\361\"\210\355A\362\"\363
!\211\204\336\354\325\327\364\"\"\210\211\365Y\203\354\354\325\327\366\"\"\210\266r\242q\210\367	\242\370\211#\210\371\372!\210e:\355A\373\"\363
!\211\203
\211\365Y\203#
\374\242\327\375\342 \"\"\266\202\247
\376\377\201H\355A\373\"\201I\"\"\211\203\245
\211@\201J p\323\201K#\216\201LD!\210\201M\201N\201H\201O\307O\201P\"\")\266\202\211G\310U\203o
\211@\262
\211\203\235
\211:\203}
\211@\202~
\211\201Q>\203\217
\211B\262\210\202\236
E\203\235
\201R\201S\"\210\210
A\266\202\2023
\266\201T	\242		%\262\201U
>\204\307
\201V
>\203\320
\374	\242\201W\"\210F\203\356
\201X
>\204\345
\201Y
>\203\356
\374	\242\201Z\"\210\201[
>\203\377
\374	\242\201\\\"\210\201]
>\204\201]
\236\203'\327\201^r
q\210deZ\201_ed\"\\)\"\202(\377\201`>\2034\377\2025\377\201a\242\327\201b\n$\"\210\201c\201d\f\242!\211\262!\204 @\247\203\310\201e\365@\201f#\203\310	GW\203\310\201R\201g@\f#\210\201h1\237\201a\242\201i\"\210\201d\242!0\210\202\240\210\201j\242!\210\201k\310!\210\n\307\240\210\354\325\201lT$\"\266\202\"\203\f\204@\201m=\203\201n1\367\201a\242\201i\"\210\201d\242!0\210\202\370\210\201j\242!\210\n\307\240\210\354\325\201l\321#\"\266\202\"\354\325\201o!\"\210\266\201p\2118\203\264\201a\n\242\327\201q\201r8!\"\"\210\201c\201d\242!\211\262!\204\255\203\243\204\243@\250\203\243@\201sY\203\243@\201tX\203\243\201a\n\242\201i\"\210\201d\n\242!\210\201j\n\242!\210	\307\240\210\354\325\201l\321#\"\210\202\255\354\325\201o!\"\210\211T\262
\202%\210\374	\242\201u\"\210\201v	\242
\"\210)\3070)\207" [smtpmail-smtp-server smtpmail-smtp-service smtpmail-mail-address mail-specify-envelope-from smtpmail-servers-requiring-authorization inhibit-changing-match-data smtpmail-query-smtp-server nil 1 error "`smtpmail-smtp-server' not defined" message-narrow-to-headers mail-envelope-from mail-fetch-field "from" mail-extract-address-components smtpmail-user-mail-address t string-match make-closure #[0 "\300\242\205-\303\301\242!\205-r\304\300\242!q\210\305\300\242\306\"\210\307\300\242!\210\310\300\242!\210\n?\205,\311\301\242!)\207" [V0 V1 smtpmail-debug-info buffer-live-p process-buffer smtpmail-send-command "QUIT" smtpmail-read-response delete-process kill-buffer] 3] done get-buffer-create format "*trace of SMTP session to %s*" erase-buffer binary open-network-stream "smtpmail" :type :return-list :warn-unless-encrypted :capability-command "EHLO %s
\n" smtpmail-fqdn :end-of-command "^[0-9]+ .*
\n" :success "^2.*\n" :always-query-capabilities :starttls-function #[257 "\300\301\"\205\302\207" [string-match "[ -]STARTTLS" "STARTTLS
\n"] 4 "\n\n(fn CAPABILITIES)"] :client-certificate :use-starttls-if-possible throw plist-get :error "Unable to contact server" set-process-filter smtpmail-process-filter :greeting smtpmail-response-code "No greeting: %s" 400 "Connection not allowed: %s" set-process-coding-system raw-text-unix make-local-variable smtpmail-read-point :capabilities smtpmail-command-or-throw "HELO %s" delete "" buffer-undo-list coding-system-for-write coding-system-for-read smtpmail-stream-type ascii-case-table smtpmail-warn-about-unknown-extensions smtpmail-debug-verb smtpmail-retries split-string "
\n" current-case-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-case-table] 2] set-case-table mapcar #[257 "\300
\227!\207" [intern] 3 "\n\n(fn S)"] 4 "[ ]" (verb xvrb 8bitmime onex xone expn size dsn etrn enhancedstatuscodes help xusr auth=login auth starttls) message "Unknown extension %s" smtpmail-try-auth-methods onex xone "ONEX" verb xvrb "VERB" xusr "XUSR" size " SIZE=%d" count-lines 8bitmime smtpmail-send-command "MAIL FROM:<%s>%s%s" smtpmail-ok-p smtpmail-read-response <= 499 "Got transient error code %s when sending; retrying attempt %d..." (error) "QUIT" delete-process sleep-for smtpmail-via-smtp 530 (error) smtpmail-response-text 0 "RCPT TO:<%s>" smtpmail-maybe-append-domain 550 554 "DATA" smtpmail-send-data] 38 (#$ . 18632)])
#@23 

(fn PROCESS OUTPUT)
(defalias 'smtpmail-process-filter #[514 "r\300!q\210db\210\211c\210\301!`\302\223)\207" [process-buffer process-mark nil] 5 (#$ . 23360)])
#@16 

(fn PROCESS)
(defalias 'smtpmail-read-response #[257 "\303\211\304\305\303\3062\234\203\230	b\210\307\310\303\304#\2043\311!\312>\204(\313\306\303\"\210\314!\210	b\210\202`\262
	
\315Z{B\262	b\210\316\317!\203r\320\224\320\225\n\203W\321\322@\"\210\316\323!\204m\303\262\324{!\237B\262\266\202\316\325!\203\212\n\203\202\321\322@\"\210\211\304\262\202\211\303\262\303\237B\262\202\211\2110\210
)\207" [case-fold-search smtpmail-read-point smtpmail-debug-info nil t (nil nil) done search-forward "
\n" process-status (open run) throw accept-process-output 2 looking-at "[0-9]+ " 0 message "%s" "0[0-9]+ " string-to-number "[0-9]+-"] 11 (#$ . 23530)])
#@24 

(fn PROCESS COMMAND)
(defalias 'smtpmail-send-command #[514 "db\210\301\302\"\203\303\304\"\305\261\210\202\211\306\261\210`\307\306P\"\207" [smtpmail-read-point string-match "\\`AUTH [A-Z]+ " match-string 0 "<omitted>
\n" "
\n" process-send-string] 6 (#$ . 24233)])
#@21 

(fn PROCESS DATA)
(defalias 'smtpmail-send-data-1 #[514 "db\210\303
!\203\203\304
\"\262
	\203\211\305\261\210`\306
!\307=\203+\310\311\"\210\310\"\210\310\305\"\207" [smtpmail-code-conv-from smtpmail-debug-info smtpmail-read-point multibyte-string-p encode-coding-string "
\n" string-to-char 46 process-send-string "."] 5 (#$ . 24519)])
#@23 

(fn PROCESS BUFFER)
(defalias 'smtpmail-send-data #[514 "\300r
q\210\301\302ed#)\303rq\210eb\210)\203Irq\210
`\303
\247\203+
@Y\2050\304#\266\305 \306 {\262
\307\210m?\262)\310\"\210\202\311\312\"\210\313!\207" [t make-progress-reporter "Sending email " nil progress-reporter-do-update point-at-bol point-at-eol 2 smtpmail-send-data-1 smtpmail-command-or-throw "." progress-reporter-done] 12 (#$ . 24880)])
#@107 Get address list suitable for smtp RCPT TO: <address>.

(fn SMTPMAIL-TEXT-BUFFER HEADER-START HEADER-END)
(defalias 'smtpmail-deduce-address-list #[771 "\303\216rq\210\304 \210\305\306\307\211\211\310#\210eb\210\212\311\312\305#\203*\312\202+\313\262
)\311
\305#\203f\314\306!\210\315\224\262\316y\210\317\320!\203U`W\203U\316y\210\202B\321 \262\322\323{!Q\262\202.\304 \210\322\324\261\210\325ed\326\327\305%\210\325ed\330\327\305%\210\325ed\331\327\305%\210eb\210\311\332\305#\203\232\314\322!\210\202\212eb\210\307\311\333d\305#\203\265\334u\210\316\224\316\225{
B\262
\202\236\211\211\262
)\266\205*\207" [smtpmail-address-buffer case-fold-search smtpmail-recipient-address-list #[0 "\300\207" [nil] 1] erase-buffer t "" nil insert-buffer-substring re-search-forward "^Resent-\\(To\\|Cc\\|Bcc\\):" "^\\(To:\\|Cc:\\|Bcc:\\)" replace-match 0 1 looking-at "^[ 	]+" point-marker " " mail-strip-quoted-names "\n" subst-char-in-region 10 32 44 9 "[ 	]+" " \\([^ ]+\\) " -1] 14 (#$ . 25315)])
#@179 Delete [Resent-]Bcc: and their continuation lines from the header area.
There may be multiple Bcc: lines, and each may have arbitrarily
many continuation lines.

(fn HEADER-END)
(defalias 'smtpmail-do-bcc #[257 "\301\212eb\210\302\303\301#\205)\304\224\305y\210`|\210\306\307!\203`
W\203\310\311!\210\202*\207" [case-fold-search t re-search-forward "^\\(RESENT-\\)?Bcc:" 0 1 looking-at "^[ 	].*\n" replace-match ""] 5 (#$ . 26349)])
#@20 

(fn LIST1 LIST2)
(defalias 'smtpmail-intersection #[514 "\300
\301#\207" [seq-intersection eq] 6 (#$ . 26797)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete smtpmail-intersection seq-intersection "28.1" provide smtpmail] 4)