Mercurial > emacs

changeset 38413:a26d9b55abb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some fixes to follow coding conventions in files from Gnus.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 15 Jul 2001 17:42:53 +0000
parents 253f761ad37b
children 67b464da13ec
files lisp/ChangeLog lisp/gnus/binhex.el lisp/gnus/earcon.el lisp/gnus/gnus-agent.el lisp/gnus/gnus-art.el lisp/gnus/gnus-audio.el lisp/gnus/gnus-logic.el lisp/gnus/gnus-ml.el lisp/gnus/gnus-mlspl.el lisp/gnus/gnus-setup.el lisp/gnus/gnus-srvr.el lisp/gnus/gnus-sum.el lisp/gnus/gnus-uu.el lisp/gnus/gnus-vm.el lisp/gnus/ietf-drums.el lisp/gnus/mail-parse.el lisp/gnus/mail-prsvr.el lisp/gnus/mail-source.el lisp/gnus/mm-bodies.el lisp/gnus/mm-decode.el lisp/gnus/mm-encode.el lisp/gnus/mm-partial.el lisp/gnus/mm-util.el lisp/gnus/mm-uu.el lisp/gnus/mm-view.el lisp/gnus/mml.el lisp/gnus/nnimap.el lisp/gnus/nnoo.el lisp/gnus/parse-time.el lisp/gnus/rfc1843.el lisp/gnus/rfc2045.el lisp/gnus/rfc2047.el lisp/gnus/rfc2104.el lisp/gnus/rfc2231.el lisp/gnus/time-date.el lisp/gnus/uudecode.el
diffstat 36 files changed, 61 insertions(+), 40 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/ChangeLog	Sun Jul 15 17:42:53 2001 +0000
@@ -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,
--- a/lisp/gnus/binhex.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/binhex.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/earcon.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/earcon.el	Sun Jul 15 17:42:53 2001 +0000
@@ -1,4 +1,4 @@
-;;; earcon.el --- Sound effects for messages
+;;; earcon.el --- sound effects for messages
 
 ;; Copyright (C) 1996, 2000 Free Software Foundation
 
--- a/lisp/gnus/gnus-agent.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-agent.el	Sun Jul 15 17:42:53 2001 +0000
@@ -1106,7 +1106,7 @@
 	  (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))
--- a/lisp/gnus/gnus-art.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-art.el	Sun Jul 15 17:42:53 2001 +0000
@@ -2508,7 +2508,7 @@
   (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)
--- a/lisp/gnus/gnus-audio.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-audio.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/gnus-logic.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-logic.el	Sun Jul 15 17:42:53 2001 +0000
@@ -227,4 +227,4 @@
 
 (provide 'gnus-logic)
 
-;;; gnus-logic.el ends here.
+;;; gnus-logic.el ends here
--- a/lisp/gnus/gnus-ml.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-ml.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/gnus-mlspl.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-mlspl.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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 @@
     split))
 
 (provide 'gnus-mlspl)
+
+;;; gnus-mlspl.el ends here
--- a/lisp/gnus/gnus-setup.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-setup.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/gnus-srvr.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-srvr.el	Sun Jul 15 17:42:53 2001 +0000
@@ -806,4 +806,4 @@
 
 (provide 'gnus-srvr)
 
-;;; gnus-srvr.el ends here.
+;;; gnus-srvr.el ends here
--- a/lisp/gnus/gnus-sum.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-sum.el	Sun Jul 15 17:42:53 2001 +0000
@@ -7918,7 +7918,7 @@
 		       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)
--- a/lisp/gnus/gnus-uu.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-uu.el	Sun Jul 15 17:42:53 2001 +0000
@@ -2134,4 +2134,4 @@
 
 (provide 'gnus-uu)
 
-;; gnus-uu.el ends here
+;;; gnus-uu.el ends here
--- a/lisp/gnus/gnus-vm.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/gnus-vm.el	Sun Jul 15 17:42:53 2001 +0000
@@ -105,4 +105,4 @@
 
 (provide 'gnus-vm)
 
-;;; gnus-vm.el ends here.
+;;; gnus-vm.el ends here
--- a/lisp/gnus/ietf-drums.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/ietf-drums.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/mail-parse.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mail-parse.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/mail-prsvr.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mail-prsvr.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/mail-source.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mail-source.el	Sun Jul 15 17:42:53 2001 +0000
@@ -444,7 +444,7 @@
 		 (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 @@
 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))))
--- a/lisp/gnus/mm-bodies.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-bodies.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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 @@
 
 (provide 'mm-bodies)
 
-;; mm-bodies.el ends here
+;;; mm-bodies.el ends here
--- a/lisp/gnus/mm-decode.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-decode.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/mm-encode.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-encode.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/mm-partial.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-partial.el	Sun Jul 15 17:42:53 2001 +0000
@@ -66,7 +66,7 @@
 	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 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 @@
 		  (error nil))
 		(delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
-;; mm-partial.el ends here
+;;; mm-partial.el ends here
--- a/lisp/gnus/mm-util.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-util.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/mm-uu.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-uu.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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))
--- a/lisp/gnus/mm-view.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mm-view.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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
--- a/lisp/gnus/mml.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/mml.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/nnimap.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/nnimap.el	Sun Jul 15 17:42:53 2001 +0000
@@ -385,7 +385,7 @@
 		      "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)
--- a/lisp/gnus/nnoo.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/nnoo.el	Sun Jul 15 17:42:53 2001 +0000
@@ -306,4 +306,4 @@
 						     backend function))))))))
 (provide 'nnoo)
 
-;;; nnoo.el ends here.
+;;; nnoo.el ends here
--- a/lisp/gnus/parse-time.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/parse-time.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/rfc1843.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/rfc1843.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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
--- a/lisp/gnus/rfc2045.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/rfc2045.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/rfc2047.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/rfc2047.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/rfc2104.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/rfc2104.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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))
 
--- a/lisp/gnus/rfc2231.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/rfc2231.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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.
 
--- a/lisp/gnus/time-date.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/time-date.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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>
--- a/lisp/gnus/uudecode.el	Sun Jul 15 16:15:35 2001 +0000
+++ b/lisp/gnus/uudecode.el	Sun Jul 15 17:42:53 2001 +0000
@@ -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