2001-07-13 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-setup.el (gnus-use-installed-gnus): Typo.
	* Cleanup files.
	From Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30dfefd..608bf16 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-13 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       
+       * gnus-setup.el (gnus-use-installed-gnus): Typo.
+       * Cleanup files.
+       From Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk).
+
 2001-07-13 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus.el (gnus-summary-line-format): Add %o.

diff --git a/lisp/binhex.el b/lisp/binhex.el
index 0147921..6d8d434 100644 (file)
--- a/lisp/binhex.el
+++ b/lisp/binhex.el
@@ -1,4 +1,4 @@
-;;; binhex.el -- elisp native binhex decode
+;;; binhex.el --- elisp native binhex decode
 ;; Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index 6150d51..49105b5 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -38,7 +38,7 @@
 ;; Todo: encoding, implement basic `fill-region' (Emacs and XEmacs
 ;;       implementations differ..)
 
-;; History:
+;;; History:
 
 ;; 2000-02-17  posted on ding mailing list
 ;; 2000-02-19  use `point-at-{b,e}ol' in XEmacs

diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el
index 126c7d2..3dbc82d 100644 (file)
--- a/lisp/gnus-mlspl.el
+++ b/lisp/gnus-mlspl.el
@@ -20,6 +20,10 @@
 ;; the 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)
@@ -220,3 +224,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-setup.el b/lisp/gnus-setup.el
index 307aaaf..4f7634d 100644 (file)
--- a/lisp/gnus-setup.el
+++ b/lisp/gnus-setup.el
@@ -35,7 +35,7 @@
 (eval-when-compile (require 'cl))
 
 (defvar gnus-use-installed-gnus t
-  "*If non-nil Use installed version of Gnus.")
+  "*If non-nil use installed version of Gnus.")
 
 (defvar gnus-use-installed-mailcrypt (featurep 'xemacs)
   "*If non-nil use installed version of mailcrypt.")

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 0e091cf..b59c09e 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -2156,4 +2156,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/mm-bodies.el b/lisp/mm-bodies.el
index 28d202e..6ea90c3 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -283,4 +283,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/mm-extern.el b/lisp/mm-extern.el
index ec5c9b1..26c5773 100644 (file)
--- a/lisp/mm-extern.el
+++ b/lisp/mm-extern.el
@@ -25,8 +25,7 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'cl))
+(eval-when-compile (require 'cl))
 
 (require 'mm-util)
 (require 'mm-decode)
@@ -164,4 +163,4 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
                  (error nil))
                (delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
-;; mm-extern.el ends here
+;;; mm-extern.el ends here

diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index d05283c..d4cca04 100644 (file)
--- a/lisp/mm-partial.el
+++ b/lisp/mm-partial.el
@@ -25,8 +25,7 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'cl))
+(eval-when-compile (require 'cl))
 
 (require 'gnus-sum)
 (require 'mm-util)
@@ -149,4 +148,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/mm-uu.el b/lisp/mm-uu.el
index 5f93e7b..c14aa9e 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/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, 2001 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/mm-view.el b/lisp/mm-view.el
index 7d46ca9..c5516c1 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -321,4 +321,4 @@
 
 (provide 'mm-view)
 
-;; mm-view.el ends here
+;;; mm-view.el ends here

diff --git a/lisp/nndb.el b/lisp/nndb.el
index 23cc556..5c2645c 100644 (file)
--- a/lisp/nndb.el
+++ b/lisp/nndb.el
@@ -326,3 +326,5 @@ Optional LAST is ignored."
   (nntp))
 
 (provide 'nndb)
+
+;;; nndb.el ends here

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index e3b99ef..789d8e7 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -32,8 +32,7 @@
 (require 'nnmh)
 (require 'nnoo)
 (require 'mm-util)
-(eval-when-compile
-  (require 'cl))
+(eval-when-compile (require 'cl))
 
 (nnoo-declare nndraft
   nnmh)

diff --git a/lisp/rfc2104.el b/lisp/rfc2104.el
index 3d45982..64dbe53 100644 (file)
--- a/lisp/rfc2104.el
+++ b/lisp/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/smiley.el b/lisp/smiley.el
index c74d3ee..c0105cd 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -36,6 +36,8 @@
 
 ;; The smilies were drawn by Joe Reiss <jreiss@vt.edu>.
 
+;;; Code:
+
 (require 'cl)
 (require 'custom)