mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Some fixes to follow coding conventions in files from Gnus.

Browse Source
This commit is contained in:
Pavel Janík 2001-07-15 17:42:53 +00:00
parent 5553563924
commit 715a2ca2fc
36 changed files with 61 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ChangeLog
View File

@ -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,

2
lisp/gnus/binhex.el
View File

@ -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>

2
lisp/gnus/earcon.el
View File

@ -1,4 +1,4 @@
;;; earcon.el --- Sound effects for messages
;;; earcon.el --- sound effects for messages
;; Copyright (C) 1996, 2000 Free Software Foundation

2
lisp/gnus/gnus-agent.el
View File

@ -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))

2
lisp/gnus/gnus-art.el
View File

@ -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)

2
lisp/gnus/gnus-audio.el
View File

@ -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>

2
lisp/gnus/gnus-logic.el
View File

@ -227,4 +227,4 @@
(provide 'gnus-logic)
;;; gnus-logic.el ends here.
;;; gnus-logic.el ends here

2
lisp/gnus/gnus-ml.el
View File

@ -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.

6
lisp/gnus/gnus-mlspl.el
View File

@ -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

2
lisp/gnus/gnus-setup.el
View File

@ -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.

2
lisp/gnus/gnus-srvr.el
View File

@ -806,4 +806,4 @@ buffer.
(provide 'gnus-srvr)
;;; gnus-srvr.el ends here.
;;; gnus-srvr.el ends here

2
lisp/gnus/gnus-sum.el
View File

@ -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)

2
lisp/gnus/gnus-uu.el
View File

@ -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

2
lisp/gnus/gnus-vm.el
View File

@ -105,4 +105,4 @@ save those articles instead."
(provide 'gnus-vm)
;;; gnus-vm.el ends here.
;;; gnus-vm.el ends here

2
lisp/gnus/ietf-drums.el
View File

@ -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.

2
lisp/gnus/mail-parse.el
View File

@ -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.

2
lisp/gnus/mail-prsvr.el
View File

@ -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>

4
lisp/gnus/mail-source.el
View File

@ -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))))

4
lisp/gnus/mm-bodies.el
View File

@ -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

2
lisp/gnus/mm-decode.el
View File

@ -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>

2
lisp/gnus/mm-encode.el
View File

@ -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>

6
lisp/gnus/mm-partial.el
View File

@ -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

2
lisp/gnus/mm-util.el
View File

@ -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>

3
lisp/gnus/mm-uu.el
View File

@ -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))

4
lisp/gnus/mm-view.el
View File

@ -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

2
lisp/gnus/mml.el
View File

@ -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>

2
lisp/gnus/nnimap.el
View File

@ -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)

2
lisp/gnus/nnoo.el
View File

@ -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

2
lisp/gnus/parse-time.el
View File

@ -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.

2
lisp/gnus/rfc1843.el
View File

@ -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

2
lisp/gnus/rfc2045.el
View File

@ -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.

2
lisp/gnus/rfc2047.el
View File

@ -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>

2
lisp/gnus/rfc2104.el
View File

@ -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))

2
lisp/gnus/rfc2231.el
View File

@ -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.

2
lisp/gnus/time-date.el
View File

@ -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>

4
lisp/gnus/uudecode.el
View File

@ -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