# HG changeset patch # User Pavel Jank # Date 995218973 0 # Node ID a26d9b55abb6a1a5f6d10c2dc32f5358e79ba096 # Parent 253f761ad37b3b1904036fe9113132e89af1ff4e Some fixes to follow coding conventions in files from Gnus. diff -r 253f761ad37b -r a26d9b55abb6 lisp/ChangeLog --- 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 + * 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 -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/binhex.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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/earcon.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-agent.el --- 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)) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-art.el --- 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) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-audio.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-logic.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-ml.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-mlspl.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-setup.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-srvr.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-sum.el --- 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) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-uu.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/gnus-vm.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/ietf-drums.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mail-parse.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mail-prsvr.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mail-source.el --- 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)))) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-bodies.el --- 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 @@ -264,4 +264,4 @@ (provide 'mm-bodies) -;; mm-bodies.el ends here +;;; mm-bodies.el ends here diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-decode.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-encode.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-partial.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-util.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-uu.el --- 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 @@ -23,7 +23,6 @@ ;;; Commentary: - ;;; Code: (eval-when-compile (require 'cl)) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mm-view.el --- 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 @@ -281,4 +281,4 @@ (provide 'mm-view) -;; mm-view.el ends here +;;; mm-view.el ends here diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/mml.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/nnimap.el --- 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) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/nnoo.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/parse-time.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/rfc1843.el --- 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 ;; 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 -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/rfc2045.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/rfc2047.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/rfc2104.el --- 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)) diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/rfc2231.el --- 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. diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/time-date.el --- 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 diff -r 253f761ad37b -r a26d9b55abb6 lisp/gnus/uudecode.el --- 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 ;; 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