From b6a924e1bca1c72280789424921bc07d894acd01 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Jul 1999 07:45:25 +0000 Subject: [PATCH] (gnus-mule-cite-add-face): New implementation. --- lisp/gnus-ems.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) 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) -- 1.7.10.4