X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-xmas.el;h=7ab6ea7c697138a948ef113088ef1dd6849c661e;hb=851278bf56a0156a4dd5896e9959f63e33d07ee2;hp=704bac451367d0c3c08b7e7583e03140aecb0797;hpb=449231ab8c3cbbd4d086c78b0f9fdfcb8d206b8e;p=gnus

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 704bac451..7ab6ea7c6 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -1,6 +1,6 @@
 ;;; gnus-xmas.el --- Gnus functions for XEmacs
 
-;; Copyright (C) 1995-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1995-2015 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -104,16 +104,6 @@ Possibly the `etc' directory has not been installed.")))
 (defvar gnus-agent-summary-mode)
 (defvar gnus-draft-mode)
 
-(defun gnus-xmas-highlight-selected-summary ()
-  ;; Highlight selected article in summary buffer
-  (when gnus-summary-selected-face
-    (when gnus-newsgroup-selected-overlay
-      (delete-extent gnus-newsgroup-selected-overlay))
-    (setq gnus-newsgroup-selected-overlay
-	  (make-extent (point-at-bol) (point-at-eol)))
-    (set-extent-face gnus-newsgroup-selected-overlay
-		     gnus-summary-selected-face)))
-
 (defcustom gnus-xmas-force-redisplay nil
   "*If non-nil, force a redisplay before recentering the summary buffer.
 This is ugly, but it works around a bug in `window-displayed-height'."
@@ -212,19 +202,12 @@ call it with the value of the `gnus-data' text property."
     (when fun
       (funcall fun data))))
 
-(defun gnus-xmas-move-overlay (extent start end &optional buffer)
-  (set-extent-endpoints extent start end buffer))
-
 (defun gnus-xmas-kill-all-overlays ()
   "Delete all extents in the current buffer."
   (map-extents (lambda (extent ignore)
 		 (delete-extent extent)
 		 nil)))
 
-(defun gnus-xmas-overlays-in (beg end)
-  "Return a list of the extents that overlap the region BEG ... END."
-  (mapcar-extents #'identity nil nil beg end))
-
 (defun gnus-xmas-window-top-edge (&optional window)
   (nth 1 (window-pixel-edges window)))
 
@@ -403,20 +386,6 @@ then we display only bindings that start with that prefix."
   (unless (face-differs-from-default-p 'underline)
     (funcall (intern "set-face-underline-p") 'underline t))
 
-  (defalias 'gnus-make-overlay
-    (lambda (beg end &optional buffer front-advance rear-advance)
-      "Create a new overlay with range BEG to END in BUFFER.
-FRONT-ADVANCE and REAR-ADVANCE are ignored."
-      (make-extent beg end buffer)))
-
-  (defalias 'gnus-delete-overlay 'delete-extent)
-  (defalias 'gnus-overlay-get 'extent-property)
-  (defalias 'gnus-overlay-put 'set-extent-property)
-  (defalias 'gnus-move-overlay 'gnus-xmas-move-overlay)
-  (defalias 'gnus-overlay-buffer 'extent-object)
-  (defalias 'gnus-overlay-start 'extent-start-position)
-  (defalias 'gnus-overlay-end 'extent-end-position)
-  (defalias 'gnus-overlays-in 'gnus-xmas-overlays-in)
   (defalias 'gnus-kill-all-overlays 'gnus-xmas-kill-all-overlays)
   (defalias 'gnus-extent-detached-p 'extent-detached-p)
   (defalias 'gnus-add-text-properties 'gnus-xmas-add-text-properties)
@@ -751,11 +720,6 @@ XEmacs compatibility workaround."
       nil
     (mail-strip-quoted-names address)))
 
-(defun gnus-xmas-call-region (command &rest args)
-  (apply
-   'call-process-region (point-min) (point-max) command t '(t nil) nil
-   args))
-
 (defvar gnus-xmas-modeline-left-extent
   (let ((ext (copy-extent modeline-buffer-id-left-extent)))
     ext))