| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/smtpmail.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:45 2024
;;; 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!\211A@))\2061 \317 \f\205;
@\320 ) A B C D E F G\321\216rFq\210\322 \210\323
\312\324#\210\325B!\210db\210h\326U\204k \326c\210\327 \210\330 DH\203} \331eD\"\210eb\210\332\333D\324#\203\227 `DW\203\227 \334\335!\210\202\200 \324 Eeb\210\332\336D\324#\203\255 \334\337!\210\202\302 \332\340D\324#\203\302 \310\225DU\203\302 \334\337!\210eb\210\332\341D\324#\204yA I\342 JK\343=\203 \344J\261\210e\345\\\330 L\211 Mb\210\332\346L\347#\203Mb\210\350c\210\332\351L\347#\203\334\352\324\"\210\202\377 \350c\210*\353I\354\261\210\202xK\355=\203l\344I\356\261\210` MJc\210\330 LMb\210\332\357L\347#\203L\334\352\324\"\210\202;Mb\210\332\360L\347#\203e\334\361\324\"\210Mb\210\202P*\362c\210\202xK\204x\344I\335\261\210*eb\210\332\363D\324#\204\214\364\365 \335\261\210eb\210\332\366D\324#\204\237\367\370 \335\261\210\312 Neb\210O\371=\203\341\332\372D\324#\204\341\373\312w\210`dU\204\341
\203\341\374
\375\"\211N\203\341Db\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\"rGq\210\322 \210))\201e eD\"\210\306\201f !R\201g FeD#S\201h R!\210\201i D!\210T\204yS\203o\201j SF\"\211C\205>\201k \201l C\"\202>\201k \201m !\202>\201n \201o \201p \201q \201r !UT\211U#V\" W\201s W!\211 W\201t P X\201u W! Y\201u X! Z\201v [\201w V!\204\312\201x V\324\"\210rYq\210\322 \210\323\201b
\206\335\201y \201c \"\312\324#\210\325F!\210\201z W!\210Zq\210\322 \210\201{ \201| S!\362Qc\210\201z X!\210\306[!q\210W\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!rq\210\310\216\311\312 \n\"\313 \314\f!\210eb\210m\204y `\315 {\316
!\210\306\307! rq\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 \302Q\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) "\3018\207" [cred 2] 2])
(put 'smtpmail-cred-key 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-user #[(cred) "\3018\207" [cred 2] 2])
(put 'smtpmail-cred-user 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-cert #[(cred) "\3018\207" [cred 3] 2])
(put 'smtpmail-cred-cert 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'smtpmail-cred-passwd #[(cred) "\3018\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 \211A@)\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 \303Q\207" [smtpmail-sendto-domain recipient string-match "@"] 3])
(defalias 'smtpmail-intersection #[(list1 list2) "\305 \305\211\203 @\211\f>\203 \nB 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\3161\317\3202\321\322\3233\205- \324\3253&\f@ 4\3264\320\" 5\3264\327\" 63\205M \3264\330\" 7\331 8\3326!\203^ 6 65\203\203 6\204\203 \315\321\322\3161\317\3202\323\333\325\334&\f@4\3264\327\"6\3326!\203\217 6 6\f\203\235 5\203\235 6\204\241 \f\202G\f\335=\203\365 \3369\337\"\2118@\340=\205G8\211 :A@)\341\331O ;\342;! <\343\344\345\3466<% =5\347=Q >\350>\334\" ?\3369?\"\2107\205\361 7 -\202G\f\351=\203 \3369\352\"\210\3369\3505\334\"\"\210\3369\3506\334\"\"\2107\205G7 \202G\f\353=\203C\3369\354\350\3555\3556R\334\"P\356#\2107\205G7 \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\216c\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\302A\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\"\211G\305U\205 \306\307 \211A@)\"\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@\211B\204V \334\335\336AA\337\"\203S \336AA\337\"\202T \340\"\210\341B\342\"\210\336AA\343\" C\344C!\211 D\204w \334\335\307\345C\"\"\210D\346Y\203\207 \334\335\307\347C\"\"\210*r q\210\350\351\211\"\210\352\353!\210e+\336AA\354\" E\344E!\211 D\203\261 D\346Y\203\276 \355B\307\356\322 \"\"\210\2028\357\360\361\336AA\354\"\362\"\"\363 F\211 G\2037G@F\364 p H I\365\216\366J!\210\367\370\361F\371\363O\372\"\"+\211 KG\373U\203 K@KK\203-K:\203K@\202K\374>\203\"KLBL\202-M\203-\375\376K\"\210)GA\211G\204\323 **\377BL
N%O\201W L\235\204W\201X L\235\203a\355B\307\201Y !\"\210P\203\202\201Z L\235\204x\201[ L\235\203\202\355B\307\201\\ !\"\210\201] L\235\203\225\355B\307\201^ !\"\210\201_ L\235\204\252\201` \201_ L\"\203\302\307\201a rQq\210deZ\201b ed\"\\)\"\202\303\360\201c L\235\203\320\360\202\321\360 R S\201d B\307\201e TSR$\"\210\201f \201g B!\211A!\2048O\203.N\204.A@\201h =\203.\363\201i \201j \217\210\201k B!\210\363B\334\335\201l UQ\311#\"\210\2028\334\335\201m A!\"\210*\201n \211 VU8\203\315\201d B\307\201o \201p VU8!\"\"\210\201f \201g B!\211A!\204\304O\203\272N\204\272A@\250\203\272A@\201q Y\203\272A@\201r X\203\272\201d B\201s \"\210\201g B!\210\201k B!\210\363B\334\335\201l UQ\311#\"\210\202\304\334\335\201m A!\"\210VT\211V\202?)\355B\201t \"\210\201u BQ\"\210\355B\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 "rq\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\307rq\210\310\311ed#)rq\210eb\210) \203K rq\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\216rq\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\211 eb\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)