Fix compatibility of string-to-x.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84373e7..ad3eb95 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-17 19:36:47  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2047.el (rfc2047-dissect-region): Use mapcar instead of
+       string-to-x function.
+
 1999-12-17 13:08:54  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-fold-region): Fold a line more than once.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index ff293ae..3e377a7 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -155,7 +155,7 @@ permitted unencoded charset is us-ascii."
 (defun rfc2047-dissect-region (b e)
   "Dissect the region between B and E into words."
   (let ((all-specials (concat ietf-drums-tspecials " \t\n\r"))
-       (special-list (string-to-char-list ietf-drums-tspecials))
+       (special-list (mapcar 'identity ietf-drums-tspecials))
        (blank-list '(?  ?\t ?\n ?\r))
        words current cs state)
     (save-restriction