gnus-group: remove old code

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cca2a4b..79bab66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-group.el (gnus-group-make-tool-bar): Check for display graphic
        capability before doing anything.
+       (gnus-group-insert-group-line): Remove useless
+       gnus-group-remove-excess-properties.
 
 2010-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 4011115..a777beb 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1606,9 +1606,7 @@ if it is a string, only list groups matching REGEXP."
     (when (inline (gnus-visual-p 'group-highlight 'highlight))
       (gnus-group-highlight-line gnus-tmp-group beg end))
     (gnus-run-hooks 'gnus-group-update-hook)
-    (forward-line)
-    ;; Allow XEmacs to remove front-sticky text properties.
-    (gnus-group-remove-excess-properties)))
+    (forward-line)))
 
 (defun gnus-group-update-eval-form (group list)
   "Eval `car' of each element of LIST, and return the first that return t.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 5e30976..98df778 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -307,9 +307,6 @@ 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)