gnus-compat.el (string-bytes): Work for XEmacs
authorKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 27 Jan 2015 08:50:44 +0000 (08:50 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 27 Jan 2015 08:50:44 +0000 (08:50 +0000)
lisp/ChangeLog
lisp/gnus-compat.el

index bc8f44b..706b172 100644 (file)
@@ -1,6 +1,10 @@
+2015-01-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-compat.el (string-bytes): Work for XEmacs.
+
 2015-01-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
-       * gnus-compat.el (fboundp): Avoid compilation error on XEmacs.
+       * gnus-compat.el (string-bytes): Avoid compilation error on XEmacs.
 
        * nnir.el (nnir-imap-expr-to-imap): Check for literal+ capability in
        IMAP.
index 86bcb8f..d286ea1 100644 (file)
@@ -146,8 +146,12 @@ one is kept."
 
 (unless (fboundp 'string-bytes)
   (defun string-bytes (string)
-    ;; This is a rather wrong definition that should be fixed.
-    (length string)))
+    (length (if (or (mm-coding-system-p 'utf-8)
+                   (ignore-errors
+                     (let (mucs-ignore-version-incompatibilities)
+                       (require 'un-define))))
+               (encode-coding-string string 'utf-8)
+             string))))
 
 (provide 'gnus-compat)