(reverse prev)
     ))
 
-(defun tm-eword::split-string (str &optional mode)
+(defun eword-encode-split-string (str &optional mode)
   (tm-eword::space-process
    (tm-eword::words-to-ruled-words
     (eword-encode-charset-words-to-words
                     (nconc
                      dest
                      (list (list "(" nil nil))
-                     (tm-eword::split-string (cdr token) 'comment)
+                     (eword-encode-split-string (cdr token) 'comment)
                      (list (list ")" nil nil))
                      ))
               )
              (append dest
                      '((" " nil nil)
                        ("(" nil nil))
-                     (tm-eword::split-string comment 'comment)
+                     (eword-encode-split-string comment 'comment)
                      '((")" nil nil))
                      )))
     dest))
 Optional argument MODE allows `text', `comment', `phrase' or nil.
 Default value is `phrase'."
   (car (eword-encode-rword-list (or column 0)
-                               (tm-eword::split-string string mode))))
+                               (eword-encode-split-string string mode))))
 
 (defun eword-encode-address-list (string &optional column)
   "Encode header field STRING as list of address, and return the result.
   "Encode header field STRING as unstructured field, and return the result.
 Optional argument COLUMN is start-position of the field."
   (car (eword-encode-rword-list (or column 0)
-                               (tm-eword::split-string string 'text))))
+                               (eword-encode-split-string string 'text))))
 
 (defun eword-encode-field (string)
   "Encode header field STRING, and return the result.