From 715a2ca2fc1be26e8420f209c3440b90d687fec6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sun, 15 Jul 2001 17:42:53 +0000 Subject: [PATCH] Some fixes to follow coding conventions in files from Gnus. --- lisp/ChangeLog | 14 ++++++++++++++ lisp/gnus/binhex.el | 2 +- lisp/gnus/earcon.el | 2 +- lisp/gnus/gnus-agent.el | 2 +- lisp/gnus/gnus-art.el | 2 +- lisp/gnus/gnus-audio.el | 2 +- lisp/gnus/gnus-logic.el | 2 +- lisp/gnus/gnus-ml.el | 2 +- lisp/gnus/gnus-mlspl.el | 6 ++++++ lisp/gnus/gnus-setup.el | 2 +- lisp/gnus/gnus-srvr.el | 2 +- lisp/gnus/gnus-sum.el | 2 +- lisp/gnus/gnus-uu.el | 2 +- lisp/gnus/gnus-vm.el | 2 +- lisp/gnus/ietf-drums.el | 2 +- lisp/gnus/mail-parse.el | 2 +- lisp/gnus/mail-prsvr.el | 2 +- lisp/gnus/mail-source.el | 4 ++-- lisp/gnus/mm-bodies.el | 4 ++-- lisp/gnus/mm-decode.el | 2 +- lisp/gnus/mm-encode.el | 2 +- lisp/gnus/mm-partial.el | 6 +++--- lisp/gnus/mm-util.el | 2 +- lisp/gnus/mm-uu.el | 3 +-- lisp/gnus/mm-view.el | 4 ++-- lisp/gnus/mml.el | 2 +- lisp/gnus/nnimap.el | 2 +- lisp/gnus/nnoo.el | 2 +- lisp/gnus/parse-time.el | 2 +- lisp/gnus/rfc1843.el | 2 +- lisp/gnus/rfc2045.el | 2 +- lisp/gnus/rfc2047.el | 2 +- lisp/gnus/rfc2104.el | 2 ++ lisp/gnus/rfc2231.el | 2 +- lisp/gnus/time-date.el | 2 +- lisp/gnus/uudecode.el | 4 ++-- 36 files changed, 61 insertions(+), 40 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd3a62a97d1..ad854a49d2b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,19 @@ 2001-07-15 Pavel Jan,Bm(Bk + * 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 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 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 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 @@ -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 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 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 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 @@ -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 @@ -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 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 ;; 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 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 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 ;; 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 -- 2.39.2