From aace9f6b13aa500d50358bf0a81a6cc81ab42cc7 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Sat, 4 Nov 1995 02:26:16 +0000 Subject: [PATCH] Removed old gnus hooks. (gnus-group-mode): Adapt to new Gnus. (gnus-summary-mode): Removed. --- lisp/hilit19.el | 37 ++----------------------------------- 1 file changed, 2 insertions(+), 35 deletions(-) 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) -- 2.39.2