From: Erik Naggum <erik@naggum.no>
Date: Sat, 4 Nov 1995 02:26:16 +0000 (+0000)
Subject: Removed old gnus hooks.
X-Git-Tag: emacs-19.34~2460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aace9f6b13aa500d50358bf0a81a6cc81ab42cc7;p=emacs.git

Removed old gnus hooks.
(gnus-group-mode): Adapt to new Gnus.
(gnus-summary-mode): Removed.
---

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index 147214a3cf5..baad3d0698f 100644
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -974,35 +974,12 @@ the entire buffer is forced."
 		     vm-preview-message-hook
 		     vm-show-message-hook
 
-		     gnus-article-prepare-hook
-		     gnus-summary-prepare-hook
-		     gnus-group-prepare-hook
-
 		     rmail-show-message-hook
 		     mail-setup-hook 
 		     mh-show-mode-hook
 
 		     dired-after-readin-hook
 		     ))
-
-	   ;; rehighlight only visible part of summary buffer for speed.
-	   (add-hook 'gnus-mark-article-hook
-		     (function
-		      (lambda ()
-			(or (memq gnus-current-article gnus-newsgroup-marked)
-			    (gnus-summary-mark-as-read gnus-current-article))
-			(gnus-summary-set-current-mark)
-			(save-excursion
-			  (set-buffer gnus-summary-buffer)
-			  (hilit-rehighlight-region (window-start)
-						    (window-end) t)
-			  ))))
-	   ;; only need prepare article hook
-	   ;;
-	   ;;	(add-hook 'gnus-select-article-hook
-	   ;;		  '(lambda () (save-excursion
-	   ;;				(set-buffer gnus-article-buffer)
-	   ;;				(hilit-rehighlight-buffer))))
 	   )
        (error (message "Error loading highlight hooks: %s" c)
 	      (ding) (sit-for 1))))
@@ -1330,21 +1307,11 @@ number of backslashes."
 
 (hilit-set-mode-patterns
  'gnus-group-mode
- '(("^U.*$" nil gnus-group-unsubscribed)
-   ("^ +[01]?[0-9]:.*$" nil gnus-group-empty)
+ '(("^ U.*$" nil gnus-group-unsubscribed)
+   ("^\\*? +[01]?[0-9]:.*$" nil gnus-group-empty)
    ("^ +[2-9][0-9]:.*$" nil gnus-group-full)
    ("^ +[0-9][0-9][0-9]+:.*$" nil gnus-group-overflowing)))
 
-(hilit-set-mode-patterns
- 'gnus-summary-mode
- '(("^D +[0-9]+: \\[.*$" nil summary-seen)
-   ("^K +[0-9]+: \\[.*$" nil summary-killed)
-   ("^X +[0-9]+: \\[.*$" nil summary-Xed)
-   ("^- +[0-9]+: \\[.*$" nil summary-unread)
-   ("^. +[0-9]+:\\+\\[.*$" nil summary-current)
-   ("^  +[0-9]+: \\[.*$" nil summary-new)
-   ))
-
 (hilit-set-mode-patterns
  'vm-summary-mode
  '(("^   .*$" nil summary-seen)