Mercurial > emacs
comparison lisp/hilit19.el @ 13400:4a57cda2a39a
Removed old gnus hooks.
(gnus-group-mode): Adapt to new Gnus.
(gnus-summary-mode): Removed.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Sat, 04 Nov 1995 02:26:16 +0000 |
| parents | 84acc3adcd63 |
| children | a6908f13121e |
comparison
equal
deleted
inserted
replaced
| 13399:ac7b3d7dafe8 | 13400:4a57cda2a39a |
|---|---|
| 972 ;; runs too early vm-summary-mode-hooks | 972 ;; runs too early vm-summary-mode-hooks |
| 973 vm-summary-pointer-hook | 973 vm-summary-pointer-hook |
| 974 vm-preview-message-hook | 974 vm-preview-message-hook |
| 975 vm-show-message-hook | 975 vm-show-message-hook |
| 976 | 976 |
| 977 gnus-article-prepare-hook | |
| 978 gnus-summary-prepare-hook | |
| 979 gnus-group-prepare-hook | |
| 980 | |
| 981 rmail-show-message-hook | 977 rmail-show-message-hook |
| 982 mail-setup-hook | 978 mail-setup-hook |
| 983 mh-show-mode-hook | 979 mh-show-mode-hook |
| 984 | 980 |
| 985 dired-after-readin-hook | 981 dired-after-readin-hook |
| 986 )) | 982 )) |
| 987 | |
| 988 ;; rehighlight only visible part of summary buffer for speed. | |
| 989 (add-hook 'gnus-mark-article-hook | |
| 990 (function | |
| 991 (lambda () | |
| 992 (or (memq gnus-current-article gnus-newsgroup-marked) | |
| 993 (gnus-summary-mark-as-read gnus-current-article)) | |
| 994 (gnus-summary-set-current-mark) | |
| 995 (save-excursion | |
| 996 (set-buffer gnus-summary-buffer) | |
| 997 (hilit-rehighlight-region (window-start) | |
| 998 (window-end) t) | |
| 999 )))) | |
| 1000 ;; only need prepare article hook | |
| 1001 ;; | |
| 1002 ;; (add-hook 'gnus-select-article-hook | |
| 1003 ;; '(lambda () (save-excursion | |
| 1004 ;; (set-buffer gnus-article-buffer) | |
| 1005 ;; (hilit-rehighlight-buffer)))) | |
| 1006 ) | 983 ) |
| 1007 (error (message "Error loading highlight hooks: %s" c) | 984 (error (message "Error loading highlight hooks: %s" c) |
| 1008 (ding) (sit-for 1)))) | 985 (ding) (sit-for 1)))) |
| 1009 | 986 |
| 1010 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 987 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1328 message-patterns | 1305 message-patterns |
| 1329 'hilit-rehighlight-message)) | 1306 'hilit-rehighlight-message)) |
| 1330 | 1307 |
| 1331 (hilit-set-mode-patterns | 1308 (hilit-set-mode-patterns |
| 1332 'gnus-group-mode | 1309 'gnus-group-mode |
| 1333 '(("^U.*$" nil gnus-group-unsubscribed) | 1310 '(("^ U.*$" nil gnus-group-unsubscribed) |
| 1334 ("^ +[01]?[0-9]:.*$" nil gnus-group-empty) | 1311 ("^\\*? +[01]?[0-9]:.*$" nil gnus-group-empty) |
| 1335 ("^ +[2-9][0-9]:.*$" nil gnus-group-full) | 1312 ("^ +[2-9][0-9]:.*$" nil gnus-group-full) |
| 1336 ("^ +[0-9][0-9][0-9]+:.*$" nil gnus-group-overflowing))) | 1313 ("^ +[0-9][0-9][0-9]+:.*$" nil gnus-group-overflowing))) |
| 1337 | |
| 1338 (hilit-set-mode-patterns | |
| 1339 'gnus-summary-mode | |
| 1340 '(("^D +[0-9]+: \\[.*$" nil summary-seen) | |
| 1341 ("^K +[0-9]+: \\[.*$" nil summary-killed) | |
| 1342 ("^X +[0-9]+: \\[.*$" nil summary-Xed) | |
| 1343 ("^- +[0-9]+: \\[.*$" nil summary-unread) | |
| 1344 ("^. +[0-9]+:\\+\\[.*$" nil summary-current) | |
| 1345 ("^ +[0-9]+: \\[.*$" nil summary-new) | |
| 1346 )) | |
| 1347 | 1314 |
| 1348 (hilit-set-mode-patterns | 1315 (hilit-set-mode-patterns |
| 1349 'vm-summary-mode | 1316 'vm-summary-mode |
| 1350 '(("^ .*$" nil summary-seen) | 1317 '(("^ .*$" nil summary-seen) |
| 1351 ("^->.*$" nil summary-current) | 1318 ("^->.*$" nil summary-current) |