From: yamaoka <yamaoka>
Date: Wed, 28 Jul 1999 07:33:20 +0000 (+0000)
Subject: (gnus-ems-redefine): Don't replace the function `gnus-cite-add-face' with
X-Git-Tag: et-gnus-6_11_08-04~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=44bb42ed1bbbc13e54a263d4b6bb9321396dc874;p=elisp%2Fgnus.git-

(gnus-ems-redefine): Don't replace the function `gnus-cite-add-face' with
`gnus-mule-cite-add-face' because the former will work well under old Emacsen
by now.
(gnus-mule-cite-add-face): Abolish function.
---

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 48afbf7..8a8c1b1 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -53,24 +53,6 @@
 
 ;;; Mule functions.
 
-(defun gnus-mule-cite-add-face (number prefix face)
-  ;; 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))))))
-
 (defvar gnus-mule-bitmap-image-file nil)
 (defun gnus-mule-group-startup-message (&optional x y)
   "Insert startup message in current buffer."
@@ -262,9 +244,6 @@
 	    (delq 'long-lines
 		  (delq 'control-chars gnus-check-before-posting))))
 
-    (when (fboundp 'chars-in-string)
-      (fset 'gnus-cite-add-face 'gnus-mule-cite-add-face))
-
     )))
 
 (defun gnus-region-active-p ()