procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Typos.

Browse source
This commit is contained in:
ShengHuo ZHU 2002-11-29 15:57:52 +00:00
parent e70d557978
commit 8f688cb015
22 changed files with 95 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
lisp/gnus/ChangeLog
View file

@ -1,3 +1,49 @@
2002-11-29 ShengHuo ZHU <zsh@cs.rochester.edu>
* 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 <monnier@cs.yale.edu>
* binhex.el (binhex-decode-region): Don't hardcode point-min == 1.

4
lisp/gnus/flow-fill.el
View file

@ -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 <jas@pdc.kth.se>
;; 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.

6
lisp/gnus/gnus-art.el
View file

@ -308,7 +308,7 @@ and the latter avoids underlining any whitespace at all."
(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 @@ forbidden in URL encoding."
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))
")

2
lisp/gnus/gnus-group.el
View file

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

4
lisp/gnus/gnus-mlspl.el
View file

@ -104,10 +104,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.

2
lisp/gnus/gnus-msg.el
View file

@ -538,7 +538,7 @@ header line with the old Message-ID."
(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

4
lisp/gnus/gnus-mule.el
View file

@ -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 @@ All news groups deeper than NAME are also the target.
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)

14
lisp/gnus/gnus-sum.el
View file

@ -2385,7 +2385,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)
@ -2965,7 +2965,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))
@ -5416,7 +5416,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)
@ -5762,7 +5762,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)
@ -6990,7 +6990,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)
@ -8283,7 +8283,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))
@ -8376,7 +8376,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)))

2
lisp/gnus/gnus-topic.el
View file

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

4
lisp/gnus/gnus-util.el
View file

@ -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 <larsi@gnus.org>
@ -612,7 +612,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)

4
lisp/gnus/gnus-win.el
View file

@ -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 <larsi@gnus.org>
@ -291,7 +291,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))

2
lisp/gnus/gnus.el
View file

@ -2048,7 +2048,7 @@ This restriction may disappear in later versions of Gnus."
(memq class gnus-visual))
t))))
;;; Load the compatability functions.
;;; Load the compatibility functions.
(require 'gnus-ems)

7
lisp/gnus/ietf-drums.el
View file

@ -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 <larsi@gnus.org>
@ -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.")

8
lisp/gnus/imap.el
View file

@ -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 <jas@pdc.kth.se>
@ -716,7 +716,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)
@ -809,7 +809,7 @@ Returns t if login was successful, nil otherwise."
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 @@ 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)

2
lisp/gnus/message.el
View file

@ -879,7 +879,7 @@ Defaults to `text-mode-abbrev-table'.")
(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."

4
lisp/gnus/messcompat.el
View file

@ -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 <larsi@gnus.org>
@ -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)

4
lisp/gnus/mm-encode.el
View file

@ -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 <larsi@gnus.org>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
@ -79,7 +79,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)))

8
lisp/gnus/nnimap.el
View file

@ -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 <jas@pdc.kth.se>
;; Jim Radford <radford@robby.caltech.edu>
@ -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 @@ Mail is read from this mailbox and split according to rules in
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 @@ 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 (imap-mailbox-select group examine)

6
lisp/gnus/nnmail.el
View file

@ -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 <larsi@gnus.org>
@ -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 @@ 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.

4
lisp/gnus/nnsoup.el
View file

@ -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 <larsi@gnus.org>
@ -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)

4
lisp/gnus/nnvirtual.el
View file

@ -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 <dmoore@ucsd.edu>
@ -527,7 +527,7 @@ If UPDATE-P is not nil, call gnus-group-update-group on the components."
;;; 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

2
lisp/gnus/smiley-ems.el
View file

@ -148,7 +148,7 @@ With arg, turn displaying on if and only if arg is positive."
(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