Delete nil.

In XEmacs, there is no charset for control characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46cb722..b967487 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-07 12:32:43  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-find-mime-charset-region): Delete nil.
+
 1999-12-07 11:45:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-find-charset-region): Don't capitalize.  Delete

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 9b1082d..785c4b6 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -226,9 +226,9 @@ used as the line break code type of the coding system."
 (defun mm-find-mime-charset-region (b e)
   "Return the MIME charsets needed to encode the region between B and E."
   (let ((charsets
-        (mapcar 'mm-mime-charset
-                (delq 'ascii
-                      (mm-find-charset-region b e)))))
+        (delq nil (mapcar 'mm-mime-charset
+                          (delq 'ascii
+                                (mm-find-charset-region b e))))))
     (when (memq 'iso-2022-jp-2 charsets)
       (setq charsets (delq 'iso-2022-jp charsets)))
     (delete-duplicates charsets)