%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\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\201B DD\201C \327\201D %\210\321\201E \323\324\201F DD\201G \327\366\344\201H &\210\321\201I \323\324\201J DD\201K \327\201L %\210\321\201M \323\324\201N DD\201O \327\201P \344\201Q &\210\321\201R \323\324\201S DD\201T \327\201U \344\201Q &\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] "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] "The name of the host running SMTP server." (choice (const nil) string) smtpmail-smtp-service #[0 "\300\207" [25] 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] "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] "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] "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] "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] "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] "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] "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] "Non-nil means mail is queued; otherwise it is sent immediately.\nIf queued, it is stored in the directory `smtpmail-queue-dir'\nand sent with `smtpmail-send-queued-mail'." smtpmail-queue-dir #[0 "\300\207" [#1="~/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] "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" [#2="index"] 1 #2#] "File name of queued mail index.\nThis is relative to `smtpmail-queue-dir'." string smtpmail-servers-requiring-authorization #[0 "\300\207" [nil] 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] "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] 8)
(defvar smtpmail-queue-counter 0)
#@162 List of supported SMTP AUTH mechanisms.
The list is in preference order.
Every element should have a matching `cl-defmethod' for
for `smtpmail-try-auth-method'.
(defvar smtpmail-auth-supported '(cram-md5 plain login) (#$ . 5456))
#@70 Value to use for envelope-from address for mail from ambient buffer.
(defvar smtpmail-mail-address nil (#$ . 5692))
(defalias 'smtpmail-send-it #[0 "\203\n \306\307!\202 \310\306\311!\312\211\211p \203 \313 \206. \314\315!\211\205' \316!A@\262\206. \317 \n\2057 \320 ) @\321\310\322\323\324\n\n\"\325\"\326$\216rq\210\327 \210\330 \312\331#\210\332!\210db\210h\333U\204h \333c\210\334 \210\335 \262A\203y \336e\"\210eb\210\337\340\331#\203\221 `W\203\221 \341\342!\210\202| \331 @eb\210\337\343\331#\203\246 \341\344!\210\202\271 \337\345\331#\203\271 \310\225U\203\271 \341\344!\210eb\210\337\346\331#\204Q
\347 B\350\267\202D\351\261\210e\352\\\335 b\210\337\353\354#\203\374 b\210\355c\210\337\356\354#\203\371 \341\357\331\"\210\202\351 \355c\210\266\360\361\261\210\202O\351\362\261\210`c\210\335 b\210\337\363\354#\203&\341\357\331\"\210\202b\210\337\364\354#\203<\341\365\331\"\210b\210\202)\266\366c\210\202OB\204O\351\342\261\210\266eb\210\337\367\331#\204c\370\371 \342\261\210eb\210\337\372\331#\204u\373\374 \342\261\210\312eb\210C\375=\203\272\337\376\331#\204\272\377\312w\210`dU\204\272 \203\272\201L \201M \"\211\262\203\272b\203\272\201N \201O \201P !\201Q \261\210\210Tb\210\201R D!\203\315\201S \210eb\210\337\201T \331#\203\353\201U \201V \" E\201W !\210)\203\367rq\210\327 \210))\201X e\"\210\306\201Y !F\201Z e#G\201[ F!\210\201\\ !\210H\204MG\203C\201] G\"\211\262\205\337\201^ \201_ \201` !\"\202\337\201^ \201a !\202\337\201b \201c \201d \201e \201f !IT\211I#J\"\201g !\211\201h P\201i !\201j J!\204\207\201k J\331\"\210r\211q\210\327 \210\330\201U \206\231\201l \201V \"\312\331#\210\332 !\210\201m !\210\201n \201o \201p G!\366Q\312\312\201q %\210\201n \342P\312\201b KJ\"\331\201q %\210)\201[ !\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 mail-envelope-from mail-fetch-field "from" mail-extract-address-components smtpmail-user-mail-address select-message-coding-system make-byte-code "\302\301!\210\303\300!\205
\302\300!\207" vconcat vector [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 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (angles 206 parens 263)) "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:" " -" 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-queue-index-file coding-system-get mime-charset "MIME-version: 1.0\n" "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 write-region "(setq smtpmail-recipient-address-list '" prin1-to-string silent] 16])
#@73 Send mail that was queued as a result of setting `smtpmail-queue-mail'.
(defalias 'smtpmail-send-queued-mail #[0 "\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\211\320 \"\317\321!\210eb\210m\204\203`\322 {\262\323P\262\306\307!r\211q\210\310\311\312\313\314!\324\"\316$\216\321!\210eb\210\325p!\211:\203!\211@\211\326=\203A\211:\203\211@\211\302=\203\372 A\211:\203\355 \211@\211:\203\340 \211@\211\327=\203\322 A\211:\203\304 \211@A\211\204\265 A\211\204\247 \330\317w\210m\204\243 \331\332\"\210\202\261 \n\333\334#\266\210\202\277 \333\334#\266\266\202\316 \333\334#\266\210\202\334 \333\334
#\266\210\202\351 \333\334\f#\266\210\202\366 \333\334 #\266\210\202\333\334\n#\266\210\202\333\334 #\266\210\202 \333\334#\266\210\202*\211\333\334#\266\210*\210\306\307!r\211q\210\310\311\312\313\314!\335\"\316$\216\336\321!\210)\f\203P\337 \206Q
'\n\203k\340\np\"\211\262\203o\333\341\342!\"\210\202o\333\343!\210+\210\344!\210\344!\210\345 \345\316!|\210\202! \346ed#\266\204*\207" [smtpmail-queue-index-file smtpmail-queue-dir smtpmail-recipient-address-list coding-system-for-read mail-specify-envelope-from user-mail-address generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil expand-file-name insert-file-contents line-end-position ".el" [buffer-name kill-buffer] read setq quote " \n " message "Ignoring trailing text in %S" error "Unexpected code in %S: %S" [buffer-name kill-buffer] no-conversion mail-envelope-from smtpmail-via-smtp "Sending failed: %s" smtpmail--sanitize-error-message "Sending failed; no recipients" delete-file point-at-bol write-region smtpmail-mail-address] 22 (#$ . 9597) 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 (#$ . 11389)])
(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 (#$ . 11716)])
(put 'smtpmail-cred-server 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn CRED)
(defalias 'smtpmail-cred-port #[257 "\211A@\207" [] 2 (#$ . 11876)])
(put 'smtpmail-cred-port 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn CRED)
(defalias 'smtpmail-cred-key #[257 "\3008\207" [2] 3 (#$ . 12033)])
(put 'smtpmail-cred-key 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn CRED)
(defalias 'smtpmail-cred-user #[257 "\3008\207" [2] 3 (#$ . 12189)])
(put 'smtpmail-cred-user 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn CRED)
(defalias 'smtpmail-cred-cert #[257 "\3008\207" [3] 3 (#$ . 12347)])
(put 'smtpmail-cred-cert 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn CRED)
(defalias 'smtpmail-cred-passwd #[257 "\3008\207" [3] 3 (#$ . 12505)])
(put 'smtpmail-cred-passwd 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 12667)])
#@18
(fn RECIPIENT)
(defalias 'smtpmail-maybe-append-domain #[257 "\203 \301\302\"\203\f \207\211\302Q\207" [smtpmail-sendto-domain string-match "@"] 4 (#$ . 12898)])
#@20
(fn LIST1 LIST2)
(defalias 'smtpmail-intersection #[514 "\300\211\203 \211@\211>\203 \211B\262A\266\202\202 \210\211\237\207" [nil] 7 (#$ . 13072)])
#@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\211\207" [nil smtpmail-send-command smtpmail-ok-p smtpmail-read-response throw done format "%s in response to %s" smtpmail-response-text] 10 (#$ . 13237)])
#@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\"\243\310\"@\311\312\313\314\315\n\316\317\320\f\205, \321\322&\f@\323\315\"\323\324\"\205B \323\325\"\326!\203L \262\203n \204n \312\316\317\313\f\314
\315\n\320\327\322\330&\f@\262\323\324\"\262\326!\203x \262\3312\225 \203\223 \203\223 \203\223 \332 $\202\224 0\211;\203\252 \333\313 \314\f$\210\334\331\"\202\262 \203\261 \210\211\262)\207" [smtpmail-auth-supported auth-source-creation-prompts smtpmail-smtp-user format "%s" "smtp" assoc auth smtpmail-intersection ((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 :secret :save-function functionp (:user :secret) t done smtpmail-try-auth-method auth-source-forget+ throw] 24 (#$ . 13556)])
(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%\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+ \303A@\304\"\305!\306\307\310\311%\312Q\313\314\"\300\n\"\266\205\207" [smtpmail-command-or-throw "AUTH CRAM-MD5" 334 substring 4 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)"]] 6)
#@15
(fn STRING)
(defalias 'smtpmail-response-code #[257 "\211\205- \300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311\312\313\314#\205* \315\316\317!!*\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "^\\([0-9]+\\) " nil t string-to-number match-string 1] 8 (#$ . 15879)])
#@32
(fn RESPONSE &optional CODE)
(defalias 'smtpmail-ok-p #[513 "@\205 @\250\205 @\300W\205 \211?\206 \211@U\207" [400] 4 (#$ . 16280)])
#@17
(fn RESPONSE)
(defalias 'smtpmail-response-text #[257 "\300\301A\302#\207" [mapconcat identity "\n"] 5 (#$ . 16429)])
#@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\204 B\262 \204s \211A\262\242\211\262\203s \3061@ \3071: \310\311\305$00\202B 0\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 (#$ . 16557)])
#@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-match "\\."] 4 (#$ . 17575)])
#@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! \n\2066 \203# \313 \2066 \314\315!\211\205/ \316!A@\262\2066 \317 \307C\307\211\211\f\203R \f\307\320 \321#)\266\203\203R \320\262 \322\323\324\325\326
\"\327\"\330$\216\3312\375\332\333\334\n\"!\240\210r\242q\210\320@\335 \210)\336\211 A B\337\340\242 \341C\342\320\343\344\333\345\346 \"\347\350\351\352\353\320\354\355\356\320\357\320&\262*@\240\204\305 \360\331\361A\362\"\203\302 \361A\362\"\202\303 \363\"\210\364 \242\365\"\210\361A\366\"\367!\211\204\340 \360\331\333\370\"\"\210\211\371Y\203\356 \360\331\333\372\"\"\210\266r\242q\210\373 \242\374\211#\210\375\376!\210e>\361A\377\"\367!\211\203\211\371Y\203(\201H \242\333\201I \346 \"\"\210\202\276\201J \201K \201L \361A\377\"\201M \"\"\211\203\275\211@\201N p\322\323\201O \325\326\"\201P \"\201Q $\216\201R D!\210\201S \201T \201L \201U \201V \"\201W \"\")\266\202\211G\310U\203\210\211@\262\211\203\265\211:\203\226\211@\202\227\211\201X >\203\247\211B\262\202\265E\203\265\201Y \201Z \"\210\210A\266\202\202<\210\266\201[ \242 %\262\201\\ >\204\340\201] >\203\355\201H \242\333\201^ !\"\210F\203\201_ >\204\201` >\203\201H \242\333\201a !\"\210\201b >\203$\201H \242\333\201c !\"\210\201d >\2047\201e \201d \"\203O\333\201f r
q\210deZ\201g ed\"\\)\"\202R\201K \201h >\203`\201K \202c\201K \201i \242\333\201j \n$\"\210\201k \201l \f\242!\211\262!\204R@\247\203\370\201m \371@\201n #\203\370 GW\203\370\201Y \201o @\f#\210\201p 1\314\201i \242\201q \"\210\201l \242!0\202\320\210\202\321\210\201r \242!\210\201s \310!\210\n\307\240\210\360\331\201t T$\"\210\202R\203H\f\204H@\201u =\203H\201v 1&\201i \242\201q \"\210\201l \242!0\202*\210\202+\210\201r \242!\210\n\307\240\210\360\331\201t \320#\"\210\202R\360\331\201w !\"\210\266\323\2118\203\344\201i \n\242\333\201x \201y 8!\"\"\210\201k \201l \242!\211\262!\204\335\203\323 \204\323@\250\203\323@\201z Y\203\323@\201{ X\203\323\201i \n\242\201q \"\210\201l \n\242!\210\201r \n\242!\210 \307\240\210\360\331\201t \320#\"\210\202\335\360\331\201w !\"\210\211T\262\202U\210\201H \242\201| \"\210\201} \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" mail-envelope-from mail-fetch-field "from" mail-extract-address-components smtpmail-user-mail-address t string-match make-byte-code 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" vconcat vector [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 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 smtpmail-command-or-throw "HELO %s" delete "" split-string "
\n" current-case-table "r\301q\210\302\300!)\207" [set-case-table] 2 set-case-table mapcar #[257 "\300\227!\207" [intern] 3 "\n\n(fn S)"] substring 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 assoc " 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 "RCPT TO:<%s>" smtpmail-maybe-append-domain 550 554 "DATA" smtpmail-send-data] 38 (#$ . 17822)])
#@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 (#$ . 22618)])
#@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 (#$ . 22788)])
#@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 (#$ . 23491)])
#@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 (#$ . 23777)])
#@23
(fn PROCESS BUFFER)
(defalias 'smtpmail-send-data #[514 "\300rq\210\301\302ed#)\303rq\210eb\210)\203I rq\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 (#$ . 24138)])
#@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\212 eb\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 (#$ . 24573)])
#@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 (#$ . 25607)])
(provide 'smtpmail)
Zerion Mini Shell 1.0