Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8f688cb0
Commit
8f688cb0
authored
Nov 29, 2002
by
ShengHuo ZHU
Browse files
Typos.
parent
e70d5579
Changes
22
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
92 additions
and
45 deletions
+92
-45
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+46
-0
lisp/gnus/flow-fill.el
lisp/gnus/flow-fill.el
+2
-2
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+3
-3
lisp/gnus/gnus-group.el
lisp/gnus/gnus-group.el
+1
-1
lisp/gnus/gnus-mlspl.el
lisp/gnus/gnus-mlspl.el
+2
-2
lisp/gnus/gnus-msg.el
lisp/gnus/gnus-msg.el
+1
-1
lisp/gnus/gnus-mule.el
lisp/gnus/gnus-mule.el
+2
-2
lisp/gnus/gnus-sum.el
lisp/gnus/gnus-sum.el
+7
-7
lisp/gnus/gnus-topic.el
lisp/gnus/gnus-topic.el
+1
-1
lisp/gnus/gnus-util.el
lisp/gnus/gnus-util.el
+2
-2
lisp/gnus/gnus-win.el
lisp/gnus/gnus-win.el
+2
-2
lisp/gnus/gnus.el
lisp/gnus/gnus.el
+1
-1
lisp/gnus/ietf-drums.el
lisp/gnus/ietf-drums.el
+4
-3
lisp/gnus/imap.el
lisp/gnus/imap.el
+4
-4
lisp/gnus/message.el
lisp/gnus/message.el
+1
-1
lisp/gnus/messcompat.el
lisp/gnus/messcompat.el
+2
-2
lisp/gnus/mm-encode.el
lisp/gnus/mm-encode.el
+2
-2
lisp/gnus/nnimap.el
lisp/gnus/nnimap.el
+4
-4
lisp/gnus/nnmail.el
lisp/gnus/nnmail.el
+3
-3
lisp/gnus/nnsoup.el
lisp/gnus/nnsoup.el
+2
-2
No files found.
lisp/gnus/ChangeLog
View file @
8f688cb0
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.
...
...
lisp/gnus/flow-fill.el
View file @
8f688cb0
;;; 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 commit
t
ed to gnus cvs
;; 2000-10-23 don't flow "-- " lines, make "quote-depth wins" rule
;; work when first line is at level 0.
...
...
lisp/gnus/gnus-art.el
View file @
8f688cb0
...
...
@@ -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.
E
s
ample: (_/*word*/_)."
E
x
ample: (_/*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 thes
e
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))
"
)
...
...
lisp/gnus/gnus-group.el
View file @
8f688cb0
...
...
@@ -3282,7 +3282,7 @@ to use."
(
gnus-group-group-name
)
(
when
current-prefix-arg
(
completing-read
"F
aq
dir: "
(
and
(
listp
gnus-group-faq-directory
)
"F
AQ
dir: "
(
and
(
listp
gnus-group-faq-directory
)
(
mapcar
#'
list
gnus-group-faq-directory
))))))
(
unless
group
...
...
lisp/gnus/gnus-mlspl.el
View file @
8f688cb0
...
...
@@ -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 om
m
ited or nil, all
be used to select candidate groups. If it is omi
t
ted or nil, all
existing groups are considered.
if NO-CROSSPOST is om
m
itted 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.
...
...
lisp/gnus/gnus-msg.el
View file @
8f688cb0
...
...
@@ -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 if
f
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
...
...
lisp/gnus/gnus-mule.el
View file @
8f688cb0
;;; 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 com
a
ptibility with Emacs 20. It is
This function exists for backward comp
a
tibility with Emacs 20. It is
recommended to customize the variable `gnus-group-charset-alist'
rather than using this function."
(
if
(
consp
coding-system
)
...
...
lisp/gnus/gnus-sum.el
View file @
8f688cb0
...
...
@@ -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 unt
h
readed, 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 if
f
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
"F
aq
dir: " (and (listp gnus-group-faq-directory)
"F
AQ
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 refer
r
able 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.
If
f
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.
If
f
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)))
...
...
lisp/gnus/gnus-topic.el
View file @
8f688cb0
...
...
@@ -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 alphabetical
l
y by topic name.
If REVERSE, reverse the sorting order."
(
interactive
(
list
(
completing-read
"Sort topics in : "
gnus-topic-alist
nil
t
...
...
lisp/gnus/gnus-util.el
View file @
8f688cb0
;;; 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 suc
c
essful 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
)
...
...
lisp/gnus/gnus-win.el
View file @
8f688cb0
;;; 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-style
e
buffer config.
;; This might be an old-style buffer config.
(
when
(
vectorp
split
)
(
setq
split
(
append
split
nil
)))
(
when
(
or
(
consp
(
car
split
))
...
...
lisp/gnus/gnus.el
View file @
8f688cb0
...
...
@@ -2048,7 +2048,7 @@ This restriction may disappear in later versions of Gnus."
(
memq
class
gnus-visual
))
t
))))
;;; Load the compat
a
bility functions.
;;; Load the compat
i
bility functions.
(
require
'gnus-ems
)
...
...
lisp/gnus/ietf-drums.el
View file @
8f688cb0
;;; 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 ex
l
cuding CR and LF."
)
"US-ASCII characters exc
l
uding 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."
)
...
...
lisp/gnus/imap.el
View file @
8f688cb0
;;; 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 suc
c
essful 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: Log
g
ing 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
necess
e
ry. If nil, the buffer name is generated."
necess
a
ry. 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
)
...
...
lisp/gnus/message.el
View file @
8f688cb0
...
...
@@ -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 e
a
ch entry is a function for applying the face to a region."
)
(
defcustom
message-send-hook
nil
"Hook run before sending messages."
...
...
lisp/gnus/messcompat.el
View file @
8f688cb0
;;; 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 compat
a
bility with sendmail.el
;; This file tries to provide backward compat
i
bility with sendmail.el
;; for Message mode. It should be used by simply adding
;;
;; (require 'messcompat)
...
...
lisp/gnus/mm-encode.el
View file @
8f688cb0
;;; 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 remain
in
g encodings are binary and base64 (and perhaps some
;; non-standard ones), which are both turned into base64.
(
t
'base64
)))
...
...
lisp/gnus/nnimap.el
View file @
8f688cb0
;;; 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?) (unnecess
e
ry?)
;; o Respooling (fix Gnus?) (unnecess
a
ry?)
;; 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 the
e
se 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 num
m
ber 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
)
...
...
lisp/gnus/nnmail.el
View file @
8f688cb0
;;; 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 incom
m
ing 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 o
t
the buffer, the
;; message body. This should be either the end o
f
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.
...
...
lisp/gnus/nnsoup.el
View file @
8f688cb0
;;; 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 ent
i
res and
;; We have to remove the index number entr
i
es and
;; insert article numbers instead.
(
while
(
looking-at
"[0-9]+"
)
(
replace-match
(
int-to-string
number
)
t
t
)
...
...
Prev
1
2
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment