Some fixes to follow coding conventions in files from Gnus.

36 files changed, 61 insertions, 40 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fd4930f2ce..918ea7e2c45 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,19 @@
 2001-07-15  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* gnus/binhex.el, gnus/binhex.el, gnus/earcon.el,
+	gnus/gnus-agent.el, gnus/gnus-art.el, gnus/gnus-audio.el,
+	gnus/gnus-logic.el, gnus/gnus-ml.el, gnus/gnus-mlspl.el,
+	gnus/gnus-setup.el, gnus/gnus-srvr.el, gnus/gnus-sum.el,
+	gnus/gnus-uu.el, gnus/gnus-vm.el, gnus/ietf-drums.el,
+	gnus/mail-parse.el, gnus/mail-prsvr.el, gnus/mail-source.el,
+	gnus/mm-bodies.el, gnus/mm-decode.el, gnus/mm-encode.el,
+	gnus/mm-partial.el, gnus/mm-util.el, gnus/mm-uu.el,
+	gnus/mm-view.el, gnus/mml.el, gnus/nnimap.el, gnus/nnoo.el,
+	gnus/parse-time.el, gnus/rfc1843.el, gnus/rfc2045.el,
+	gnus/rfc2047.el, gnus/rfc2104.el, gnus/rfc2231.el,
+	gnus/time-date.el, gnus/uudecode.el: Some fixes to follow coding
+	conventions in files from Gnus.
+
 	* abbrevlist.el, array.el, buff-menu.el, calendar/appt.el,
 	case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el,
 	custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el,
diff --git a/lisp/gnus/binhex.el b/lisp/gnus/binhex.el
index 1b096287240..8eea11ce670 100644
--- a/lisp/gnus/binhex.el
+++ b/lisp/gnus/binhex.el
@@ -1,4 +1,4 @@
-;;; binhex.el -- elisp native binhex decode
+;;; binhex.el --- elisp native binhex decode
 ;; Copyright (c) 1998 Free Software Foundation, Inc.
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
diff --git a/lisp/gnus/earcon.el b/lisp/gnus/earcon.el
index 0b53c34a12f..71ef72aaf1c 100644
--- a/lisp/gnus/earcon.el
+++ b/lisp/gnus/earcon.el
@@ -1,4 +1,4 @@
-;;; earcon.el --- Sound effects for messages
+;;; earcon.el --- sound effects for messages
 
 ;; Copyright (C) 1996, 2000 Free Software Foundation
 
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 3f3a3cbb32d..65f23c6a955 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1106,7 +1106,7 @@ the actual number of articles toggled is returned."
 	  (error 
 	   (unless (funcall gnus-agent-confirmation-function
 			    (format "Error (%s).  Continue? " err))
-	     (error "Cannot fetch articles into the Gnus agent.")))
+	     (error "Cannot fetch articles into the Gnus agent")))
 	  (quit 
 	   (unless (funcall gnus-agent-confirmation-function
 			    (format "Quit (%s).  Continue? " err))
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index d535cefbd80..d8125828d2f 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2508,7 +2508,7 @@ The directory to save in defaults to `gnus-article-save-directory'."
   (when (string-equal command "")
     (if gnus-last-shell-command
 	(setq command gnus-last-shell-command)
-      (error "A command is required.")))
+      (error "A command is required")))
   (gnus-eval-in-buffer-window gnus-article-buffer
     (save-restriction
       (widen)
diff --git a/lisp/gnus/gnus-audio.el b/lisp/gnus/gnus-audio.el
index 8906745cdfd..b94de4bbd16 100644
--- a/lisp/gnus/gnus-audio.el
+++ b/lisp/gnus/gnus-audio.el
@@ -1,4 +1,4 @@
-;;; gnus-audio.el --- Sound effects for Gnus
+;;; gnus-audio.el --- sound effects for Gnus
 ;; Copyright (C) 1996, 2000 Free Software Foundation
 
 ;; Author: Steven L. Baur <steve@miranova.com>
diff --git a/lisp/gnus/gnus-logic.el b/lisp/gnus/gnus-logic.el
index 03b1c1c1758..9d2c009219f 100644
--- a/lisp/gnus/gnus-logic.el
+++ b/lisp/gnus/gnus-logic.el
@@ -227,4 +227,4 @@
 
 (provide 'gnus-logic)
 
-;;; gnus-logic.el ends here.
+;;; gnus-logic.el ends here
diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index d7c8fb3b2bf..f95cde2283b 100644
--- a/lisp/gnus/gnus-ml.el
+++ b/lisp/gnus/gnus-ml.el
@@ -1,4 +1,4 @@
-;;; gnus-ml.el --- Mailing list minor mode for Gnus
+;;; gnus-ml.el --- mailing list minor mode for Gnus
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el
index 57b12a7b0b5..70619b5044e 100644
--- a/lisp/gnus/gnus-mlspl.el
+++ b/lisp/gnus/gnus-mlspl.el
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (require 'gnus)
 (require 'gnus-sum)
@@ -225,3 +229,5 @@ Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns:
     split))
 
 (provide 'gnus-mlspl)
+
+;;; gnus-mlspl.el ends here
diff --git a/lisp/gnus/gnus-setup.el b/lisp/gnus/gnus-setup.el
index 84fc218dbf6..54c5b1b38ce 100644
--- a/lisp/gnus/gnus-setup.el
+++ b/lisp/gnus/gnus-setup.el
@@ -1,4 +1,4 @@
-;;; gnus-setup.el --- Initialization & Setup for Gnus 5
+;;; gnus-setup.el --- initialization & setup for Gnus 5
 
 ;; Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 03c1a4670a3..2b7d82eb8d2 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -806,4 +806,4 @@ buffer.
 
 (provide 'gnus-srvr)
 
-;;; gnus-srvr.el ends here.
+;;; gnus-srvr.el ends here
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 5719417ca5e..fa933373f85 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7918,7 +7918,7 @@ groups."
 		       force t))
      (t (setq force t)))
     (if (and raw (not force) (equal gnus-newsgroup-name "nndraft:drafts"))
-	(error "Can't edit the raw article in group nndraft:drafts."))
+	(error "Can't edit the raw article in group nndraft:drafts"))
     (save-excursion
       (set-buffer gnus-summary-buffer)
       (let ((mail-parse-charset gnus-newsgroup-charset)
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index 50c74e92d32..4cbe01ab727 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -2134,4 +2134,4 @@ If no file has been included, the user will be asked for a file."
 
 (provide 'gnus-uu)
 
-;; gnus-uu.el ends here
+;;; gnus-uu.el ends here
diff --git a/lisp/gnus/gnus-vm.el b/lisp/gnus/gnus-vm.el
index 53b741f711c..9024926e441 100644
--- a/lisp/gnus/gnus-vm.el
+++ b/lisp/gnus/gnus-vm.el
@@ -105,4 +105,4 @@ save those articles instead."
 
 (provide 'gnus-vm)
 
-;;; gnus-vm.el ends here.
+;;; gnus-vm.el ends here
diff --git a/lisp/gnus/ietf-drums.el b/lisp/gnus/ietf-drums.el
index b39decb80fe..7e3db07cf28 100644
--- a/lisp/gnus/ietf-drums.el
+++ b/lisp/gnus/ietf-drums.el
@@ -1,4 +1,4 @@
-;;; ietf-drums.el --- Functions for parsing RFC822bis headers
+;;; ietf-drums.el --- functions for parsing RFC822bis headers
 ;; Copyright (C) 1998, 1999, 2000
 ;;        Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/mail-parse.el b/lisp/gnus/mail-parse.el
index d0ce7da9ed7..13ecd48fac6 100644
--- a/lisp/gnus/mail-parse.el
+++ b/lisp/gnus/mail-parse.el
@@ -1,4 +1,4 @@
-;;; mail-parse.el --- Interface functions for parsing mail
+;;; mail-parse.el --- interface functions for parsing mail
 ;; Copyright (C) 1998, 1999, 2000
 ;;        Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/mail-prsvr.el b/lisp/gnus/mail-prsvr.el
index 2566abc2446..a22accf11b0 100644
--- a/lisp/gnus/mail-prsvr.el
+++ b/lisp/gnus/mail-prsvr.el
@@ -1,4 +1,4 @@
-;;; mail-prsvr.el --- Interface variables for parsing mail
+;;; mail-prsvr.el --- interface variables for parsing mail
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 8e7d6025695..a35e506ba54 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -444,7 +444,7 @@ Return the number of files that were found."
 		 (error
 		  (unless (yes-or-no-p
 			   (format "Mail source error (%s).  Continue? " err))
-		    (error "Cannot get new mail."))
+		    (error "Cannot get new mail"))
 		  0))))))))
 
 (defun mail-source-make-complex-temp-name (prefix)
@@ -756,7 +756,7 @@ If ARGS, PROMPT is used as an argument to `format'."
 This only works when `display-time' is enabled."
   (interactive "P")
   (if (not mail-source-primary-source)
-      (error "Need to set `mail-source-primary-source' to check for new mail."))
+      (error "Need to set `mail-source-primary-source' to check for new mail"))
   (let ((on (if (null arg)
 		(not mail-source-report-new-mail)
 	      (> (prefix-numeric-value arg) 0))))
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el
index eb0483ae35f..51a16a6a7f1 100644
--- a/lisp/gnus/mm-bodies.el
+++ b/lisp/gnus/mm-bodies.el
@@ -1,4 +1,4 @@
-;;; mm-bodies.el --- Functions for decoding MIME things
+;;; mm-bodies.el --- functions for decoding MIME things
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -264,4 +264,4 @@ The characters in CHARSET should then be decoded."
 
 (provide 'mm-bodies)
 
-;; mm-bodies.el ends here
+;;; mm-bodies.el ends here
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index e27200700c1..c603e7938d7 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1,4 +1,4 @@
-;;; mm-decode.el --- Functions for decoding MIME things
+;;; mm-decode.el --- functions for decoding MIME things
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/mm-encode.el b/lisp/gnus/mm-encode.el
index 65fc34acfd7..40a256ddf0e 100644
--- a/lisp/gnus/mm-encode.el
+++ b/lisp/gnus/mm-encode.el
@@ -1,4 +1,4 @@
-;;; mm-encode.el --- Functions for encoding MIME things 
+;;; mm-encode.el --- functions for encoding MIME things 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el
index 734b2a0b98d..c65ddfad56f 100644
--- a/lisp/gnus/mm-partial.el
+++ b/lisp/gnus/mm-partial.el
@@ -66,7 +66,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 	gnus-displaying-mime handles buffer)
     (unless (mm-handle-cache handle)
       (unless id
-	(error "Can not find message/partial id."))
+	(error "Can not find message/partial id"))
       (setq phandles
 	    (sort (cons handle 
 			(mm-partial-find-parts
@@ -99,7 +99,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 	  (if ntotal
 	      (if total
 		  (unless (eq total ntotal) 
-		  (error "The numbers of total are different."))
+		  (error "The numbers of total are different"))
 		(setq total ntotal)))
 	  (unless (< nn n)
 	    (unless (eq nn n)
@@ -149,4 +149,4 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 		  (error nil))
 		(delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
-;; mm-partial.el ends here
+;;; mm-partial.el ends here
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 529f568fcda..aaff8e3b4c3 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -1,4 +1,4 @@
-;;; mm-util.el --- Utility functions for MIME things
+;;; mm-util.el --- utility functions for MIME things
 ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index c50c04b2291..45263307dcc 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -1,4 +1,4 @@
-;;; mm-uu.el -- Return uu stuff as mm handles
+;;; mm-uu.el --- return uu stuff as mm handles
 ;; Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
@@ -23,7 +23,6 @@
 
 ;;; Commentary:
 
-
 ;;; Code:
 
 (eval-when-compile (require 'cl))
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 9f389ba7e3a..a54fe0317b8 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -1,4 +1,4 @@
-;;; mm-view.el --- Functions for viewing MIME objects
+;;; mm-view.el --- functions for viewing MIME objects
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -281,4 +281,4 @@
 
 (provide 'mm-view)
 
-;; mm-view.el ends here
+;;; mm-view.el ends here
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 83b16f135f9..87aff3e125c 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1,4 +1,4 @@
-;;; mml.el --- A package for parsing and validating MML documents
+;;; mml.el --- package for parsing and validating MML documents
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index b1c5cacb97f..a117ea07780 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -385,7 +385,7 @@ If EXAMINE is non-nil the group is selected read-only."
 		      "nnimap: Group %s is not uidvalid.  Continue? " group)))
 		imap-current-mailbox
 	      (imap-mailbox-unselect)
-	      (error "nnimap: Group %s is not uid-valid." group))
+	      (error "nnimap: Group %s is not uid-valid" group))
 	  (nnheader-report 'nnimap (imap-error-text)))))))
 
 (defun nnimap-replace-whitespace (string)
diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el
index 45bc275ac47..272a247e221 100644
--- a/lisp/gnus/nnoo.el
+++ b/lisp/gnus/nnoo.el
@@ -306,4 +306,4 @@ All functions will return nil and report an error."
 						     backend function))))))))
 (provide 'nnoo)
 
-;;; nnoo.el ends here.
+;;; nnoo.el ends here
diff --git a/lisp/gnus/parse-time.el b/lisp/gnus/parse-time.el
index d00325131a9..bf593eb9d2b 100644
--- a/lisp/gnus/parse-time.el
+++ b/lisp/gnus/parse-time.el
@@ -1,4 +1,4 @@
-;;; parse-time.el --- Parsing time strings
+;;; parse-time.el --- parsing time strings
 
 ;; Copyright (C) 1996, 2000 by Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el
index c3bb7907a2b..484f0f29cf4 100644
--- a/lisp/gnus/rfc1843.el
+++ b/lisp/gnus/rfc1843.el
@@ -4,7 +4,7 @@
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
 ;; Keywords: news HZ HZ+ mail i18n
 
-;; This file is a part of GNU Emacs.
+;; 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
diff --git a/lisp/gnus/rfc2045.el b/lisp/gnus/rfc2045.el
index 70c8c391e3a..ff7716aa074 100644
--- a/lisp/gnus/rfc2045.el
+++ b/lisp/gnus/rfc2045.el
@@ -1,4 +1,4 @@
-;;; rfc2045.el --- Functions for decoding rfc2045 headers
+;;; rfc2045.el --- functions for decoding rfc2045 headers
 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index e5d5abc3f35..a5f3151d436 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -1,4 +1,4 @@
-;;; rfc2047.el --- Functions for encoding and decoding rfc2047 messages
+;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/rfc2104.el b/lisp/gnus/rfc2104.el
index 3d459825bf2..64dbe53ea3e 100644
--- a/lisp/gnus/rfc2104.el
+++ b/lisp/gnus/rfc2104.el
@@ -51,6 +51,8 @@
 ;;; 1999-10-23  included in pgnus
 ;;; 2000-08-15  `rfc2104-hexstring-to-bitstring'
 ;;; 2000-05-12  added sha-1 example, added test case reference
+
+;;; Code:
  
 (eval-when-compile (require 'cl))
 
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el
index a08616260b5..3b3345f40b2 100644
--- a/lisp/gnus/rfc2231.el
+++ b/lisp/gnus/rfc2231.el
@@ -1,4 +1,4 @@
-;;; rfc2231.el --- Functions for decoding rfc2231 headers
+;;; rfc2231.el --- functions for decoding rfc2231 headers
 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/gnus/time-date.el b/lisp/gnus/time-date.el
index 3bfb9a454d0..823954b54aa 100644
--- a/lisp/gnus/time-date.el
+++ b/lisp/gnus/time-date.el
@@ -1,4 +1,4 @@
-;;; time-date.el --- Date and time handling functions
+;;; time-date.el --- date and time handling functions
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el
index 9f423ebd92d..18f04c2053e 100644
--- a/lisp/gnus/uudecode.el
+++ b/lisp/gnus/uudecode.el
@@ -1,11 +1,11 @@
-;;; uudecode.el -- elisp native uudecode
+;;; uudecode.el --- elisp native uudecode
 
 ;; Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
 ;; Keywords: uudecode news
 
-;; This file is a part of GNU Emacs.
+;; 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