Some fixes to follow coding conventions.

6 files changed, 15 insertions, 10 deletions

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 477a966a1e3..2d21c9c45c5 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1,6 +1,8 @@
 ;;; feedmail.el --- assist other email packages to massage outgoing messages
 ;;; This file is in the public domain.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Bill Carpenter <bill@bubblegum.net>, <bill@carpenter.ORG>
 ;; Version: 8
 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
@@ -2667,4 +2669,5 @@ been weeded out."
       (point-marker))))
 
 (provide 'feedmail)
+
 ;;; feedmail.el ends here
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 3a86a39b147..a10751b10cf 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,4 +1,4 @@
-;;; footnote.el --- Footnote support for message mode  -*- coding: iso-latin-1;-*-
+;;; footnote.el --- footnote support for message mode  -*- coding: iso-latin-1;-*-
 
 ;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
 
@@ -670,7 +670,7 @@ specified, jump to the text of that footnote."
 	    (goto-char (point-max))
 	    (re-search-backward (concat "^" footnote-section-tag-regexp))
 	    (forward-line 1))
-	(error "I don't see a footnote here.")))))
+	(error "I don't see a footnote here")))))
 
 (defun Footnote-back-to-message (&optional arg)
   "Move cursor back to footnote referent.
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 3cecbba0a55..8d48eeda51a 100644
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -1,4 +1,4 @@
-;;; mail-hist.el --- Headers and message body history for outgoing mail.
+;;; mail-hist.el --- headers and message body history for outgoing mail
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
@@ -245,7 +245,7 @@ This function normally would be called when the message is sent."
           (ding)
           (message "No history for \"%s\"." header))
       (if (ring-empty-p ring)
-          (error "\"%s\" ring is empty." header)
+          (error "\"%s\" ring is empty" header)
         (and repeat
              (delete-region (car mail-hist-last-bounds)
                             (cdr mail-hist-last-bounds)))
@@ -293,4 +293,4 @@ received mail."
 
 (provide 'mail-hist)
 
-;; mail-hist.el ends here
+;;; mail-hist.el ends here
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index f378411ce4d..163b2ecd5ec 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -1,4 +1,4 @@
-;;; mailheader.el --- Mail header parsing, merging, formatting
+;;; mailheader.el --- mail header parsing, merging, formatting
 
 ;; Copyright (C) 1996 by Free Software Foundation, Inc.
 
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 5ddd4e3f9ad..2075ca8b7a1 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -1,4 +1,4 @@
-;;; mspools.el --- show mail spools waiting to be read.
+;;; mspools.el --- show mail spools waiting to be read
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -403,5 +403,5 @@ nil."
       nil)))
 
 (provide 'mspools)
-;;; mspools.el ends here
 
+;;; mspools.el ends here
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 6b66f2843bc..dd5ce02946f 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -32,7 +32,9 @@
 ;; |Mail and news reply citation package
 ;; |1993/09/22 18:58:46|3.1|
 
-;; Code:
+;;; Commentary:
+
+;;; Code:
 
 
 (require 'regi)
@@ -2096,7 +2098,7 @@ cited."
 	    (looking-at "^[ \t]*$")
 	    (consp arg))
 	(insert (sc-mail-field "sc-citation"))
-      (error "Line is already cited."))))
+      (error "Line is already cited"))))
 
 (defun sc-version (arg)
   "Echo the current version of Supercite in the minibuffer.