Use 8206 instead of ?\x200e to make things work in Emacs 22 and XEmacs, too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd3afbf..9f5f7bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-08-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-spec.el (gnus-lrm-string): Use 8206 instead of ?\x200e to make
+       things work in Emacs 22 and XEmacs, too.
+
        * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): LRM-ify the
        default From.
 

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 15be32f..0fa64a8 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -91,9 +91,13 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway."
                   (header gnus-tmp-from))
 
 (defmacro gnus-lrm-string-p (string)
-  `(eq (aref ,string (1- (length ,string))) ?\x200e))
+  (if (fboundp 'string-mark-left-to-rigth)
+      `(eq (aref ,string (1- (length ,string))) 8206)
+    nil))
 
-(defvar gnus-lrm-string (propertize (string ?\x200e) 'invisible t))
+(defvar gnus-lrm-string (if (ignore-errors (string 8206))
+                           (propertize (string 8206) 'invisible t)
+                         ""))
 
 (defun gnus-summary-line-format-spec ()
   (insert gnus-tmp-unread gnus-tmp-replied