2000-12-21 09:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus.el (gnus-group-remove-excess-properties): Not defined
	in gnus-xmas.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fde776..74b6731 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-21 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.el (gnus-group-remove-excess-properties): Not defined
+       in gnus-xmas.
+
 2000-12-20 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-mail-user-agent): Add :version.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 9659966..2e58897 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -274,6 +274,9 @@ be set in `.emacs' instead."
   :group 'gnus-start
   :type 'boolean)
 
+(unless (fboundp 'gnus-group-remove-excess-properties)
+  (defalias 'gnus-group-remove-excess-properties 'ignore))
+
 (unless (featurep 'gnus-xmas)
   (defalias 'gnus-make-overlay 'make-overlay)
   (defalias 'gnus-delete-overlay 'delete-overlay)
@@ -285,7 +288,6 @@ be set in `.emacs' instead."
   (defalias 'gnus-extent-detached-p 'ignore)
   (defalias 'gnus-extent-start-open 'ignore)
   (defalias 'gnus-set-text-properties 'set-text-properties)
-  (defalias 'gnus-group-remove-excess-properties 'ignore)
   (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window)
   (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
   (defalias 'gnus-character-to-event 'identity)