2001-01-19 Alberto Lusiani <a.lusiani@noemail.org>

	* message.el (message-send-mail): Content-Type may not be there.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f88184..8854617 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-19  Alberto Lusiani <a.lusiani@noemail.org>
+
+       * message.el (message-send-mail): Content-Type may not be there.
+
 2001-01-18 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-ems.el (gnus-article-display-xface): Add BUFFER.

diff --git a/lisp/message.el b/lisp/message.el
index cd742f0..470f418 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2477,10 +2477,13 @@ It should typically alter the sending method in some way or other."
                (and news
                     (or (message-fetch-field "cc")
                         (message-fetch-field "to"))
-                    (string= "text/plain"
-                             (car
-                              (mail-header-parse-content-type
-                               (message-fetch-field "content-type"))))))
+                    (let ((content-type (message-fetch-field "content-type")))
+                      (or
+                       (not content-type)
+                       (string= "text/plain"
+                                (car
+                                 (mail-header-parse-content-type
+                                  content-type)))))))
            (message-insert-courtesy-copy))
          (if (or (not message-send-mail-partially-limit)
                  (< (point-max) message-send-mail-partially-limit)