| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301\302\303\304\305%\210\306\307!\210\306\310!\210\306\311!\207" [custom-declare-group smtpmail-async nil "Send e-mail with smtpmail.el asynchronously" :group smptmail require async smtpmail message] 6) | |
| 16 | #@115 Hook running in the child emacs in `async-smtpmail-send-it'. | |
| 17 | It is called just before calling `smtpmail-send-it'. | |
| 18 | (defvar async-smtpmail-before-send-hook nil (#$ . 629)) | |
| 19 | (defalias 'async-smtpmail-send-it #[0 "\300\301!\302ed\"\303\304\"\210\305\306\307\310\311\312D\313\314\315\307\316#\317BBBBF\320\321\322\323\324!\325\"\326\327%\"\207" [message-field-value "To" buffer-substring-no-properties message "Delivering message to %s..." async-start lambda nil (require 'smtpmail) with-temp-buffer insert (set-buffer-multibyte nil) async-inject-variables "\\`\\(smtpmail\\|async-smtpmail\\|\\(user-\\)?mail\\)-\\|auth-sources\\|epg\\|nsm" "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)" ((run-hooks 'async-smtpmail-before-send-hook) (smtpmail-send-it)) make-byte-code 256 "\301\302\300\"\207" vconcat vector [message "Delivering message to %s...done"] 4 "\n\n(fn &optional IGNORE)"] 13]) | |
| 20 | (provide 'smtpmail-async) | |
