2001-04-10 Colin Marquardt <colin.marquardt@usa.alcatel.com>

	* message.el (message-send-mail): Improve the interaction with the
	user.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f16b42f..62c4f0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-10  Colin Marquardt <colin.marquardt@usa.alcatel.com>
+
+       * message.el (message-send-mail): Improve the interaction with the
+       user.
+
 2001-04-10  Simon Josefsson  <simon@josefsson.org>
 
        * imap.el (imap-message-copy): Work around buggy servers that

diff --git a/lisp/message.el b/lisp/message.el
index 596c34a..b7f725f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2380,7 +2380,7 @@ It should typically alter the sending method in some way or other."
     (pop actions)))
 
 (defun message-send-mail-partially ()
-  "Sendmail as message/partial."
+  "Send mail as message/partial."
   ;; replace the header delimiter with a blank line
   (goto-char (point-min))
   (re-search-forward
@@ -2508,7 +2508,7 @@ It should typically alter the sending method in some way or other."
            (message-insert-courtesy-copy))
          (if (or (not message-send-mail-partially-limit)
                  (< (point-max) message-send-mail-partially-limit)
-                 (not (y-or-n-p "The message size is too large, should it be sent partially? ")))
+                 (not (y-or-n-p "Message exceeds message-send-mail-partially-limit, send in parts? ")))
              (mm-with-unibyte-current-buffer
                (message "Sending via mail...")
                (funcall message-send-mail-function))