* message.el (message-send-mail): Be talkative.

	* mm-decode.el (mm-inlined-types): Add application/x-emacs-lisp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efae8e1..eb88afb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-send-mail): Be talkative.
+
+       * mm-decode.el (mm-inlined-types): Add application/x-emacs-lisp.
+
 2002-02-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * many files: Remove trailing whitespaces, replace spc+tab with

diff --git a/lisp/message.el b/lisp/message.el
index 677821e..1e0dc7f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2870,7 +2870,27 @@ 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 "Message exceeds message-send-mail-partially-limit, send in parts? ")))
+                 (not (message-y-or-n-p 
+                       "The message size is too large, split? "
+                       t 
+                       "\
+The message size exceeds " (/ message-send-mail-partially-limit 1000) "KB.
+
+Some mail gateways (MTA's) bounce large messages.  To avoid the
+problem, answer `y', and the message will be split into several
+smaller pieces, the size of each is about "
+(/ message-send-mail-partially-limit 1000)
+"KB except the last 
+one.
+
+However, some mail readers (MUA's) can't read split messages, i.e.,
+mails in message/partially format. Answer `n', and the message will be
+sent in one piece.
+
+The size limit is controlled by `message-send-mail-partially-limit'.
+If you always want Gnus to send messages in one piece, set
+`message-send-mail-partially-limit' to `nil'.
+")))
              (mm-with-unibyte-current-buffer
                (message "Sending via mail...")
                (funcall (or message-send-mail-real-function

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 2caef4a..8f884d4 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -232,6 +232,7 @@ images, however this behavior may be changed in the future."
 (defcustom mm-inlined-types
   '("image/.*" "text/.*" "message/delivery-status" "message/rfc822"
     "message/partial" "message/external-body" "application/emacs-lisp"
+    "application/x-emacs-lisp"
     "application/pgp-signature" "application/x-pkcs7-signature"
     "application/pkcs7-signature" "application/x-pkcs7-mime"
     "application/pkcs7-mime")