Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
mail /
[ HOME SHELL ]
Name
Size
Permission
Action
binhex.elc
9.01
KB
-rw-r--r--
blessmail.el
2.51
KB
-rw-r--r--
emacsbug.elc
7.55
KB
-rw-r--r--
feedmail.elc
79.59
KB
-rw-r--r--
footnote.elc
21.09
KB
-rw-r--r--
hashcash.elc
10.81
KB
-rw-r--r--
mail-extr.elc
33.9
KB
-rw-r--r--
mail-hist.elc
13.74
KB
-rw-r--r--
mail-utils.elc
9.55
KB
-rw-r--r--
mailabbrev.elc
13.96
KB
-rw-r--r--
mailalias.elc
13.52
KB
-rw-r--r--
mailclient.elc
3.56
KB
-rw-r--r--
mailheader.elc
5.92
KB
-rw-r--r--
mailpost.elc
2.3
KB
-rw-r--r--
metamail.elc
4.44
KB
-rw-r--r--
mspools.elc
7.25
KB
-rw-r--r--
reporter.elc
9.65
KB
-rw-r--r--
rfc2368.elc
2.46
KB
-rw-r--r--
rfc822.elc
5.71
KB
-rw-r--r--
rmail-spam-filter.elc
13.24
KB
-rw-r--r--
rmail.elc
113.93
KB
-rw-r--r--
rmailedit.elc
8.83
KB
-rw-r--r--
rmailkwd.elc
5.12
KB
-rw-r--r--
rmailmm.elc
11.05
KB
-rw-r--r--
rmailmsc.elc
1.56
KB
-rw-r--r--
rmailout.elc
15.73
KB
-rw-r--r--
rmailsort.elc
6.33
KB
-rw-r--r--
rmailsum.elc
52.51
KB
-rw-r--r--
sendmail.elc
51.72
KB
-rw-r--r--
smtpmail.elc
21.58
KB
-rw-r--r--
supercite.elc
58.99
KB
-rw-r--r--
uce.elc
7.66
KB
-rw-r--r--
undigest.elc
7.88
KB
-rw-r--r--
unrmail.elc
4.69
KB
-rw-r--r--
uudecode.elc
6.19
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : smtpmail.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:23 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/smtpmail.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`smtpmail.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\302\306\304\"\210\302\307\310\"\210\302\311\312\"\210\302\313\312\"\210\302\314\315\"\210\302\316\317\"\210\302\320\317\"\210\302\321\317\"\210\302\322\323\"\210\302\324\325\"\210\326\327\330\331\332\333%\207" [require sendmail autoload starttls-any-program-available "starttls" starttls-open-stream starttls-negotiate mail-strip-quoted-names "mail-utils" message-make-date "message" message-make-message-id rfc2104-hash "rfc2104" netrc-parse "netrc" netrc-machine netrc-get password-read "password-cache" auth-source-user-or-password "auth-source" custom-declare-group smtpmail nil "SMTP protocol for sending mail." :group mail] 6) #@106 Specify default SMTP server. This only has effect if you specify it before loading the smtpmail library. (custom-declare-variable 'smtpmail-default-smtp-server 'nil '(#$ . 1308) :type '(choice (const nil) string) :group 'smtpmail) #@43 The name of the host running SMTP server. (custom-declare-variable 'smtpmail-smtp-server '(or (getenv "SMTPSERVER") smtpmail-default-smtp-server) '(#$ . 1545) :type '(choice (const nil) string) :group 'smtpmail) #@68 SMTP service port number. The default value would be "smtp" or 25. (custom-declare-variable 'smtpmail-smtp-service '25 '(#$ . 1763) :type '(choice (integer :tag "Port") (string :tag "Service")) :group 'smtpmail) #@130 Local domain name without a host name. If the function `system-name' returns the full internet address, don't define this value. (custom-declare-variable 'smtpmail-local-domain 'nil '(#$ . 1982) :type '(choice (const nil) string) :group 'smtpmail) #@506 Local domain name without a host name. This is appended (with an @-sign) to any specified recipients which do not include an @-sign, so that each RCPT TO address is fully qualified. (Some configurations of sendmail require this.) Don't bother to set this unless you have get an error like: Sending failed; SMTP protocol error when sending mail, and the *trace of SMTP session to <somewhere>* buffer includes an exchange like: RCPT TO: <someone> 501 <someone>: recipient address must contain a domain. (custom-declare-variable 'smtpmail-sendto-domain 'nil '(#$ . 2237) :type '(choice (const nil) string) :group 'smtpmail) #@169 Whether to print info in buffer *trace of SMTP session to <somewhere>*. See also `smtpmail-debug-verb' which determines if the SMTP protocol should be verbose as well. (custom-declare-variable 'smtpmail-debug-info 'nil '(#$ . 2869) :type 'boolean :group 'smtpmail) #@121 Whether this library sends the SMTP VERB command or not. The commands enables verbose information from the SMTP server. (custom-declare-variable 'smtpmail-debug-verb 'nil '(#$ . 3141) :type 'boolean :group 'smtpmail) #@138 Coding system for encoding outgoing mail. Used for the value of `sendmail-coding-system' when `select-message-coding-system' is called. (custom-declare-variable 'smtpmail-code-conv-from 'nil '(#$ . 3365) :type 'coding-system :group 'smtpmail) #@170 Non-nil means mail is queued; otherwise it is sent immediately. If queued, it is stored in the directory `smtpmail-queue-dir' and sent with `smtpmail-send-queued-mail'. (custom-declare-variable 'smtpmail-queue-mail 'nil '(#$ . 3616) :type 'boolean :group 'smtpmail) #@51 Directory where `smtpmail.el' stores queued mail. (custom-declare-variable 'smtpmail-queue-dir '"~/Mail/queued-mail/" '(#$ . 3888) :type 'directory :group 'smtpmail) #@434 Specify username and password for servers, directly or via .netrc file. This variable can either be a filename pointing to a file in netrc(5) format, or list of four-element lists that contain, in order, `servername' (a string), `port' (an integer), `user' (a string) and `password' (a string, or nil to query the user when needed). If you need to enter a `realm' too, add it to the user string, so that it looks like `user@realm'. (custom-declare-variable 'smtpmail-auth-credentials '"~/.authinfo" '(#$ . 4061) :type '(choice file (repeat (list (string :tag "Server") (integer :tag "Port") (string :tag "Username") (choice (const :tag "Query when needed" nil) (string :tag "Password"))))) :version "22.1" :group 'smtpmail) #@383 Specify STARTTLS keys and certificates for servers. This is a list of four-element list with `servername' (a string), `port' (an integer), `key' (a filename) and `certificate' (a filename). If you do not have a certificate/key pair, leave the `key' and `certificate' fields as `nil'. A key/certificate pair is only needed if you want to use X.509 client authenticated connections. (custom-declare-variable 'smtpmail-starttls-credentials ''((#1="" 25 #1# #1#)) '(#$ . 4793) :type '(repeat (list (string :tag "Server") (integer :tag "Port") (file :tag "Key") (file :tag "Certificate"))) :version "21.1" :group 'smtpmail) #@171 If set, print warnings about unknown SMTP extensions. This is mainly useful for development purposes, to learn about new SMTP extensions that might be useful to support. (custom-declare-variable 'smtpmail-warn-about-unknown-extensions 'nil '(#$ . 5420) :type 'boolean :version "21.1" :group 'smtpmail) #@75 File name of queued mail index. This is relative to `smtpmail-queue-dir'. (custom-declare-variable 'smtpmail-queue-index-file '"index" '(#$ . 5728) :type 'string :group 'smtpmail) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list smtpmail-queue-counter default-boundp set-default 0] 3) #@74 List of supported SMTP AUTH mechanisms. The list is in preference order. (defconst smtpmail-auth-supported '(cram-md5 plain login) (#$ . 6051)) #@70 Value to use for envelope-from address for mail from ambient buffer. (defvar smtpmail-mail-address nil (#$ . 6201)) (defalias 'smtpmail-send-it #[nil "\203\n \306\307!\202 \310\306\311!\312\211p \203 \313 \206 \n \205$ \f \314 ) @ A B C D E\315\216\212Dq\210\316 \210\317\f\312\320#\210\321A!\210db\210h\322U\204R \322c\210\323 \210\324 BF\203d \325eB\"\210eb\210\326\327B\320#\203~ `BW\203~ \330\331!\210\202g \320 Ceb\210\326\332B\320#\203\224 \330\333!\210\202\251 \326\334B\320#\203\251 \310\225BU\203\251 \330\333!\210eb\210\326\335B\320#\204`@ G\336 HI\337=\203\340H\261\210e\341\\\324 J\211 Kb\210\326\342J\343#\203\372 Kb\210\344c\210\326\345J\343#\203\367 \330\346\320\"\210\202\346 \344c\210*\347G\350\261\210\202_I\351=\203S\340G\352\261\210` KHc\210\324 JKb\210\326\353J\343#\2033\330\346\320\"\210\202\"Kb\210\326\354J\343#\203L\330\355\320\"\210Kb\210\2027*\356c\210\202_I\204_\340G\331\261\210*eb\210\326\357B\320#\204s\360\361 \331\261\210eb\210\326\362B\320#\204\206\363\364 \331\261\210\312 Leb\210M\365=\203\304\326\366B\320#\204\304\367\312w\210`dU\204\304\f\203\304\370\f\371\"\211L\203\304Bb\203\304\372\373\374L!\375\261\210)BTb\210\376N!\203\324\377 \210eb\210\326\201[ B\320#\203\355\f O\201\\ B!\210)\203\372rEq\210\316 \210))\306\201] !P\201^ DeB#Q\201_ P!\210\201` B!\210R\204EQ\203;\201a QD\"?\205\375\201b \201c !\202\375\201b \201d !\202\375\201e \201f \201g \201h \201i !ST\211S#T\" U\201j U!\211 U\201k P V\201l U! W\201l V! X\201m Y\201n T!\204\226\201o T\320\"\210rWq\210\316 \210\317\f\312\320#\210\321D!\210\201p U!\210Xq\210\316 \210\201q \201r Q!\356Qc\210\201p V!\210\306Y!q\210U\331Pc\210\201s ed\201e ZT\"#\210)\201_ Y!\210\201_ W!\210\201_ X!.. \207" [mail-interactive mail-specify-envelope-from user-mail-address enable-multibyte-characters smtpmail-code-conv-from sendmail-coding-system generate-new-buffer " smtpmail errors" 0 " smtpmail temp" nil mail-envelope-from 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=" symbol-name "\nContent-Transfer-Encoding: 8bit\n" eval newline smtpmail-mail-address mailbuf 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 "^FCC:" mail-do-fcc "*smtp-mail*" smtpmail-deduce-address-list kill-buffer smtpmail-do-bcc smtpmail-via-smtp error "Sending failed; SMTP protocol error" "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 write-file "(setq smtpmail-recipient-address-list '" prin1-to-string append-to-file] 8]) #@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 !\210eb\210m\204r `\314 {\315\f!\210\306\307! r q\210\316\216\317 \313\f!\210)\203A \320 \206C \203Y \321 p\"\204] \322\323!\210\202] \322\324!\210,\325\f!\210\325\f\326P!\210\327 \327\330!|\210\202 \331ed #-\207" [#1=#:temp-buffer smtpmail-queue-index-file smtpmail-queue-dir qfile file-msg #2=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "" expand-file-name insert-file-contents line-end-position load ((byte-code "\301!\203\n \302!\210\301\207" [#2# buffer-name kill-buffer] 2)) no-conversion mail-envelope-from smtpmail-via-smtp error "Sending failed; SMTP protocol error" "Sending failed; no recipients" delete-file ".el" point-at-bol 2 write-region coding-system-for-read mail-specify-envelope-from user-mail-address smtpmail-mail-address smtpmail-recipient-address-list] 4 (#$ . 9960) 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-open-stream #[(process-buffer host port) "\306 \n#\211\203 \307 \204 \310\311\f \n$\202\210 \312 8) \313 8) \314 ;\205Q ;\205Q \315\316 !\211!\205Q \315\316!\211!\205Q \317 \320F\" \314 ;\205~ ;\205~ \315\316 !\211!\205~ \315\316!\211!\205~ \321 \322F\" \323\311\f \n$,)\207" [smtpmail-starttls-credentials host port cred process-buffer cred-key smtpmail-find-credentials starttls-any-program-available open-network-stream "SMTP" 2 3 append file-regular-p expand-file-name "--key-file" "--cert-file" "--x509keyfile" "--x509certfile" starttls-open-stream cred-cert starttls-extra-args starttls-extra-arguments] 7]) (defalias 'smtpmail-try-auth-methods #[(process supported-extensions host port) "\306\307\"\243\310 \n\"@\311\312\f \206 \313# 2\311\314\f \206 \313# 32\2036 3\2036 \f 23F\202q 4;\203k \3154! 5\316\317 \206I \313\" 6\3205\f6\211$\211 7\205g \f \3217\312\"\3217\314\"F+\202q \3224\f #\211 8\205\211 \316\3238\211 8@)8\211 8A@)# 98\205\241 8 8\32488)\206\241 \3259\211\" :\326 ;8\205& \205& \327=\203G\330<\316\331 \"\226\"\210\332<!\211;@\203\331 ;@\250\203\331 ;@\333Y\203\336 \334\335\326\"\210;@\336=\203;\211 =A@)\337\326O >\340>! ?\341\342\343\344:?% @8 8\34588)\346@Q A\347A\350\" B\330<\316\317B\"\"\210\332<!\211;@\203>;@\250\203>;@\333Y\203C\334\335\326\"\210-\202 \351=\203\316\330<\352\"\210\332<!\211;@\203m;@\250\203m;@\333Y\203r\334\335\326\"\210\330<\3478 8\34588)\350\"\"\210\332<!\211;@\203\235;@\250\203\235;@\333Y\203\242\334\335\326\"\210\330<\347:\350\"\"\210\332<!\211;@\203\306;@\250\203\306;@\333Y\203\334\335\326\"\210\202 \353=\203\330<\354\347\3558 8\34588)\355:R\350\"P\"\210\332<!\211;@\203;@\250\203;@\356\232\204\334\335\326\"\210\202\357\360 \"\2108 8\32488)?\205&\3619:\".\207" [supported-extensions mechs smtpmail-auth-supported mech host port assoc auth smtpmail-intersection auth-source-user-or-password "login" "smtp" "password" netrc-parse format "%s" netrc-machine netrc-get smtpmail-find-credentials "SMTP password for %s:%s: " 3 password-read nil cram-md5 smtpmail-send-command "AUTH %s" smtpmail-read-response 400 throw done 334 4 base64-decode-string rfc2104-hash md5 64 16 2 " " base64-encode-string t login "AUTH LOGIN" plain "AUTH PLAIN " " " 235 error "Mechanism %s not implemented" password-cache-add auth-user auth-pass smtpmail-auth-credentials netrc port-name hostentry cred prompt passwd ret process x challenge decoded hash response encoded] 9]) (defalias 'smtpmail-via-smtp #[(recipient smtpmail-text-buffer) "\306\206 \307\310! \n\206 \203 \311 \206 \f\306\211\211\211 \312\216\313\314\215. \207" [smtpmail-smtp-server smtpmail-smtp-service smtpmail-mail-address mail-specify-envelope-from user-mail-address supported-extensions nil error "`smtpmail-smtp-server' not defined" mail-envelope-from ((byte-code "\203 r\302!q\210\303\304\"\210\305!\210\306!\210 \204 \307\n!\210)\302\207" [process smtpmail-debug-info process-buffer 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\204 \314\315\316\"\210\317\f\320\"\210r q\210\321\322\211\"\210\323\305!\210e\324\f!\211@@\203M @@\250\203M @@\325Y\203R \314\315\316\"\210\311\211 A BB\203m\326\f\307\327\330 \"\"\210\324\f!\211C@\203 C@\250\203 C@\325Y\203\251 \326\f\307\331\330 \"\"\210\324\f!\211C@\203\241 C@\250\203\241 C@\325Y\203\314\315\316\"\210\202CAA\316 D\211 E\203E@D\332 p F G\333\216\334H!\210\335\336\337D\340\316O\341\"\"+\211 IG\342=\203\343 I@II\203I:\203\364 I@\202\366 I\343>\203IJBJ\202K\203\344\345I\"\210)EA\211E\204\266 *A\203f\346L #\203f\347J\235\203f\350\f!\247\203f\326\f\307\351!\"\210\324\f!\211C@\203WC@\250\203WC@\325Y\203\\\314\315\316\"\210\352\f!\210\316A\202X \316\211B\204] *\353\fJ $\210\354J\235\204\204\355J\235\203\251\326\f\307\356!\"\210\324\f!\211C@\203\244C@\250\203\244C@\325Y\203\251\314\315\316\"\210M\203\341\357J\235\204\274\360J\235\203\341\326\f\307\361!\"\210\324\f!\211C@\203\334C@\250\203\334C@\325Y\203\341\314\315\316\"\210\362J\235\203 \326\f\307\363!\"\210\324\f!\211C@\203C@\250\203C@\325Y\203 \314\315\316\"\210\364J\235\204 \365\364J\"\2030\307\366rNq\210deZ\367ed\"\\)\"\2021\370\371J\235\203<\370\202=\370 O P\326\f\307\372QPO$\"\210\324\f!\211C@\203gC@\250\203gC@\325Y\203l\314\315\316\"\210*\373 RRS8\203\254\326\f\307\374\375RS8!\"\"\210RTR\324\f!\211C@\203\244C@\250\203\244C@\325Y\203p\314\315\316\"\210\202p)\326\f\376\"\210\324\f!\211C@\203\313C@\250\203\313C@\325Y\203\320\314\315\316\"\210\377\fN\"\210\326\f\201T \"\210\324\f!\211C@\203\366C@\250\203\366C@\325Y\203\373\314\315\316\"\210)\311\207" [host process-buffer buffer-undo-list port process smtpmail-read-point get-buffer-create format "*trace of SMTP session to %s*" t erase-buffer smtpmail-open-stream throw done nil set-process-filter smtpmail-process-filter set-buffer-process-coding-system raw-text-unix make-local-variable smtpmail-read-response 400 smtpmail-send-command "EHLO %s" smtpmail-fqdn "HELO %s" 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] split-string 4 "[ ]" 1 (verb xvrb 8bitmime onex xone expn size dsn etrn enhancedstatuscodes help xusr auth=login auth starttls) message "Unknown extension %s" smtpmail-find-credentials starttls process-id "STARTTLS" starttls-negotiate smtpmail-try-auth-methods onex xone "ONEX" verb xvrb "VERB" xusr "XUSR" size assoc " SIZE=%d" count-lines "" 8bitmime "MAIL FROM:<%s>%s%s" 0 "RCPT TO:<%s>" smtpmail-maybe-append-domain "DATA" smtpmail-send-data greeting do-starttls do-ehlo response-code line --dolist-tail-- #1# #2# ascii-case-table name supported-extensions smtpmail-warn-about-unknown-extensions smtpmail-starttls-credentials smtpmail-debug-verb smtpmail-text-buffer body-part size-part envelope-from n recipient "."] 8) process-buffer greeting response-code envelope-from port host process] 8]) (defalias 'smtpmail-process-filter #[(process output) "r\302!q\210db\210 c)\207" [process output process-buffer] 2]) (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\303H\304U\203 \305c\210\202 \306\261\210`\307\n\"\210\307\n\306\"\207" [command smtpmail-read-point process 0 80 "PASS <omitted> \n" " \n" process-send-string] 3]) (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) "\304\305r\nq\210eb\210) \205) r\nq\210\306 \307 {\310\210m?)\311 \"\210\202\f *\207" [sending-data data-continue buffer process t nil point-at-bol point-at-eol 2 smtpmail-send-data-1] 3]) #@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 (#$ . 20522)]) #@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 (#$ . 21627)]) (provide 'smtpmail)
Close
