From: Jesper Harder <harder@ifa.au.dk>
Date: Wed, 15 Jan 2003 22:10:11 +0000 (+0000)
Subject: * gnus-xmas.el (gnus-xmas-redefine): Use region-exists-p in
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=b2021fe1c1b0066471a10a82531536c906092fc5

* gnus-xmas.el (gnus-xmas-redefine): Use region-exists-p in
XEmacs.

* gnus-ems.el (gnus-mark-active-p): do.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b85ae8c0..5ecde6d25 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-15  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-xmas.el (gnus-xmas-redefine): Use region-exists-p in
+	XEmacs.
+
+	* gnus-ems.el (gnus-mark-active-p): do.
+
 2003-01-15  Kevin Ryde  <user42@zip.com.au>
 
 	* gnus.texi (Using MIME): Mention auto-compression-mode with
diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index ef829f76d..58e5cbbff 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -149,10 +149,8 @@
        mark-active))
 
 (defun gnus-mark-active-p ()
-"Non-nil means the mark and region are currently active in this buffer."
-  (if (boundp 'mark-active)
-      mark-active   ; Emacs
-    (mark)))        ; XEmacs
+  "Non-nil means the mark and region are currently active in this buffer."
+  mark-active) ; aliased to region-exists-p in XEmacs.
 
 (if (fboundp 'add-minor-mode)
     (defalias 'gnus-add-minor-mode 'add-minor-mode)
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index cb7e0b0f0..65d003deb 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, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -436,6 +436,7 @@ call it with the value of the `gnus-data' text property."
     'gnus-xmas-mode-line-buffer-identification)
   (defalias 'gnus-key-press-event-p 'key-press-event-p)
   (defalias 'gnus-region-active-p 'region-active-p)
+  (defalias 'gnus-mark-active-p 'region-exists-p)
   (defalias 'gnus-annotation-in-region-p 'gnus-xmas-annotation-in-region-p)
   (defalias 'gnus-mime-button-menu 'gnus-xmas-mime-button-menu)
   (defalias 'gnus-image-type-available-p 'gnus-xmas-image-type-available-p)