# HG changeset patch # User ShengHuo ZHU # Date 1038585472 0 # Node ID 52d99cc2e9e3998ca8510ccfca7ad50c87d4d51b # Parent 0af9ad58776747cb1d2a74d4fc3514a110c4c70d Typos. diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/ChangeLog Fri Nov 29 15:57:52 2002 +0000 @@ -1,3 +1,49 @@ +2002-11-29 ShengHuo ZHU + + * smiley-ems.el (gnus-smiley-display): Typo. + + * nnvirtual.el: Typo. + + * nnsoup.el (nnsoup-retrieve-headers): Typo. + + * nnmail.el (nnmail-split, nnmail-process-unix-mail-format): Typos. + + * nnimap.el: Typo. + (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-anonymous-auth) + (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. diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/flow-fill.el --- a/lisp/gnus/flow-fill.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/flow-fill.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,6 +1,6 @@ ;;; flow-fill.el --- interprete RFC2646 "flowed" text -;; Copyright (C) 2000 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2002 Free Software Foundation, Inc. ;; Author: Simon Josefsson ;; Keywords: mail @@ -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. diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-art.el Fri Nov 29 15:57:52 2002 +0000 @@ -308,7 +308,7 @@ (defface gnus-emphasis-underline-bold-italic '((t (:weight bold :slant italic :underline t))) "Face used for displaying underlined bold italic emphasized text. -Esample: (_/*word*/_)." +Example: (_/*word*/_)." :group 'gnus-article-emphasis) (defface gnus-emphasis-highlight-words @@ -4797,11 +4797,11 @@ This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a -(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups +\(REGEXP . FUNCTION), FUNCTION will be only apply to these newsgroups whose names match REGEXP. For example: -((\"chinese\" . gnus-decode-encoded-word-region-by-guess) +\((\"chinese\" . gnus-decode-encoded-word-region-by-guess) mail-decode-encoded-word-region (\"chinese\" . rfc1843-decode-region)) ") diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-group.el --- a/lisp/gnus/gnus-group.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-group.el Fri Nov 29 15:57:52 2002 +0000 @@ -3282,7 +3282,7 @@ (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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-mlspl.el --- a/lisp/gnus/gnus-mlspl.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-mlspl.el Fri Nov 29 15:57:52 2002 +0000 @@ -104,10 +104,10 @@ \(: 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-msg.el --- a/lisp/gnus/gnus-msg.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-msg.el Fri Nov 29 15:57:52 2002 +0000 @@ -538,7 +538,7 @@ (gnus-inews-yank-articles yank)))))) (defun gnus-msg-treat-broken-reply-to () - "Remove the Reply-to header iff broken-reply-to." + "Remove the Reply-to header if broken-reply-to." (when (gnus-group-find-parameter gnus-newsgroup-name 'broken-reply-to) (save-restriction diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-mule.el --- a/lisp/gnus/gnus-mule.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-mule.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,6 +1,6 @@ ;;; gnus-mule.el --- provide backward compatibility function to GNUS -;; Copyright (C) 1995,1997 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1997, 2002 Free Software Foundation, Inc. ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. ;; Maintainer: FSF @@ -39,7 +39,7 @@ If CODING-SYSTEM is a cons, the car part is used and the cdr part is ignored. -This function exists for backward comaptibility with Emacs 20. It is +This function exists for backward compatibility with Emacs 20. It is recommended to customize the variable `gnus-group-charset-alist' rather than using this function." (if (consp coding-system) diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-sum.el --- a/lisp/gnus/gnus-sum.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-sum.el Fri Nov 29 15:57:52 2002 +0000 @@ -2385,7 +2385,7 @@ (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) @@ -2965,7 +2965,7 @@ (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)) @@ -5416,7 +5416,7 @@ (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) @@ -5762,7 +5762,7 @@ (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) @@ -6990,7 +6990,7 @@ (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) @@ -8283,7 +8283,7 @@ 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)) @@ -8376,7 +8376,7 @@ 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-topic.el --- a/lisp/gnus/gnus-topic.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-topic.el Fri Nov 29 15:57:52 2002 +0000 @@ -1564,7 +1564,7 @@ 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-util.el --- a/lisp/gnus/gnus-util.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-util.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; gnus-util.el --- utility functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -612,7 +612,7 @@ 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus-win.el --- a/lisp/gnus/gnus-win.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus-win.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; gnus-win.el --- window configuration functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -291,7 +291,7 @@ (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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/gnus.el --- a/lisp/gnus/gnus.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/gnus.el Fri Nov 29 15:57:52 2002 +0000 @@ -2048,7 +2048,7 @@ (memq class gnus-visual)) t)))) -;;; Load the compatability functions. +;;; Load the compatibility functions. (require 'gnus-ems) diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/ietf-drums.el --- a/lisp/gnus/ietf-drums.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/ietf-drums.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; ietf-drums.el --- functions for parsing RFC822bis headers -;; Copyright (C) 1998, 1999, 2000 +;; Copyright (C) 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/imap.el --- a/lisp/gnus/imap.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/imap.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; imap.el --- imap library -;; Copyright (C) 1998, 1999, 2000 +;; Copyright (C) 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Simon Josefsson @@ -716,7 +716,7 @@ (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) @@ -809,7 +809,7 @@ t) (defun imap-anonymous-auth (buffer) - (message "imap: Loging in anonymously...") + (message "imap: Logging in anonymously...") (with-current-buffer buffer (imap-ok-p (imap-send-command-wait (concat "LOGIN anonymous \"" (concat (user-login-name) "@" @@ -882,7 +882,7 @@ 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/message.el --- a/lisp/gnus/message.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/message.el Fri Nov 29 15:57:52 2002 +0000 @@ -879,7 +879,7 @@ (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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/messcompat.el --- a/lisp/gnus/messcompat.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/messcompat.el Fri Nov 29 15:57:52 2002 +0000 @@ -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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/mm-encode.el --- a/lisp/gnus/mm-encode.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/mm-encode.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; mm-encode.el --- functions for encoding MIME things -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko @@ -79,7 +79,7 @@ "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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/nnimap.el --- a/lisp/gnus/nnimap.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/nnimap.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; nnimap.el --- imap backend for Gnus -;; Copyright (C) 1998, 1999, 2000, 2001 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, @@ -97,7 +97,7 @@ This can be a string or a list of strings.") (defvar 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'. @@ -357,7 +357,7 @@ (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 (imap-mailbox-select group examine) diff -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/nnmail.el --- a/lisp/gnus/nnmail.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/nnmail.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; nnmail.el --- mail support functions for the Gnus mail backends -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -56,7 +56,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 @@ -760,7 +760,7 @@ (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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/nnsoup.el --- a/lisp/gnus/nnsoup.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/nnsoup.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,6 +1,6 @@ ;;; nnsoup.el --- SOUP access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -158,7 +158,7 @@ (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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/nnvirtual.el --- a/lisp/gnus/nnvirtual.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/nnvirtual.el Fri Nov 29 15:57:52 2002 +0000 @@ -1,5 +1,5 @@ ;;; nnvirtual.el --- virtual newsgroups access for Gnus -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002 ;; Free Software Foundation, Inc. ;; Author: David Moore @@ -527,7 +527,7 @@ ;;; in the virtual 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: +;;; 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 -r 0af9ad587767 -r 52d99cc2e9e3 lisp/gnus/smiley-ems.el --- a/lisp/gnus/smiley-ems.el Fri Nov 29 15:13:50 2002 +0000 +++ b/lisp/gnus/smiley-ems.el Fri Nov 29 15:57:52 2002 +0000 @@ -148,7 +148,7 @@ (eval-when-compile (defvar gnus-article-buffer)) (defun gnus-smiley-display (&optional arg) - "Display textual emoticaons (\"smilies\") as small graphical icons. + "Display textual emoticons (\"smilies\") as small graphical icons. With arg, turn displaying on if and only if arg is positive." (interactive "P") (save-excursion