Mercurial > emacs
changeset 35615:6330c3e00b34
Doc fixes.
(sendmail-send-it): Fix the non-ASCII regexp and use
rfc2047-encode-string.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 26 Jan 2001 18:24:03 +0000 |
| parents | 64758b6d401f |
| children | 47f26b110f6b |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Fri Jan 26 17:33:27 2001 +0000 +++ b/lisp/mail/sendmail.el Fri Jan 26 18:24:03 2001 +0000 @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- -;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000 +;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -35,6 +35,8 @@ (require 'rmail) (require 'mailalias)) +(autoload 'rfc2047-encode-string "rfc2047") + (defgroup sendmail nil "Mail sending commands for Emacs." :prefix "mail-" @@ -96,10 +98,12 @@ ;; Useful to set in site-init.el ;;;###autoload -(defcustom send-mail-function 'sendmail-send-it "\ -Function to call to send the current buffer as mail. +(defcustom send-mail-function 'sendmail-send-it + "Function to call to send the current buffer as mail. The headers should be delimited by a line which is -not a valid RFC822 header or continuation line." +not a valid RFC822 header or continuation line. +This is used by the default mail-sending commands. See also +`message-send-mail-function' for use with the Message package." :type '(radio (function-item sendmail-send-it :tag "Use Sendmail package") (function-item smtpmail-send-it :tag "Use SMTPmail package") (function-item feedmail-send-it :tag "Use Feedmail package") @@ -779,6 +783,9 @@ See also the function `select-message-coding-system'.") (defun sendmail-send-it () + "Send the current mail buffer using the Sendmail package. +This is a suitable value for `send-mail-function'. It sends using the +external program defined by `sendmail-program'." (require 'mail-utils) (let ((errbuf (if mail-interactive (generate-new-buffer " sendmail errors") @@ -863,8 +870,8 @@ (let* ((login user-mail-address) (fullname (user-full-name)) (quote-fullname nil)) - (if (string-match "[\200-\377]" fullname) - (setq fullname (mail-quote-printable fullname t) + (if (string-match "[^\0-\177]" fullname) + (setq fullname (rfc2047-encode-string fullname) quote-fullname t)) (cond ((eq mail-from-style 'angles) (insert "From: " fullname)