HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/mail/smtpmail.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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) (#$ . 4249))
#@70 Value to use for envelope-from address for mail from ambient buffer.
(defvar smtpmail-mail-address nil (#$ . 4399))
(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 )@ABCDEF\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|\324Deb\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\211Lb\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\312Meb\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\201cC!\210)\203rFq\210\322 \210))\201deC\"\210\306\201e!Q\201fEeC#R\201gQ!\210\201hC!\210S\204uR\203k\201iRE\"\211B\205:\201j\201kB\"\202:\201j\201l!\202:\201m\201n\201o\201p\201q!TT\211T#U\"V\201rV!\211V\201sPW\201tV!X\201tW!Y\201uZ\201vU!\204\306\201wU\324\"\210rXq\210\322 \210\323\201a\f\206\331\201x\201b\"\312\324#\210\325E!\210\201yV!\210Yq\210\322 \210\201z\201{R!\362Qc\210\201yW!\210\306Z!q\210V\335Pc\210\201|ed\201m[U\"#\210)\201gZ!\210\201gX!\210\201gY!..\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 (#$ . 8378) 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\nBA\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\211A@\313\306O\314
!\315\316\317\320%\n\321Q\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\330R\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\202D0\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 (#$ . 13467)])
#@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 (#$ . 14502)])
(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@ABCDEFG\317\216\3202\\\321\322\323F\"!BrBq\210\324H\325 \210)\326\211IJ\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!\211N\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!\211N\203\nN\361Y\203\370G\322\371\336 \"\"\210\202\241\372\373\374\351AA\367\"\375\"\"\307P\211Q\203\240Q@P\376 pRS\377\216\201]T!\210\201^\201_\374P\201`\307O\201a\"\"+\211UG\201bU\203eU@UU\203\226U:\203vU@\202xU\201c>\203\207U
B\202\226V\203\226\201d\201eU\"\210)QA\211Q\204,**\201fG
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\201qrXq\210deZ\201red\"\\)\"\202(\373\201s
\235\2034\373\2025\373YZ\201tG\322\201uDZY$\"\210\201v\201wG!\211A!\204\262@\203\250L\204\250A@\201x=\203\250\201y1\211\201tG\201z\"\210\201wG!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\201tG\322\201\201\200\\[8!\"\"\210\201v\201wG!\211A!\204>@\2034L\2044A@\250\2034A@\201\201Y\2034A@\201\202X\2034\201tG\201z\"\210\201wG!\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\204GX\"\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) "\305rq\210\306\307ed#)\310rq\210eb\210)\203Hrq\210\n`\211\247\203-\211@Y\2051\311\"\266\312 \313 {\314\210m?)\315\f	\"\210\202\316\f\317\"\210\320\n!+\207" [buffer sending-data pr data-continue process 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] 5])
#@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\211eb\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 (#$ . 20990)])
#@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 (#$ . 22122)])
(provide 'smtpmail)