Doc fixes.

(sendmail-send-it): Fix the non-ASCII regexp and use
rfc2047-encode-string.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9042b69dc1c47cf1f9e76cc29248d6a5bdafaff8..16d06cba4e5d66f443e8ef3d3d53e573b9ee0b40 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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 @@ nil means let mailer mail back a message to report errors."
 
 ;; 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 @@ of outgoing mails regardless of the current language environment.
 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 @@ See also the function `select-message-coding-system'.")
                (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)