ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/smtpmail.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 4251))
#@70 Value to use for envelope-from address for mail from ambient buffer.
(defvar smtpmail-mail-address nil (#$ . 4401))
(defalias 'smtpmail-send-it #[nil "\203\n \306\307!\202 \310\306\311!\312\211\211p \203 \313 \206. \314\315!\211\205( \316\n!A@)\206. \317 \2057 \f \320 ) @ A B C D E F\321\216rEq\210\322 \210\323\f\312\324#\210\325A!\210db\210h\326U\204g \326c\210\327 \210\330 CG\203y \331eC\"\210eb\210\332\333C\324#\203\223 `CW\203\223 \334\335!\210\202| \324 Deb\210\332\336C\324#\203\251 \334\337!\210\202\276 \332\340C\324#\203\276 \310\225CU\203\276 \334\337!\210eb\210\332\341C\324#\204u@ H\342 IJ\343=\203\344I\261\210e\345\\\330 K\211 Lb\210\332\346K\347#\203Lb\210\350c\210\332\351K\347#\203\f\334\352\324\"\210\202\373 \350c\210*\353H\354\261\210\202tJ\355=\203h\344H\356\261\210` LIc\210\330 KLb\210\332\357K\347#\203H\334\352\324\"\210\2027Lb\210\332\360K\347#\203a\334\361\324\"\210Lb\210\202L*\362c\210\202tJ\204t\344H\335\261\210*eb\210\332\363C\324#\204\210\364\365 \335\261\210eb\210\332\366C\324#\204\233\367\370 \335\261\210\312 Meb\210N\371=\203\335\332\372C\324#\204\335\373\312w\210`dU\204\335\f\203\335\374\f\375\"\211M\203\335Cb\203\335\376\377\201\\ M!\201] \261\210)CTb\210\201^ O!\203\361\201_ \210eb\210\332\201` C\324#\203\201a \f\201b \" P\201c C!\210)\203 rFq\210\322 \210))\201d eC\"\210\306\201e !Q\201f EeC#R\201g Q!\210\201h C!\210S\204uR\203k\201i RE\"\211B\205:\201j \201k B\"\202:\201j \201l !\202:\201m \201n \201o \201p \201q !TT\211T#U\" V\201r V!\211 V\201s P W\201t V! X\201t W! Y\201u Z\201v U!\204\306\201w U\324\"\210rXq\210\322 \210\323\201a \f\206\331\201x \201b \"\312\324#\210\325E!\210\201y V!\210Yq\210\322 \210\201z \201{ R!\362Qc\210\201y W!\210\306Z!q\210V\335Pc\210\201| ed\201m [U\"#\210)\201g Z!\210\201g X!\210\201g Y!..\n\207" [mail-interactive mail-specify-envelope-from from enable-multibyte-characters smtpmail-code-conv-from sendmail-coding-system 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 #[nil "\302!\210\303 !\205
\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=" 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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "" expand-file-name nil insert-file-contents line-end-position load #[nil "\301!\205 \302!\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 (#$ . 8380) 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) "\30521 \306\n\211A\242\211\205/ \211@)\232\203 \f \211A@)\232\203 \307\305 \"\210\202 *0\207" [cred el l server port done nil throw] 4])
(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\316!\317\320\"\321\322\323#\205- \324\325#&\f@ $\326$\320\" %\326$\327\" &#\205M \326$\330\" '\331 (\332&!\203^ & &%\203\203 &\204\203 \315\321\322\316!\317\320\"\323\333\325\334&\f@$\326$\327\"&\332&!\203\217 & &\3352\235 \336)\f%&$0\211 *;\203\264 \337\316!\317$\210\340\335*\"\202\277 '\203\275 ' \210*. \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 done smtpmail-try-auth-method auth-source-forget+ throw host smtpmail-smtp-user ask-for-password auth-info user password save-function ret process result] 14])
(defalias 'smtpmail-try-auth-method #[(process mech user password) "\306 \203 \n\203 \204 \202\211 \307=\203Q \310\f\311\"\211@\312=\205\211 A@\313\306O \314
! \315\316\317\320 % \n\321 Q \322 \323\" \310\f \"-\202\211 \324=\203n \310\f\325\"\210\310\f\322\n\323\"\"\210\310\f\322 \323\"\"\202\211 \326=\203\205 \310\f\327\322\330\n\330 R\323\"P\331#\202\211 \332\333 \")\207" [ret mech user password process challenge nil cram-md5 smtpmail-command-or-throw "AUTH CRAM-MD5" 334 4 base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string t login "AUTH LOGIN" plain "AUTH PLAIN " " " 235 error "Mechanism %s not implemented" decoded hash response encoded] 9])
(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*" #[nil "\301!\205 \302!\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\204p \211A\242\211\203p \3121B \3131< \314\315\311\f $00\202D 0\210\311\202D \210\311\211\204_ \204 \204 \316\317\320\f\"! B\321\202 \322\323\f\"\210\322\305 \"\210\324\n!\210\202 ?\205y \325\326!-\207" [prompted port stream ports server smtpmail-smtp-service 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 smtpmail-smtp-server delete-process error "Couldn't contact an SMTP server"] 5 (#$ . 13469)])
#@59 Return `user-mail-address' if it's a valid email address.
(defalias 'smtpmail-user-mail-address #[nil "\205 \302\303\"\211G\304U\205 \305\306 A@\"\205 )\207" [user-mail-address parts split-string "@" 2 string-match "\\."] 4 (#$ . 14504)])
(defalias 'smtpmail-via-smtp #[(recipient smtpmail-text-buffer &optional ask-for-password) "\204 \306 \210\307\206 \310\311! \n\2060 \203 \312 \2060 \313\314!\211 \205* \315\f!A@)\2060 \316 \307\211\211\211\211 @ A B C D E F G\317\216\3202d\321\322\323F\"!BrBq\210\324H\325 \210)\326\211 I J\327\330BFE\331K\332\324\333L\334\322\335\336 \"\337\340\341\342\343\324\344\345\346\324\347\324&A*A@\211G\204\256 \350\320\351AA\352\"\203\253 \351AA\352\"\202\254 \353\"\210\354G\355\"\210\351AA\356\" M\357M!\211 N\204\317 \350\320\322\360M\"\"\210N\361Y\203\337 \350\320\322\362M\"\"\210*rBq\210\363\364\211\"\210\365\366!\210e6\351AA\367\" O\357O!\211 N\203\nN\361Y\203\370G\322\371\336 \"\"\210\202\241\372\373\374\351AA\367\"\375\"\"\307 P\211 Q\203\240Q@P\376 p R S\377\216\201] T!\210\201^ \201_ \374P\201` \307O\201a \"\"+\211 UG\201b U\203eU@UU\203\226U:\203vU@\202xU\201c >\203\207U
B\202\226V\203\226\201d \201e U\"\210)QA\211Q\204,**\201f G
FEL%@\201g
\235\204\301\201h
\235\203\313\370G\322\201i !\"\210W\203\352\201j
\235\204\340\201k
\235\203\352\370G\322\201l !\"\210\201m
\235\203\374\370G\322\201n !\"\210\201o
\235\204\201p \201o
\"\203'\322\201q rXq\210deZ\201r ed\"\\)\"\202(\373\201s
\235\2034\373\2025\373 Y Z\201t G\322\201u DZY$\"\210\201v \201w G!\211A!\204\262@\203\250L\204\250A@\201x =\203\250\201y 1\211\201t G\201z \"\210\201w G!0\202\215\210\202\216\210\201{ G!\210\307G\350\320\201| [X\324#\"\210\202\262\350\320\201} A!\"\210*\201~ \211 \\[8\203G\201t G\322\201 \201\200 \\[8!\"\"\210\201v \201w G!\211A!\204>@\2034L\2044A@\250\2034A@\201\201 Y\2034A@\201\202 X\2034\201t G\201z \"\210\201w G!\210\201{ G!\210\307G\350\320\201| [X\324#\"\210\202>\350\320\201} A!\"\210\\T\211\\\202\271)\370G\201\203 \"\210\201\204 GX\"\210\370G\201\205 \"\210)\3070.\n\207" [smtpmail-smtp-server smtpmail-smtp-service smtpmail-mail-address mail-specify-envelope-from from supported-extensions 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 #[nil "\205& \303 !\205& r\301!q\210\304\305\"\210\306!\210\307!\210\n?\205% \310 !)\207" [process process-buffer smtpmail-debug-info buffer-live-p smtpmail-send-command "QUIT" smtpmail-read-response delete-process kill-buffer] 3] done get-buffer-create format "*trace of SMTP session to %s*" t 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 #[(capabilities) "\301\302\"\205 \303\207" [capabilities string-match "[ -]STARTTLS" "STARTTLS
\n"] 3] :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-buffer-process-coding-system raw-text-unix make-local-variable smtpmail-read-point :capabilities smtpmail-command-or-throw "HELO %s" delete "" split-string "
\n" current-case-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-case-table] 2] auth-mechanisms result process-buffer response-code envelope-from port host process buffer-undo-list coding-system-for-write coding-system-for-read smtpmail-stream-type ask-for-password greeting code capabilities line --dolist-tail-- #1# #2# ascii-case-table name smtpmail-warn-about-unknown-extensions smtpmail-debug-verb smtpmail-text-buffer body-part size-part recipient n 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 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 (error) "QUIT" delete-process smtpmail-via-smtp smtpmail-response-text 0 "RCPT TO:<%s>" smtpmail-maybe-append-domain 550 554 "DATA" smtpmail-send-data "."] 26])
(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) "\306\211\307\310\306 \3112\236 \n\203\232
b\210\312\313\306\307#\2046 \314!\315>\204+ \316\311\306\"\210\317!\210
b\210\202 `
\320Z{ B
b\210\321\322!\203u \323\224\323\225 \203\\ \324\325 @\"\210\321\326!\204q \306\327{! \237B*\202 \321\330!\203\216 \203\206 \324\325 @\"\210\307\211\202 \306\211 \237B\202 \2110\210 -\207" [match-end return-value response-continue response-strings case-fold-search smtpmail-read-point 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]+-" process end begin smtpmail-debug-info] 6])
(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) "\305\306rq\210\307\310ed#)rq\210eb\210) \203H rq\210 `\211\247\203- \211@Y\2051 \311\"\266\312 \313 {\314\210m?)\315\f\n\"\210\202 \316 !+\207" [buffer pr sending-data data-continue process 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] 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\312\211\211 \313 !\"#\210eb\210\212\314\315\"\310#\203- \315\202. \316)\314 \"\310#\203e \317\311!\210\320\224\321y\210\322\323!\203V `\"W\203V \321y\210\202C \324 \f\325\326 \n{!Q\2020 \307 \210\325\f\327\261\210\330ed\331\332\310%\210\330ed\333\332\310%\210\330ed\334\332\310%\210eb\210\314\335\"\310#\203\231 \317\325!\210\202\211 eb\210\312 #\314\336d\310#\203\267 \337u\210\321\224\321\225{#B#\202\237 #\211$.\207" [smtpmail-address-buffer addr-regexp this-line-end this-line simple-address-list case-fold-search #[nil "\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 smtpmail-text-buffer header-start header-end recipient-address-list smtpmail-recipient-address-list] 6 (#$ . 20969)])
#@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 (#$ . 22101)])
(provide 'smtpmail)
Kontol Shell Bypass