;ELC ;;; compiled by kwzh@psilocin.gnu.ai.mit.edu on Mon Jul 15 21:28:39 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/smtpmail.el ;;; emacs version 19.31.92.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`smtpmail.el' was compiled for Emacs 19.29 or later")) (require (quote sendmail)) #@31 *Specify default SMTP server. (defvar smtpmail-default-smtp-server nil (#$ . -507)) #@44 *The name of the host running SMTP server. (defvar smtpmail-smtp-server (byte-code "!\n" [getenv "SMTPSERVER" smtpmail-default-smtp-server] 2) (#$ . -597)) #@41 *SMTP service port number. smtp or 25 . (defvar smtpmail-smtp-service 25 (#$ . -765)) #@131 *Local domain name without a host name. If the function (system-name) returns the full internet address, don't define this value. (defvar smtpmail-local-domain nil (#$ . -858)) #@61 *smtpmail debug info printout. messages and process buffer. (defvar smtpmail-debug-info nil (#$ . -1041)) #@70 *smtpmail code convert from this code to *internal*..for tiny-mime.. (defvar smtpmail-code-conv-from nil (#$ . -1153)) (defalias 'smtpmail-send-it #[nil "!\n!!ljp \n \f Ύ\fq !dbhU=ceb!Q!!!  ae \"eb #{` W{!d ebeb #``)} \n\")\neb #!eb #j%& ()=(e\\ -.b-#.bc-#\"c*&i)=]&`.(c -.b-#=\",.b-#V\".bA*ci)i&ֱ* Tb\n" parens " (" "[()\\]" "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)" "\\1(\\3)" ")\n" eval mail-mailer-swallows-blank-line newline "^FCC:" mail-do-fcc "*smtp-mail*" smtpmail-address-buffer smtpmail-deduce-address-list smtpmail-recipient-address-list kill-buffer smtpmail-do-bcc smtpmail-via-smtp error "Sending failed; SMTP protocol error" "Sending failed; no recipients"] 7]) (defalias 'smtpmail-fqdn #[nil "\n Q " [smtpmail-local-domain system-name "."] 3]) (defalias 'smtpmail-via-smtp #[(recipient smtpmail-text-buffer) " \nɎˍ." [nil smtpmail-smtp-server smtpmail-smtp-service process-buffer greeting response-code port host process ((byte-code "!q\"!!)" [process process-buffer smtpmail-send-command "QUIT" smtpmail-read-response delete-process] 3)) done (byte-code " \"!\fq )\f $ !\" \"\fq!e !@L@L@YQ\" \"\" !@u@u@Yz\" \"\" !@@@Y\"8 8\"\"T !@@@Y\") \" !@@@Y\"  \" \" !@/@/@Y4\")" [get-buffer-create format "*trace of SMTP session to %s*" host process-buffer erase-buffer open-network-stream "SMTP" port process throw done nil set-process-filter smtpmail-process-filter make-local-variable smtpmail-read-point smtpmail-read-response greeting 400 smtpmail-send-command "HELO %s" smtpmail-fqdn response-code "MAIL FROM: <%s>" user-mail-address 0 n recipient "RCPT TO: <%s>" "DATA" smtpmail-send-data smtpmail-text-buffer "." t] 7)] 6]) (defalias 'smtpmail-process-filter #[(process output) " !qdb\nc)" [process-buffer process output] 2]) (defalias 'smtpmail-read-response #[(process) " zb#(\f!b`7 Z{b!^M! Ӕӕ{!B\f!m  B\f \f-" [nil t (nil "") match-end return-value response-continue response-string case-fold-search smtpmail-read-point search-forward " \n" accept-process-output process 2 looking-at "[0-9]+ " smtpmail-debug-info message string-to-int 0 "[0-9]+-"] 6]) (defalias 'smtpmail-send-command #[(process command) "dbHUcı`\"\"" [command 0 80 "PASS \n" " \n" smtpmail-read-point process-send-string process] 3]) (defalias 'smtpmail-send-data-1 #[(process data) "db \n #\f\nű`\n!='\n\"\n\n\"\n\"" [smtpmail-code-conv-from code-convert-string data *internal* smtpmail-debug-info " \n" smtpmail-read-point string-to-char 46 process-send-string process "."] 4]) (defalias 'smtpmail-send-data #[(process buffer) "qeb) =qy`` \n{yU3)\n\f\"," [t nil this-line-end this-line sending-data data-continue buffer 0 1 smtpmail-send-data-1 process] 4]) #@56 Get address list suitable for smtp RCPT TO:
. (defalias 'smtpmail-deduce-address-list #[(smtpmail-text-buffer header-start header-end) "!ĉ Ď\nq  #eb#79) #u!Քy!a`WayN {!Q: !!!ed%ed%ed%eb#!eb$d#!֔֕{$B$$'." [require mail-utils t "" nil addr-regexp this-line-end this-line simple-address-list case-fold-search smtpmail-address-buffer erase-buffer insert-buffer-substring smtpmail-text-buffer header-start header-end re-search-forward "^RESENT-TO:" "^\\(RESENT-TO:\\|RESENT-CC:\\|RESENT-BCC:\\)" "^\\(TO:\\|CC:\\|BCC:\\)" replace-match 0 1 looking-at "^[ ]+" point-marker " " mail-strip-quoted-names insert-string "\n" subst-char-in-region 10 32 44 9 "[ ]+" recipient-address-list " \\([^ ]+\\) " backward-char smtpmail-recipient-address-list] 6 (#$ . 5335)]) #@153 Delete 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) "eb\f#)Ŕy`|!`\fW!*" [t case-fold-search re-search-forward "^BCC:" header-end 0 1 looking-at "^[ ].*\n" replace-match ""] 4 (#$ . 6258)]) (provide (quote smtpmail))