From f0c713cd83bedba22da4cc4a58409f0b01a6988c Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 29 Nov 2002 16:19:40 +0000 Subject: [PATCH] 2002-11-29 ShengHuo ZHU * time-date.el (date-to-time): Typo. * parse-time.el: Typo. * nnsoup.el (nnsoup-retrieve-headers): Typo. * nnmail.el (nnmail-split, nnmail-process-unix-mail-format): Typos. * nnimap.el: (nnimap-split-rule, nnimap-find-minmax-uid): Typos. * mm-encode.el (mm-safer-encoding): Typo. * messcompat.el: Typo. * message.el (message-face-alist): Typo. * imap.el (imap-interactive-login, imap-open): Typos. * ietf-drums.el (ietf-drums-text-token, ietf-drums-qtext-token): Typos. * gnus.el: Typo. * gnus-win.el (gnus-configure-frame): Typo. * gnus-util.el (gnus-atomic-progn-assign): Typo. * gnus-topic.el (gnus-topic-sort-topics): Typo. * gnus-sum.el (gnus-summary-article-number) (gnus-summary-read-group-1, gnus-summary-mark-article) (gnus-summary-fetch-faq, gnus-refer-article-methods): Typos. * gnus-mule.el (gnus-mule-add-group): Typo. * gnus-mlspl.el (gnus-group-split-fancy): Typo. * gnus-group.el (gnus-group-fetch-faq): Typo. * gnus-art.el (gnus-decode-header-methods): Typo. * flow-fill.el: Typo. 2002-11-19 Stefan Monnier * binhex.el (binhex-decode-region): Don't hardcode point-min == 1. --- lisp/ChangeLog | 62 +++++++++++++++++++++++++++++++++++++++++----- lisp/binhex.el | 2 +- lisp/flow-fill.el | 2 +- lisp/gnus-group.el | 2 +- lisp/gnus-mlspl.el | 4 +-- lisp/gnus-msg.el | 2 +- lisp/gnus-sum.el | 14 +++++------ lisp/gnus-topic.el | 2 +- lisp/gnus-util.el | 2 +- lisp/gnus-win.el | 4 +-- lisp/gnus.el | 2 +- lisp/ietf-drums.el | 5 ++-- lisp/imap.el | 4 +-- lisp/message.el | 2 +- lisp/messcompat.el | 4 +-- lisp/mm-encode.el | 2 +- lisp/nnimap.el | 8 +++--- lisp/nnmail.el | 4 +-- lisp/nnsoup.el | 2 +- lisp/nnvirtual.el | 4 +-- lisp/parse-time.el | 4 +-- lisp/time-date.el | 4 +-- 22 files changed, 96 insertions(+), 45 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2dc6735c..7754c1f88 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,56 @@ +2002-11-29 ShengHuo ZHU + + * time-date.el (date-to-time): Typo. + + * parse-time.el: Typo. + + * nnsoup.el (nnsoup-retrieve-headers): Typo. + + * nnmail.el (nnmail-split, nnmail-process-unix-mail-format): Typos. + + * nnimap.el: + (nnimap-split-rule, nnimap-find-minmax-uid): Typos. + + * mm-encode.el (mm-safer-encoding): Typo. + + * messcompat.el: Typo. + + * message.el (message-face-alist): Typo. + + * imap.el (imap-interactive-login, imap-open): Typos. + + * ietf-drums.el (ietf-drums-text-token, ietf-drums-qtext-token): Typos. + + * gnus.el: Typo. + + * gnus-win.el (gnus-configure-frame): Typo. + + * gnus-util.el (gnus-atomic-progn-assign): Typo. + + * gnus-topic.el (gnus-topic-sort-topics): Typo. + + * gnus-sum.el (gnus-summary-article-number) + (gnus-summary-read-group-1, gnus-summary-mark-article) + (gnus-summary-fetch-faq, gnus-refer-article-methods): Typos. + + * gnus-mule.el (gnus-mule-add-group): Typo. + + * gnus-mlspl.el (gnus-group-split-fancy): Typo. + + * gnus-group.el (gnus-group-fetch-faq): Typo. + + * gnus-art.el (gnus-decode-header-methods): Typo. + + * flow-fill.el: Typo. + +2002-11-19 Stefan Monnier + + * binhex.el (binhex-decode-region): Don't hardcode point-min == 1. + 2002-11-29 Kai Gro,A_(Bjohann - * gnus-sum.el (gnus-simplify-ignored-prefixes) - (gnus-summary-mark-article-as-unread) + * gnus-sum.el (gnus-simplify-ignored-prefixes) + (gnus-summary-mark-article-as-unread) (gnus-mark-article-as-unread, gnus-summary-highlight-line): Reformatting to avoid long lines. @@ -7316,8 +7365,8 @@ * imap.el (imap-gssapi-auth-p, imap-kerberos4-auth-p): Also check whether `imtest' is installed. -2001-08-04 Nuutti Kotivuori - Committed by ShengHuo ZHU +2001-08-04 ShengHuo ZHU + Trivial patch from Nuutti Kotivuori * gnus-sum.el (gnus-summary-show-article): Call gnus-summary-update-secondary-secondary-mark. @@ -7351,6 +7400,7 @@ with ">" using `message-yank-cited-prefix'. 2001-08-05 Nuutti Kotivuori + Trivial patch. * gnus-cache.el (gnus-cache-possibly-enter-article): Use gnus-cache-fully-p. @@ -7383,8 +7433,8 @@ Reported and modifications based on discussions with Nuutti Kotivuori . -2001-08-04 Nuutti Kotivuori - Committed by Simon Josefsson +2001-08-04 Simon Josefsson + Trivial patch from Nuutti Kotivuori * gnus-cache.el (gnus-cache-possibly-update-active): New function; calls `gnus-cache-update-active' if bounds has been extended. diff --git a/lisp/binhex.el b/lisp/binhex.el index 8cdd74763..dba9190ea 100644 --- a/lisp/binhex.el +++ b/lisp/binhex.el @@ -245,7 +245,7 @@ If HEADER-ONLY is non-nil only decode header and return filename." (>= (buffer-size) data-fork-start))) (progn (binhex-verify-crc work-buffer - 1 data-fork-start) + (point-min) data-fork-start) (setq header (binhex-header work-buffer)) (if header-only (setq tmp nil counter 0)))) (setq tmp (and tmp (not (eq inputpos end))))) diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index 1b62a480d..2d1dd91b2 100644 --- a/lisp/flow-fill.el +++ b/lisp/flow-fill.el @@ -43,7 +43,7 @@ ;; 2000-02-17 posted on ding mailing list ;; 2000-02-19 use `point-at-{b,e}ol' in XEmacs ;; 2000-03-11 no compile warnings for point-at-bol stuff -;; 2000-03-26 commited to gnus cvs +;; 2000-03-26 committed to gnus cvs ;; 2000-10-23 don't flow "-- " lines, make "quote-depth wins" rule ;; work when first line is at level 0. ;; 2002-01-12 probably incomplete encoding support diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index ba7000d75..168ebc8f6 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3505,7 +3505,7 @@ to use." (gnus-group-group-name) (when current-prefix-arg (completing-read - "Faq dir: " (and (listp gnus-group-faq-directory) + "FAQ dir: " (and (listp gnus-group-faq-directory) (mapcar #'list gnus-group-faq-directory)))))) (unless group diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el index 56a912c67..2379a17ec 100644 --- a/lisp/gnus-mlspl.el +++ b/lisp/gnus-mlspl.el @@ -105,10 +105,10 @@ It can be embedded into `nnmail-split-fancy' lists with the SPLIT \(: gnus-group-split-fancy GROUPS NO-CROSSPOST CATCH-ALL\) GROUPS may be a regular expression or a list of group names, that will -be used to select candidate groups. If it is ommited or nil, all +be used to select candidate groups. If it is omitted or nil, all existing groups are considered. -if NO-CROSSPOST is ommitted or nil, a & split will be returned, +if NO-CROSSPOST is omitted or nil, a & split will be returned, otherwise, a | split, that does not allow crossposting, will be returned. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index d780f4a4e..5e2ed7a15 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -892,7 +892,7 @@ header line with the old Message-ID." (gnus-inews-yank-articles yank)))))) (defun gnus-msg-treat-broken-reply-to (&optional force) - "Remove the Reply-to header iff broken-reply-to." + "Remove the Reply-to header if broken-reply-to." (when (or force (gnus-group-find-parameter gnus-newsgroup-name 'broken-reply-to)) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 0ddeb2fe4..9db609566 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2764,7 +2764,7 @@ The following commands are available: (defmacro gnus-summary-article-number () "The article number of the article on the current line. -If there isn's an article number here, then we return the current +If there isn't an article number here, then we return the current article number." '(progn (gnus-summary-skip-intangible) @@ -3412,7 +3412,7 @@ If NO-DISPLAY, don't generate a summary buffer." (let ((gnus-newsgroup-dormant nil)) (gnus-summary-initial-limit show-all)) (gnus-summary-initial-limit show-all)) - ;; When untreaded, all articles are always shown. + ;; When unthreaded, all articles are always shown. (setq gnus-newsgroup-limit (mapcar (lambda (header) (mail-header-number header)) @@ -6148,7 +6148,7 @@ displayed, no centering will be performed." (defun gnus-summary-toggle-truncation (&optional arg) "Toggle truncation of summary lines. -With arg, turn line truncation on iff arg is positive." +With arg, turn line truncation on if arg is positive." (interactive "P") (setq truncate-lines (if (null arg) (not truncate-lines) @@ -6521,7 +6521,7 @@ in." (list (when current-prefix-arg (completing-read - "Faq dir: " (and (listp gnus-group-faq-directory) + "FAQ dir: " (and (listp gnus-group-faq-directory) (mapcar (lambda (file) (list file)) gnus-group-faq-directory)))))) (let (gnus-faq-buffer) @@ -7862,7 +7862,7 @@ of what's specified by the `gnus-refer-thread-limit' variable." (gnus-message 3 "Couldn't fetch article %s" message-id))))))) (defun gnus-refer-article-methods () - "Return a list of referrable methods." + "Return a list of referable methods." (cond ;; No method, so we default to current and native. ((null gnus-refer-article-method) @@ -9400,7 +9400,7 @@ the actual number of articles marked is returned." If N is negative, mark backwards instead. Mark with MARK, ?r by default. The difference between N and the actual number of articles marked is returned. -Iff NO-EXPIRE, auto-expiry will be inhibited." +If NO-EXPIRE, auto-expiry will be inhibited." (interactive "p") (gnus-summary-show-thread) (let ((backward (< n 0)) @@ -9506,7 +9506,7 @@ Four MARK strings are reserved: `? ' (unread), `?!' (ticked), If MARK is nil, then the default character `?r' is used. If ARTICLE is nil, then the article on the current line will be marked. -Iff NO-EXPIRE, auto-expiry will be inhibited." +If NO-EXPIRE, auto-expiry will be inhibited." ;; The mark might be a string. (when (stringp mark) (setq mark (aref mark 0))) diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index c17dbe40a..836c013fb 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -1684,7 +1684,7 @@ If REVERSE, sort in reverse order." top) (defun gnus-topic-sort-topics (&optional topic reverse) - "Sort topics in TOPIC alphabeticaly by topic name. + "Sort topics in TOPIC alphabetically by topic name. If REVERSE, reverse the sorting order." (interactive (list (completing-read "Sort topics in : " gnus-topic-alist nil t diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index de7afed3c..b9aadd3c0 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -726,7 +726,7 @@ non-locally exits. The variables listed in PROTECT are updated atomically. It is safe to use gnus-atomic-progn-assign with long computations. Note that if any of the symbols in PROTECT were unbound, they will be -set to nil on a sucessful assignment. In case of an error or other +set to nil on a successful assignment. In case of an error or other non-local exit, it will still be unbound." (let* ((temp-sym-map (mapcar (lambda (x) (list (make-symbol (concat (symbol-name x) diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el index 570c27c6f..56375db48 100644 --- a/lisp/gnus-win.el +++ b/lisp/gnus-win.el @@ -1,5 +1,5 @@ ;;; gnus-win.el --- window configuration functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -295,7 +295,7 @@ See the Gnus manual for an explanation of the syntax used.") (unless window (setq window current-window)) (select-window window) - ;; This might be an old-stylee buffer config. + ;; This might be an old-style buffer config. (when (vectorp split) (setq split (append split nil))) (when (or (consp (car split)) diff --git a/lisp/gnus.el b/lisp/gnus.el index 7ddf830e3..bbbb83c2a 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2448,7 +2448,7 @@ Return nil if not defined." (defmacro gnus-get-info (group) `(nth 2 (gnus-gethash ,group gnus-newsrc-hashtb))) -;;; Load the compatability functions. +;;; Load the compatibility functions. (require 'gnus-ems) diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index 9c79e9112..ae97c7e05 100644 --- a/lisp/ietf-drums.el +++ b/lisp/ietf-drums.el @@ -36,7 +36,7 @@ (defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177" "US-ASCII control characters excluding CR, LF and white space.") (defvar ietf-drums-text-token "\001-\011\013\014\016-\177" - "US-ASCII characters exlcuding CR and LF.") + "US-ASCII characters excluding CR and LF.") (defvar ietf-drums-specials-token "()<>[]:;@\\,.\"" "Special characters.") (defvar ietf-drums-quote-token "\\" @@ -52,7 +52,8 @@ "Textual token including full stop.") (defvar ietf-drums-qtext-token (concat ietf-drums-no-ws-ctl-token "\041\043-\133\135-\177") - "Non-white-space control characaters, plus the rest of ASCII excluding backslash and doublequote.") + "Non-white-space control characters, plus the rest of ASCII excluding +backslash and doublequote.") (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" "Tspecials.") diff --git a/lisp/imap.el b/lisp/imap.el index 1d266fca1..4413fb57d 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -758,7 +758,7 @@ If ARGS, PROMPT is used as an argument to `format'." (defun imap-interactive-login (buffer loginfunc) "Login to server in BUFFER. LOGINFUNC is passed a username and a password, it should return t if -it where sucessful authenticating itself to the server, nil otherwise. +it where successful authenticating itself to the server, nil otherwise. Returns t if login was successful, nil otherwise." (with-current-buffer buffer (make-local-variable 'imap-username) @@ -927,7 +927,7 @@ AUTH indicates authenticator to use, see `imap-authenticators' for available authenticators. If nil, it choices the best stream the server is capable of. BUFFER can be a buffer or a name of a buffer, which is created if -necessery. If nil, the buffer name is generated." +necessary. If nil, the buffer name is generated." (setq buffer (or buffer (format " *imap* %s:%d" server (or port 0)))) (with-current-buffer (get-buffer-create buffer) (if (imap-opened buffer) diff --git a/lisp/message.el b/lisp/message.el index 29c19ff5d..bae2734e6 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1150,7 +1150,7 @@ candidates: (unbold-region b e) (ununderline-region b e)))) "Alist of mail and news faces for facemenu. -The cdr of ech entry is a function for applying the face to a region.") +The cdr of each entry is a function for applying the face to a region.") (defcustom message-send-hook nil "Hook run before sending messages." diff --git a/lisp/messcompat.el b/lisp/messcompat.el index e3021ce4b..fc3d52cc2 100644 --- a/lisp/messcompat.el +++ b/lisp/messcompat.el @@ -1,6 +1,6 @@ ;;; messcompat.el --- making message mode compatible with mail mode -;; Copyright (C) 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -25,7 +25,7 @@ ;;; Commentary: -;; This file tries to provide backward compatability with sendmail.el +;; This file tries to provide backward compatibility with sendmail.el ;; for Message mode. It should be used by simply adding ;; ;; (require 'messcompat) diff --git a/lisp/mm-encode.el b/lisp/mm-encode.el index d75e3f6ba..c315c61e4 100644 --- a/lisp/mm-encode.el +++ b/lisp/mm-encode.el @@ -87,7 +87,7 @@ This variable should never be set directly, but bound before a call to "Return a safer but similar encoding." (cond ((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable) - ;; The remaing encodings are binary and base64 (and perhaps some + ;; The remaining encodings are binary and base64 (and perhaps some ;; non-standard ones), which are both turned into base64. (t 'base64))) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index fc36934ac..81865db46 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -1,5 +1,5 @@ ;;; nnimap.el --- imap backend for Gnus -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Simon Josefsson ;; Jim Radford @@ -42,7 +42,7 @@ ;; o Split up big fetches (1,* header especially) in smaller chunks ;; o What do I do with gnus-newsgroup-*? ;; o Tell Gnus about new groups (how can we tell?) -;; o Respooling (fix Gnus?) (unnecessery?) +;; o Respooling (fix Gnus?) (unnecessary?) ;; o Add support for the following: (if applicable) ;; request-list-newsgroups, request-regenerate ;; list-active-group, @@ -115,7 +115,7 @@ loaded function will not match. Use with care." (functionp value)) (defcustom nnimap-split-rule nil - "Mail will be split according to theese rules. + "Mail will be split according to these rules. Mail is read from mailbox(es) specified in `nnimap-split-inbox'. @@ -453,7 +453,7 @@ If SERVER is nil, uses the current server." (imap-mailbox-unselect nnimap-server-buffer)))) (defun nnimap-find-minmax-uid (group &optional examine) - "Find lowest and highest active article nummber in GROUP. + "Find lowest and highest active article number in GROUP. If EXAMINE is non-nil the group is selected read-only." (with-current-buffer nnimap-server-buffer (when (or (string= group (imap-current-mailbox)) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 1a6aafbe8..a36e7a6ce 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -57,7 +57,7 @@ :group 'nnmail) (defgroup nnmail-split nil - "Organizing the incomming mail in folders." + "Organizing the incoming mail in folders." :group 'nnmail) (defgroup nnmail-files nil @@ -832,7 +832,7 @@ If SOURCE is a directory spec, try to return the group name component." (setq head-end (point)) ;; We try the Content-Length value. The idea: skip over the header ;; separator, then check what happens content-length bytes into the - ;; message body. This should be either the end ot the buffer, the + ;; message body. This should be either the end of the buffer, the ;; message separator or a blank line followed by the separator. ;; The blank line should probably be deleted. If neither of the ;; three is met, the content-length header is probably invalid. diff --git a/lisp/nnsoup.el b/lisp/nnsoup.el index 29791ce2b..e4c8271cc 100644 --- a/lisp/nnsoup.el +++ b/lisp/nnsoup.el @@ -158,7 +158,7 @@ backend for the messages.") (when index-buffer (insert-buffer-substring index-buffer) (goto-char b) - ;; We have to remove the index number entires and + ;; We have to remove the index number entries and ;; insert article numbers instead. (while (looking-at "[0-9]+") (replace-match (int-to-string number) t t) diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index 60999379d..58244cba4 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -1,5 +1,5 @@ ;;; nnvirtual.el --- virtual newsgroups access for Gnus -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: David Moore @@ -529,7 +529,7 @@ If UPDATE-P is not nil, call gnus-group-update-group on the components." ;;; group. ;;; If you have 3 components A, B and C, with articles 1-8, 1-5, and -;;; 6-7 resprectively, then the virtual article numbers look like: +;;; 6-7 respectively, then the virtual article numbers look like: ;;; ;;; 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ;;; A1 A2 A3 A4 B1 A5 B2 A6 B3 A7 B4 C6 A8 B5 C7 diff --git a/lisp/parse-time.el b/lisp/parse-time.el index d00325131..34dd3fd56 100644 --- a/lisp/parse-time.el +++ b/lisp/parse-time.el @@ -1,6 +1,6 @@ ;;; parse-time.el --- Parsing time strings -;; Copyright (C) 1996, 2000 by Free Software Foundation, Inc. +;; Copyright (C) 1996, 2000, 2002 by Free Software Foundation, Inc. ;; Author: Erik Naggum ;; Keywords: util @@ -32,7 +32,7 @@ ;; `parse-time-string' parses a time in a string and returns a list of 9 ;; values, just like `decode-time', where unspecified elements in the ;; string are returned as nil. `encode-time' may be applied on these -;; valuse to obtain an internal time value. +;; values to obtain an internal time value. ;;; Code: diff --git a/lisp/time-date.el b/lisp/time-date.el index e9babceb0..5ab131c90 100644 --- a/lisp/time-date.el +++ b/lisp/time-date.el @@ -1,5 +1,5 @@ ;;; time-date.el --- Date and time handling functions -;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Masanobu Umeda @@ -38,7 +38,7 @@ (parse-time-string ;; `parse-time-string' isn't sufficiently general or ;; robust. It fails to grok some of the formats that - ;; timzeone does (e.g. dodgy post-2000 stuff from some + ;; timezone does (e.g. dodgy post-2000 stuff from some ;; Elms) and either fails or returns bogus values. Lars ;; reverted this change, but that loses non-trivially ;; often for me. -- fx -- 2.25.1