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)