(gnus-cite-add-face): Use `move-to-column' statically to skip the prefix

string under Emacs 20.2 or earlier.
(TopLevel): Require `static'.

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 8975276..a9d2018 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -26,6 +26,8 @@
 (require 'gnus-art)
 (require 'gnus-range)
 
+(eval-when-compile (require 'static))
+
 ;;; Customization:
 
 (defgroup gnus-cite nil
@@ -905,7 +907,11 @@ See also the documentation for `gnus-article-highlight-citation'."
          from to overlay)
       (goto-char (point-min))
       (when (zerop (forward-line (1- number)))
-       (forward-char (length prefix))
+       (static-if (or (featurep 'xemacs)
+                      (and (>= emacs-major-version 20)
+                           (>= emacs-minor-version 3)))
+           (forward-char (length prefix))
+         (move-to-column (string-width prefix)))
        (skip-chars-forward " \t")
        (setq from (point))
        (end-of-line 1)