(gnus-mule-cite-add-face): New implementation.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 0e514bf..65eca97 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -57,19 +57,19 @@
   ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
   (when face
     (let ((inhibit-point-motion-hooks t)
-         from to)
-      (goto-line number)
-      (unless (eobp)            ; Sometimes things become confused (broken).
-       (forward-char (chars-in-string prefix))
-        (skip-chars-forward " \t")
-        (setq from (point))
-        (end-of-line 1)
-        (skip-chars-backward " \t")
-        (setq to (point))
-        (when (< from to)
-          (push (setq overlay (gnus-make-overlay from to))
-                gnus-cite-overlay-list)
-          (gnus-overlay-put (gnus-make-overlay from to) 'face face))))))
+         from to overlay)
+      (goto-char (point-min))
+      (when (zerop (forward-line (1- number)))
+       (move-to-column (string-width prefix))
+       (skip-chars-forward " \t")
+       (setq from (point))
+       (end-of-line 1)
+       (skip-chars-backward " \t")
+       (setq to (point))
+       (when (< from to)
+         (push (setq overlay (gnus-make-overlay from to))
+               gnus-cite-overlay-list)
+         (gnus-overlay-put overlay 'face face))))))
 
 (defvar gnus-mule-bitmap-image-file nil)
 (defun gnus-mule-group-startup-message (&optional x y)