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

[gnus] / lisp / message.el

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)