diff options
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 690825bf1e5..42b688fbabc 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -28,8 +28,8 @@ ;;; Code: (require 'mail-utils) - (require 'rfc2047) +(autoload 'message-make-date "message") (defgroup sendmail nil "Mail sending commands for Emacs." @@ -555,8 +555,9 @@ This also saves the value of `send-mail-function' via Customize." (goto-char (point-min)) (display-buffer (current-buffer)) (let ((completion-ignore-case t)) - (completing-read "Send mail via: " - options nil 'require-match))))) + (completing-read + (format "Send mail via (default %s): " (caar options)) + options nil 'require-match nil nil (car options)))))) (customize-save-variable 'send-mail-function (cdr (assoc-string choice options t))))) @@ -1409,6 +1410,7 @@ just append to the file, in Babyl format if necessary." (require 'mail-utils) (insert (mail-rfc822-time-zone time) " ") (goto-char (point-max)) + (insert "Date: " (message-make-date) "\n") (insert-buffer-substring mailbuf) ;; Make sure messages are separated. (goto-char (point-max)) |