Importing pgnus-0.16
[elisp/gnus.git-] / lisp / mm-util.el
index 9ae62a7..c3fab98 100644 (file)
       (fset 'mm-coding-system-list 'coding-system-list)
     (fset 'mm-coding-system-list 'ignore))
 
+  (if (fboundp 'char-int)
+      (fset 'mm-char-int 'char-int)
+    (fset 'mm-char-int 'identity))
+
   (if (fboundp 'coding-system-equal)
       (fset 'mm-coding-system-equal 'coding-system-equal)
     (fset 'mm-coding-system-equal 'equal))