Commit 67ad9438 authored by Dave Love's avatar Dave Love
Browse files

Doc fixes.

(sendmail-send-it): Fix the non-ASCII regexp and use
rfc2047-encode-string.
parent dda5808a
;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- ;;; 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. ;; Free Software Foundation, Inc.
;; Maintainer: FSF ;; Maintainer: FSF
...@@ -35,6 +35,8 @@ ...@@ -35,6 +35,8 @@
(require 'rmail) (require 'rmail)
(require 'mailalias)) (require 'mailalias))
(autoload 'rfc2047-encode-string "rfc2047")
(defgroup sendmail nil (defgroup sendmail nil
"Mail sending commands for Emacs." "Mail sending commands for Emacs."
:prefix "mail-" :prefix "mail-"
...@@ -96,10 +98,12 @@ nil means let mailer mail back a message to report errors." ...@@ -96,10 +98,12 @@ nil means let mailer mail back a message to report errors."
;; Useful to set in site-init.el ;; Useful to set in site-init.el
;;;###autoload ;;;###autoload
(defcustom send-mail-function 'sendmail-send-it "\ (defcustom send-mail-function 'sendmail-send-it
Function to call to send the current buffer as mail. "Function to call to send the current buffer as mail.
The headers should be delimited by a line which is 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") :type '(radio (function-item sendmail-send-it :tag "Use Sendmail package")
(function-item smtpmail-send-it :tag "Use SMTPmail package") (function-item smtpmail-send-it :tag "Use SMTPmail package")
(function-item feedmail-send-it :tag "Use Feedmail package") (function-item feedmail-send-it :tag "Use Feedmail package")
...@@ -779,6 +783,9 @@ of outgoing mails regardless of the current language environment. ...@@ -779,6 +783,9 @@ of outgoing mails regardless of the current language environment.
See also the function `select-message-coding-system'.") See also the function `select-message-coding-system'.")
(defun sendmail-send-it () (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) (require 'mail-utils)
(let ((errbuf (if mail-interactive (let ((errbuf (if mail-interactive
(generate-new-buffer " sendmail errors") (generate-new-buffer " sendmail errors")
...@@ -863,8 +870,8 @@ See also the function `select-message-coding-system'.") ...@@ -863,8 +870,8 @@ See also the function `select-message-coding-system'.")
(let* ((login user-mail-address) (let* ((login user-mail-address)
(fullname (user-full-name)) (fullname (user-full-name))
(quote-fullname nil)) (quote-fullname nil))
(if (string-match "[\200-\377]" fullname) (if (string-match "[^\0-\177]" fullname)
(setq fullname (mail-quote-printable fullname t) (setq fullname (rfc2047-encode-string fullname)
quote-fullname t)) quote-fullname t))
(cond ((eq mail-from-style 'angles) (cond ((eq mail-from-style 'angles)
(insert "From: " fullname) (insert "From: " fullname)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment