Mercurial > emacs

comparison lisp/mail/sendmail.el @ 3232:27d2747abab2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(send-mail-function): Use defvar. not defconst.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 May 1993 04:35:25 +0000
parents c47652dc3400
children 908134e8308a
comparison
equal deleted inserted replaced
3231:fb322590dda0 3232:27d2747abab2
43 (defvar mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\ 43 (defvar mail-yank-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:" "\
44 Delete these headers from old message when it's inserted in a reply.") 44 Delete these headers from old message when it's inserted in a reply.")
45 45
46 ;; Useful to set in site-init.el 46 ;; Useful to set in site-init.el
47 ;;;###autoload 47 ;;;###autoload
48 (defconst send-mail-function 'sendmail-send-it "\ 48 (defvar send-mail-function 'sendmail-send-it "\
49 Function to call to send the current buffer as mail. 49 Function to call to send the current buffer as mail.
50 The headers are be delimited by a line which is `mail-header-separator'.") 50 The headers are be delimited by a line which is `mail-header-separator'.")
51 51
52 ;;;###autoload 52 ;;;###autoload
53 (defvar mail-header-separator "--text follows this line--" "\ 53 (defvar mail-header-separator "--text follows this line--" "\