From: yamaoka <yamaoka>
Date: Wed, 28 Jul 1999 07:45:25 +0000 (+0000)
Subject: (gnus-mule-cite-add-face): New implementation.
X-Git-Tag: t-gnus-6_10_072-02~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6a924e1bca1c72280789424921bc07d894acd01;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 0e514bf..65eca97 100644
--- 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)