* lpath.el: Fbind `coding-system-base' for Mule 2.

diff --git a/ChangeLog b/ChangeLog
index 61b1e62..c91707c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-04-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/lpath.el: Fbind `coding-system-base' for Mule 2.
+
+2003-04-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * lisp/gnus-vers.el: T-gnus 6.15.19 (quimby) revision 00.
 
 2003-04-13  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/lpath.el b/lisp/lpath.el
index bd4a7eb..7b01bb5 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -79,10 +79,11 @@
         '(function-max-args smiley-encode-buffer))
        ((boundp 'MULE)
         '(charsetp
-          coding-system-get coding-system-list coding-system-to-mime-charset
-          compose-mail file-name-extension find-coding-systems-for-charsets
-          find-coding-systems-region function-max-args get-charset-property
-          smiley-encode-buffer smtpmail-send-it))
+          coding-system-base coding-system-get coding-system-list
+          coding-system-to-mime-charset compose-mail file-name-extension
+          find-coding-systems-for-charsets find-coding-systems-region
+          function-max-args get-charset-property smiley-encode-buffer
+          smtpmail-send-it))
        (t
         '(function-max-args smiley-encode-buffer))))
       (common-fns