(rmail-forward): Delete trailing blank lines.

[gnu-emacs] / lisp / hilit19.el

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index eddab6c4ac4743a228fe1ba68b9eb2d05b71aac4..baad3d0698f650365ec6d9f2f295f20f854cf130 100644 (file)
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -1,23 +1,25 @@
-;; hilit19.el (Release 2.19) -- customizable highlighting for Emacs19.
+;;; hilit19.el --- customizable highlighting for Emacs19
+
 ;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
-;;
+
 ;; Author:   Jonathan Stigelman <stig@hackvan.com>
 ;; Keywords: faces
-;; 
-;; This program is free software; you can redistribute it and/or modify
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2 of the License, or
-;; (at your option) any later version.
-;; 
-;; This program is distributed in the hope that it will be useful,
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
-;; 
+
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-;;
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;; Commentary:
 
@@ -972,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))))
@@ -1328,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)