gnus-compat.el (string-bytes): Work for XEmacs

[gnus] / lisp / gnus-compat.el

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 3eac265..d286ea1 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -144,6 +144,15 @@ one is kept."
 (unless (fboundp 'declare-function)
   (defmacro declare-function (&rest r)))
 
+(unless (fboundp 'string-bytes)
+  (defun string-bytes (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)
 
 ;; gnus-compat.el ends here