2001-07-15 Pavel Jan
\e,Bm
\e(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,
-;;; 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>
-;;; earcon.el --- Sound effects for messages
+;;; earcon.el --- sound effects for messages
;; Copyright (C) 1996, 2000 Free Software Foundation
(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))
(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)
-;;; 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>
(provide 'gnus-logic)
-;;; gnus-logic.el ends here.
+;;; gnus-logic.el ends here
-;;; 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.
;; 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)
split))
(provide 'gnus-mlspl)
+
+;;; gnus-mlspl.el ends here
-;;; 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.
(provide 'gnus-srvr)
-;;; gnus-srvr.el ends here.
+;;; gnus-srvr.el ends here
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)
(provide 'gnus-uu)
-;; gnus-uu.el ends here
+;;; gnus-uu.el ends here
(provide 'gnus-vm)
-;;; gnus-vm.el ends here.
+;;; gnus-vm.el ends here
-;;; 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.
-;;; 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.
-;;; 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>
(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)
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))))
-;;; 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>
(provide 'mm-bodies)
-;; mm-bodies.el ends here
+;;; mm-bodies.el ends here
-;;; 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>
-;;; 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>
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
(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)
(error nil))
(delete-region ,(point-min-marker) ,(point-max-marker))))))))))
-;; mm-partial.el ends here
+;;; mm-partial.el ends here
-;;; 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>
-;;; 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>
;;; Commentary:
-
;;; Code:
(eval-when-compile (require 'cl))
-;;; 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>
(provide 'mm-view)
-;; mm-view.el ends here
+;;; mm-view.el ends here
-;;; 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>
"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)
backend function))))))))
(provide 'nnoo)
-;;; nnoo.el ends here.
+;;; nnoo.el ends here
-;;; parse-time.el --- Parsing time strings
+;;; parse-time.el --- parsing time strings
;; Copyright (C) 1996, 2000 by Free Software Foundation, Inc.
;; 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
-;;; rfc2045.el --- Functions for decoding rfc2045 headers
+;;; rfc2045.el --- functions for decoding rfc2045 headers
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
-;;; 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>
;;; 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))
-;;; rfc2231.el --- Functions for decoding rfc2231 headers
+;;; rfc2231.el --- functions for decoding rfc2231 headers
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
-;;; 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>
-;;; 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
HCoop / bpt / emacs.git / commitdiff