(syms_of_xselect): Doc syntax fixes.

[gnu-emacs] / lisp / hilit19.el

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index 9694d7dd0c33c3008cb4a295e8cd14d8e4d282db..cd19214380915b3c4cffb298c95d4f4800dd7ac1 100644 (file)
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -3,6 +3,8 @@
 ;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author:   Jonathan Stigelman <stig@hackvan.com>
+;; Maintainer: FSF
+;;     (actually no longer maintained)
 ;; Keywords: faces
 
 ;; This file is part of GNU Emacs.
@@ -29,10 +31,9 @@
 ;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in
 ;; about 25 different modes.
 ;; 
-;; WHERE TO GET THE LATEST VERSIONS OF HILIT19.EL (beta and release), 
-;; PLUS LOTS OF OTHER *WAY COOL* STUFF VIA ANONYMOUS FTP:
+;; WHERE TO GET THE LATEST VERSIONS OF HILIT19.EL (beta and release):
 ;;
-;;      ftp.hackvan.com:/pub/stig/src/elisp/hilit19.el.gz
+;;      http://hackvan.com/pub/stig/src/elisp/
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -404,12 +405,12 @@ your init file.")
 (eval-when-compile (require 'reporter))        ; no compilation gripes
 
 (defun hilit-submit-feedback ()
-  "Submit feedback on hilit19 to the author: stig@hackvan.com"
+  "Submit feedback on hilit19 to hilit@hackvan.com"
   (interactive)
   (require 'reporter)
   (and (y-or-n-p "Do you really want to submit a report on hilit19? ")
        (reporter-submit-bug-report
-       "Jonathan Stigelman <stig@hackvan.com>"
+       "Jonathan Stigelman <hilit@hackvan.com>"
        "hilit19.el (Release 2.19)"
        (and (y-or-n-p "Do you need to include a dump hilit variables? ")
             (append
@@ -786,7 +787,9 @@ non-nil."
   "Highlight a buffer containing a news article or mail message."
   (save-excursion
     (goto-char (point-min))
-    (re-search-forward "^$" nil 'noerr)
+    ;; find separation between headers and body (either a blank line or
+    ;; the message separator line in mail-mode)
+    (re-search-forward "^\\(\\|--text follows this line--\\)$" nil 'noerr)
     (hilit-unhighlight-region (point-min) (point-max) quietly)
     (hilit-highlight-region (point-min) (point) 'msg-header quietly)
     (hilit-highlight-region (point) (point-max) 'msg-body quietly)))