Fix bug when CTE comes without CTL.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b579d88..3f1cc97 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-10-26 23:27:44  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-decode.el (mm-dissect-buffer): CTE may come without CTL.
+
 1999-10-26 21:44:05  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-srvr.el (gnus-browse-foreign-server): Use

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 693c60e..73ea268 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -190,7 +190,11 @@ to:
       (if (or (not ctl)
              (not (string-match "/" (car ctl))))
          (mm-dissect-singlepart
-          '("text/plain") nil no-strict-mime
+          '("text/plain") 
+          (and cte (intern (downcase (mail-header-remove-whitespace
+                                      (mail-header-remove-comments
+                                       cte)))))
+          no-strict-mime
           (and cd (ignore-errors (mail-header-parse-content-disposition cd)))
           description)
        (setq type (split-string (car ctl) "/"))