* gnus-spec.el (gnus-lrm-string-p): `bidi-string-mark-left-to-right' has been renamed.

[gnus] / lisp / gnus-spec.el

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 31cb986..2e6b7aa 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -91,8 +91,8 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway."
                   (header gnus-tmp-from))
 
 (defmacro gnus-lrm-string-p (string)
-  (if (fboundp 'string-mark-left-to-rigth)
-      `(eq (aref ,string (1- (length ,string))) 8206)
+  (if (fboundp 'bidi-string-mark-left-to-right)
+      `(memq (aref ,string (1- (length ,string))) '(8206))
     nil))
 
 (defvar gnus-lrm-string (if (ignore-errors (string 8206))