WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/mail
Viewing File: /usr/share/emacs/24.3/lisp/mail/smtpmail.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:42 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/smtpmail.el
;;; in Emacs version 24.3.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\307\"\210\303\310\307\"\210\303\311\312\"\210\313\314\315\316\317\320%\210\321\322\315\323\324\325\317\314&\210\321\326\327\330\324\331\317\314&\210\321\332\333\334\324\335\317\314&\210\321\336\315\337\340\341\324\342\317\314&	\210\321\343\315\344\324\345\317\314&\210\321\346\315\347\340\341\317\314\324\350&	\210\321\351\315\352\324\353\317\314&\210\321\354\315\355\324\356\317\314&\210\321\357\315\360\324\356\317\314&\210\321\361\315\362\324\363\317\314&\210\321\364\315\365\324\356\317\314&\210\321\366\367\370\324\371\317\314&\210\321\372\315\373\324\356\340\374\317\314&	\210\321\375\376\377\324\201@\317\314&\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 "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 (or (getenv "SMTPSERVER") smtpmail-default-smtp-server) "The name of the host running SMTP server." (choice (const nil) string) smtpmail-smtp-service 25 "SMTP service port number.\nThe default value would be \"smtp\" or 25." (choice (integer :tag "Port") (string :tag "Service")) smtpmail-smtp-user "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 "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 "Type of SMTP connections to use.\nThis may be either nil (possibly upgraded to STARTTLS if possible),\nor `starttls' (refuse to send if STARTTLS isn't available), or `plain'\n(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 "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 "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 "Whether this library sends the SMTP VERB command or not.\nThe commands enables verbose information from the SMTP server." smtpmail-code-conv-from "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 "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 "~/Mail/queued-mail/" "Directory where `smtpmail.el' stores queued mail." directory smtpmail-warn-about-unknown-extensions "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 "index" "File name of queued mail index.\nThis is relative to `smtpmail-queue-dir'." string] 10)
(defvar smtpmail-queue-counter 0)
#@74 List of supported SMTP AUTH mechanisms.
The list is in preference order.
(defconst smtpmail-auth-supported '(cram-md5 plain login) (#$ . 4397))
#@70 Value to use for envelope-from address for mail from ambient buffer.
(defvar smtpmail-mail-address nil (#$ . 4547))
(defalias 'smtpmail-send-it #[nil "\203\n\306\307!\202\310\306\311!\312\211\211p	\203\313 \2061\314\315!\211\205+\316\n!\211A@))\2061\317 \f\205;
@\320 )ABCDEFG\321\216rFq\210\322 \210\323
\312\324#\210\325B!\210db\210h\326U\204k\326c\210\327 \210\330 DH\203}\331eD\"\210eb\210\332\333D\324#\203\227`DW\203\227\334\335!\210\202\200\324Eeb\210\332\336D\324#\203\255\334\337!\210\202\302\332\340D\324#\203\302\310\225DU\203\302\334\337!\210eb\210\332\341D\324#\204yAI\342 JK\343=\203\344J\261\210e\345\\\330 L\211Mb\210\332\346L\347#\203Mb\210\350c\210\332\351L\347#\203\334\352\324\"\210\202\377\350c\210*\353I\354\261\210\202xK\355=\203l\344I\356\261\210`MJc\210\330 LMb\210\332\357L\347#\203L\334\352\324\"\210\202;Mb\210\332\360L\347#\203e\334\361\324\"\210Mb\210\202P*\362c\210\202xK\204x\344I\335\261\210*eb\210\332\363D\324#\204\214\364\365 \335\261\210eb\210\332\366D\324#\204\237\367\370 \335\261\210\312Neb\210O\371=\203\341\332\372D\324#\204\341\373\312w\210`dU\204\341
\203\341\374
\375\"\211N\203\341Db\203\341\376\377\201]N!\201^\261\210)DTb\210\201_P!\203\365\201` \210eb\210\332\201aD\324#\203\201b
\201c\"Q\201dD!\210)\203\"rGq\210\322 \210))\201eeD\"\210\306\201f!R\201gFeD#S\201hR!\210\201iD!\210T\204yS\203o\201jSF\"\211C\205>\201k\201lC\"\202>\201k\201m!\202>\201n\201o\201p\201q\201r!UT\211U#V\"W\201sW!\211W\201tPX\201uW!Y\201uX!Z\201v[\201wV!\204\312\201xV\324\"\210rYq\210\322 \210\323\201b
\206\335\201y\201c\"\312\324#\210\325F!\210\201zW!\210Zq\210\322 \210\201{\201|S!\362Qc\210\201zX!\210\306[!q\210W\335Pc\210\201}ed\201n\\V\"#\210)\201h[!\210\201hY!\210\201hZ!..\n\207" [mail-interactive mail-specify-envelope-from from x enable-multibyte-characters smtpmail-code-conv-from 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 ((byte-code "\302!\210\303	!\203\302	!\210\302\207" [tembuf errbuf 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 angles "From: " 6 "[^- !#-'*+/-9=?A-Z^-~]" 1 "\"" "[\"\\]" "\\\\\\&" " <" ">\n" parens " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\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" "Content-type: text/plain; charset=" sendmail-coding-system smtpmail-mail-address mailbuf result delimline case-fold-search tembuf errbuf mail-aliases login fullname mail-from-style fullname-end fullname-start charset 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 file-data file-elisp buffer-data buffer-elisp buffer-scratch smtpmail-queue-index-file 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" "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 "*queue-mail*" file-exists-p make-directory undecided write-file "(setq smtpmail-recipient-address-list '" prin1-to-string append-to-file] 9])
#@73 Send mail that was queued as a result of setting `smtpmail-queue-mail'.
(defalias 'smtpmail-send-queued-mail #[nil "\306\307!rq\210\310\216\311\312	\n\"\313\314\f!\210eb\210m\204y`\315 {\316
!\210\306\307!rq\210\317\216\320\314
!\210)\203E\321 \206G \203`\322 p\"\211\203d\323\324\"\210\202d\323\325!\210,\326
!\210\326
\327P!\210\330 \330\331!|\210\202\332ed\f#.\207" [#1=#:temp-buffer smtpmail-queue-index-file smtpmail-queue-dir result qfile file-msg generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "" expand-file-name nil insert-file-contents line-end-position load ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) no-conversion mail-envelope-from smtpmail-via-smtp error "Sending failed: %s" "Sending failed; no recipients" delete-file ".el" point-at-bol 2 write-region #2# coding-system-for-read mail-specify-envelope-from user-mail-address smtpmail-mail-address smtpmail-recipient-address-list] 4 (#$ . 8548) nil])
(defalias 'smtpmail-fqdn #[nil "\203\n\301 \302Q\207\301 \207" [smtpmail-local-domain system-name "."] 3])
(defalias 'smtpmail-cred-server #[(cred) "@\207" [cred] 1])
(put 'smtpmail-cred-server 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-port #[(cred) "A@\207" [cred] 1])
(put 'smtpmail-cred-port 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-key #[(cred) "\3018\207" [cred 2] 2])
(put 'smtpmail-cred-key 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-user #[(cred) "\3018\207" [cred 2] 2])
(put 'smtpmail-cred-user 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-cert #[(cred) "\3018\207" [cred 3] 2])
(put 'smtpmail-cred-cert 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-passwd #[(cred) "\3018\207" [cred 3] 2])
(put 'smtpmail-cred-passwd 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-find-credentials #[(cred server port) "\300\301\215\207" [done (byte-code "\305\n\211A@\211\205+	\211@)\232\203\f	\211A@)\232\203\306\307	\"\210\202*\207" [cred el l server port nil throw done] 4)] 2])
(defalias 'smtpmail-maybe-append-domain #[(recipient) "\203\302\303	\"\203
	\207	\303Q\207" [smtpmail-sendto-domain recipient string-match "@"] 3])
(defalias 'smtpmail-intersection #[(list1 list2) "\305	\305\211\203@\211\f>\203\nBA\211\204\n*\237)\207" [result list2 el2 --dolist-tail-- list1 nil] 3])
(defalias 'smtpmail-command-or-throw #[(process string &optional code) "\304\305	\n\"\210\306\307	!\211\"\204\310\311\312\313\314!\n#\"\210)\207" [ret process string code nil smtpmail-send-command smtpmail-ok-p smtpmail-read-response throw done format "%s in response to %s" smtpmail-response-text] 6])
(defalias 'smtpmail-try-auth-methods #[(process supported-extensions host port &optional ask-for-password) "\203\306\307\"\202\f\310\311\312	\"\243\313\n\"@\314\315\3161\317\3202\321\322\3233\205-\324\3253&\f@4\3264\320\"5\3264\327\"63\205M\3264\330\"7\3318\3326!\203^6 65\203\2036\204\203\315\321\322\3161\317\3202\323\333\325\334&\f@4\3264\327\"6\3326!\203\2176 6\f\203\2355\203\2356\204\241\f\202G\f\335=\203\365\3369\337\"\2118@\340=\205G8\211:A@)\341\331O;\342;!<\343\344\345\3466<%=5\347=Q>\350>\334\"?\3369?\"\2107\205\3617 -\202G\f\351=\203 \3369\352\"\210\3369\3505\334\"\"\210\3369\3506\334\"\"\2107\205G7 \202G\f\353=\203C\3369\354\350\3555\3556R\334\"P\356#\2107\205G7 \202G\357\360\f\".\207" [port supported-extensions mechs smtpmail-auth-supported mech auth-source-creation-prompts 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 nil functionp (:user :secret) t cram-md5 smtpmail-command-or-throw "AUTH CRAM-MD5" 334 4 base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string login "AUTH LOGIN" plain "AUTH PLAIN " "" 235 error "Mechanism %s not implemented" host smtpmail-smtp-user ask-for-password auth-info user password save-function ret process x challenge decoded hash response encoded] 14])
(defalias 'smtpmail-response-code #[(string) "\205\"\302\303!r	q\210\304\216c\210eb\210\305\306\307\310#\205!\311\312\313!!+\207" [string #1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "^\\([0-9]+\\) " nil t string-to-number match-string 1] 4])
(defalias 'smtpmail-ok-p #[(response &optional code) "@\205@\250\205@\302W\205	?\206	@U\207" [response code 400] 2])
(defalias 'smtpmail-response-text #[(response) "\301\302A\303#\207" [response mapconcat identity "\n"] 4])
#@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 #[nil "\306\307!\310\311\211\211
\203
\235\204
B\204Y\211A@\211\203Y\311\312\313\217\211\204H\204\204\314\315\316\f\"!B\317\202\320\321\f\"\210\320\305	\"\210\322\n!\210\202?\205b\323\324!-\207" [prompted port stream ports server smtpmail-smtp-service read-string "Outgoing SMTP mail server: " (25 587) nil (open-network-stream "smtp" nil server port) ((quit) (error)) read-number format "Port number to use when contacting %s? " t customize-save-variable smtpmail-smtp-server delete-process error "Couldn't contact an SMTP server"] 5 (#$ . 13490)])
#@59 Return `user-mail-address' if it's a valid email address.
(defalias 'smtpmail-user-mail-address #[nil "\205\303\304\"\211G\305U\205\306\307	\211A@)\"\205)\207" [user-mail-address parts x split-string "@" 2 string-match "\\."] 4 (#$ . 14497)])
(defalias 'smtpmail-via-smtp #[(recipient smtpmail-text-buffer &optional ask-for-password) "\204\306 \210\307\206\310\311!	\n\2063\203\312 \2063\313\314!\211\205-\315\f!\211A@))\2063\316 \307\211\211\211\211\317\216\320\321\215.\n\207" [smtpmail-smtp-server smtpmail-smtp-service smtpmail-mail-address mail-specify-envelope-from from x smtpmail-query-smtp-server nil error "`smtpmail-smtp-server' not defined" mail-envelope-from mail-fetch-field "from" mail-extract-address-components smtpmail-user-mail-address ((byte-code "\203&\303	!\203&r\301!q\210\304\305\"\210\306!\210\307!\210\n\204%\310	!\210)\303\207" [process process-buffer smtpmail-debug-info buffer-live-p smtpmail-send-command "QUIT" smtpmail-read-response delete-process kill-buffer] 3)) done (byte-code "\306\307\310\"!r	q\210\311\312 \210)\313\211\314\315	
\316@\317\311\320\307\321\322 \"\323\324\325\326\327\311\330\331\332\311\333\311&A*A@\211B\204V\334\335\336AA\337\"\203S\336AA\337\"\202T\340\"\210\341B\342\"\210\336AA\343\"C\344C!\211D\204w\334\335\307\345C\"\"\210D\346Y\203\207\334\335\307\347C\"\"\210*r	q\210\350\351\211\"\210\352\353!\210e+\336AA\354\"E\344E!\211D\203\261D\346Y\203\276\355B\307\356\322 \"\"\210\2028\357\360\361\336AA\354\"\362\"\"\363F\211G\2037G@F\364 pHI\365\216\366J!\210\367\370\361F\371\363O\372\"\"+\211KG\373U\203K@KK\203-K:\203K@\202K\374>\203\"KLBL\202-M\203-\375\376K\"\210)GA\211G\204\323**\377BL
N%O\201WL\235\204W\201XL\235\203a\355B\307\201Y!\"\210P\203\202\201ZL\235\204x\201[L\235\203\202\355B\307\201\\!\"\210\201]L\235\203\225\355B\307\201^!\"\210\201_L\235\204\252\201`\201_L\"\203\302\307\201arQq\210deZ\201bed\"\\)\"\202\303\360\201cL\235\203\320\360\202\321\360RS\201dB\307\201eTSR$\"\210\201f\201gB!\211A!\2048O\203.N\204.A@\201h=\203.\363\201i\201j\217\210\201kB!\210\363B\334\335\201lUQ\311#\"\210\2028\334\335\201mA!\"\210*\201n\211VU8\203\315\201dB\307\201o\201pVU8!\"\"\210\201f\201gB!\211A!\204\304O\203\272N\204\272A@\250\203\272A@\201qY\203\272A@\201rX\203\272\201dB\201s\"\210\201gB!\210\201kB!\210\363B\334\335\201lUQ\311#\"\210\202\304\334\335\201mA!\"\210VT\211V\202?)\355B\201t\"\210\201uBQ\"\210\355B\201v\"\210)\363\207" [host process-buffer buffer-undo-list coding-system-for-write coding-system-for-read port get-buffer-create format "*trace of SMTP session to %s*" t erase-buffer binary open-network-stream "smtpmail" :type :return-list :capability-command "EHLO %s
\n" smtpmail-fqdn :end-of-command "^[0-9]+ .*
\n" :success "^2.*\n" :always-query-capabilities :starttls-function #[(capabilities) "\301\302\"\205\303\207" [capabilities string-match "[ -]STARTTLS" "STARTTLS
\n"] 3] :client-certificate :use-starttls-if-possible throw done 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-buffer-process-coding-system raw-text-unix make-local-variable smtpmail-read-point :capabilities smtpmail-command-or-throw "HELO %s" delete "" split-string "
\n" nil current-case-table ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-case-table] 2)) set-case-table mapcar #[(s) "\301\227!\207" [s intern] 2] 4 "[ ]" 1 (verb xvrb 8bitmime onex xone expn size dsn etrn enhancedstatuscodes help xusr auth=login auth starttls) message "Unknown extension %s" smtpmail-try-auth-methods smtpmail-stream-type result process greeting code capabilities line --dolist-tail-- #1# #2# ascii-case-table name supported-extensions smtpmail-warn-about-unknown-extensions ask-for-password auth-mechanisms smtpmail-debug-verb smtpmail-text-buffer body-part size-part envelope-from recipient n 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 530 (byte-code "\301\302\"\210\303!\207" [process smtpmail-send-command "QUIT" smtpmail-read-response] 3) ((error)) delete-process smtpmail-via-smtp smtpmail-response-text 0 "RCPT TO:<%s>" smtpmail-maybe-append-domain 550 554 "QUIT" "DATA" smtpmail-send-data "."] 24) supported-extensions auth-mechanisms result process-buffer response-code envelope-from port host process] 10])
(defalias 'smtpmail-process-filter #[(process output) "r\302!q\210db\210	c\210\303!`\304\223)\207" [process output process-buffer process-mark nil] 3])
(defalias 'smtpmail-read-response #[(process) "\305\211\306\307\305\310\311\215\210	-\207" [match-end return-value response-continue response-strings case-fold-search nil t (nil nil) done (byte-code "\203\212	b\210\306\307\310\311#\204&\312\n!\313>\204\314\315\310\"\210\316\n!\210	b\210\202`	\317Z{\fB	b\210\320\321!\203d\322\224\322\225\203K\323\324\f@\"\210\320\325!\204`\310\326
{!\f\237B*\202\320\327!\203}\203u\323\324\f@\"\210\311\211\202\310\211\f\237B\202\310\207" [response-continue smtpmail-read-point process match-end response-strings end search-forward "
\n" nil t process-status (open run) throw done accept-process-output 2 looking-at "[0-9]+ " 0 message "%s" "0[0-9]+ " string-to-number "[0-9]+-" begin smtpmail-debug-info return-value] 5)] 5])
(defalias 'smtpmail-send-command #[(process command) "db\210\303\304\"\203\305\306\"\307\261\210\202\310\261\210`\311\n\310P\"\207" [command smtpmail-read-point process string-match "\\`AUTH [A-Z]+ " match-string 0 "<omitted>
\n" "
\n" process-send-string] 4])
(defalias 'smtpmail-send-data-1 #[(process data) "db\210\305!\203	\203\306\307	\"!\n\203\310\261\210`\311!\312=\203,\313\f\314\"\210\313\f\"\210\313\f\310\"\207" [data smtpmail-code-conv-from smtpmail-debug-info smtpmail-read-point process multibyte-string-p string-as-multibyte encode-coding-string "
\n" string-to-char 46 process-send-string "."] 4])
(defalias 'smtpmail-send-data #[(process buffer) "\306\307rq\210\310\311ed#)rq\210eb\210)\203Krq\210	`\f\247\203/\f
@Y\2053\312
\f\"*\210\313 \314 {\315\210m?)\316\n\"\210\202\317	!+\207" [buffer pr sending-data data-continue value reporter t nil make-progress-reporter "Sending email " progress-reporter-do-update point-at-bol point-at-eol 2 smtpmail-send-data-1 progress-reporter-done process] 6])
#@56 Get address list suitable for smtp RCPT TO: <address>.
(defalias 'smtpmail-deduce-address-list #[(smtpmail-text-buffer header-start header-end) "\306\216rq\210\307 \210\310\311\306\211\211\312 !#\210eb\210\212\313\314!\310#\203-\314\202.\315)\313	!\310#\203e\316\311!\210\317\224\320y\210\321\322!\203V`!W\203V\320y\210\202C\323 \f\324\325\n{!Q\2020\307 \210\324\f\326\261\210\327ed\330\331\310%\210\327ed\332\331\310%\210\327ed\333\331\310%\210eb\210\313\334!\310#\203\231\316\324!\210\202\211eb\210\306\"\313\335d\310#\203\267\336u\210\320\224\320\225{\"B\"\202\237\"\211#.\207" [smtpmail-address-buffer addr-regexp this-line-end this-line simple-address-list case-fold-search nil erase-buffer t "" 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 smtpmail-text-buffer header-start header-end recipient-address-list smtpmail-recipient-address-list] 6 (#$ . 21222)])
#@162 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.
(defalias 'smtpmail-do-bcc #[(header-end) "\302\212eb\210\303\304	\302#\205)\305\224\306y\210`|\210\307\310!\203`	W\203\311\312!\210\202*\207" [case-fold-search header-end t re-search-forward "^\\(RESENT-\\)?BCC:" 0 1 looking-at "^[ 	].*\n" replace-match ""] 4 (#$ . 22327)])
(provide 'smtpmail)
F1l3 Manager
