From: 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 ()