diff options
| author | Erik Naggum <erik@naggum.no> | 1995-11-04 02:26:16 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1995-11-04 02:26:16 +0000 |
| commit | aace9f6b13aa500d50358bf0a81a6cc81ab42cc7 (patch) | |
| tree | 576e9647e5774985473c30166e599c72bbff1448 | |
| parent | c93931c390d8cf5fb0455f4afb03e2503a64755b (diff) | |
| download | emacs-aace9f6b13aa500d50358bf0a81a6cc81ab42cc7.tar.gz | |
Removed old gnus hooks.
(gnus-group-mode): Adapt to new Gnus.
(gnus-summary-mode): Removed.
| -rw-r--r-- | lisp/hilit19.el | 37 |
1 files 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,22 +1307,12 @@ 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) ("^->.*$" nil summary-current) |