From: yamaoka Date: Sun, 1 Dec 2002 23:28:31 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_10-00-quimby~55 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6be2fac7d791b9c85419d4db4b86691c5962bb29;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2f85b8..7754c1f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,59 @@ +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-mark-article-as-unread, gnus-summary-highlight-line): + Reformatting to avoid long lines. + 2002-11-28 Daiki Ueno * gnus-agent.el (gnus-agent-fetch-group-1): Article numbers should @@ -7309,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. @@ -7344,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. @@ -7376,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 8cdd747..dba9190 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 5dca163..654bf40 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 2b6bfb2..275f68c 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3550,7 +3550,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 56a912c..2379a17 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 aa3676e..e98e497 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -975,7 +975,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 88395f3..dea7f92 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -154,7 +154,7 @@ Useful functions to put in this list include: :type '(repeat function)) (defcustom gnus-simplify-ignored-prefixes nil - "*Regexp, matches for which are removed from subject lines when simplifying fuzzily." + "*Remove matches for this regexp from subject lines when simplifying fuzzily." :group 'gnus-thread :type '(choice (const :tag "off" nil) regexp)) @@ -2766,7 +2766,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) @@ -3434,7 +3434,7 @@ If SHOW-ALL is non-nil, already read articles are also listed." (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)) @@ -6168,7 +6168,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) @@ -6547,7 +6547,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) @@ -7888,7 +7888,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) @@ -9499,7 +9499,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)) @@ -9562,7 +9562,8 @@ Iff NO-EXPIRE, auto-expiry will be inhibited." (gnus-error 1 "Can't mark negative article numbers") nil) (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked)) - (setq gnus-newsgroup-spam-marked (delq article gnus-newsgroup-spam-marked)) + (setq gnus-newsgroup-spam-marked + (delq article gnus-newsgroup-spam-marked)) (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant)) (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable)) (setq gnus-newsgroup-reads (delq article gnus-newsgroup-reads)) @@ -9605,7 +9606,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))) @@ -9731,7 +9732,8 @@ Iff NO-EXPIRE, auto-expiry will be inhibited." (gnus-add-to-sorted-list gnus-newsgroup-marked article))) ((= mark gnus-spam-mark) (setq gnus-newsgroup-spam-marked - (gnus-add-to-sorted-list gnus-newsgroup-spam-marked article))) + (gnus-add-to-sorted-list gnus-newsgroup-spam-marked + article))) ((= mark gnus-dormant-mark) (setq gnus-newsgroup-dormant (gnus-add-to-sorted-list gnus-newsgroup-dormant article))) @@ -10981,32 +10983,42 @@ If REVERSE, save parts that do not match TYPE." ;; New implementation by Christian Limpach . (defun gnus-summary-highlight-line () "Highlight current line according to `gnus-summary-highlight'." - (let* ((list gnus-summary-highlight) - (beg (gnus-point-at-bol)) - (article (gnus-summary-article-number)) - (score (or (cdr (assq (or article gnus-current-article) - gnus-newsgroup-scored)) - gnus-summary-default-score 0)) - (mark (or (gnus-summary-article-mark) gnus-unread-mark)) - (inhibit-read-only t) - (default gnus-summary-default-score) - (default-high gnus-summary-default-high-score) - (default-low gnus-summary-default-low-score) - (downloaded (and (boundp 'gnus-agent-article-alist) - gnus-agent-article-alist - ;; Optimized for when gnus-summary-highlight-line is called multiple times for articles in ascending order (i.e. initial generation of summary buffer). - (progn - (if (and (eq gnus-summary-highlight-line-downloaded-alist gnus-agent-article-alist) - (<= (caar gnus-summary-highlight-line-downloaded-cached) article)) - nil - (setq gnus-summary-highlight-line-downloaded-alist gnus-agent-article-alist - gnus-summary-highlight-line-downloaded-cached gnus-agent-article-alist)) - (let (n) - (while (and (< (caar gnus-summary-highlight-line-downloaded-cached) article) - (setq n (cdr gnus-summary-highlight-line-downloaded-cached))) - (setq gnus-summary-highlight-line-downloaded-cached n))) - (and (eq (caar gnus-summary-highlight-line-downloaded-cached) article) - (cdar gnus-summary-highlight-line-downloaded-cached)))))) + (let* + ((list gnus-summary-highlight) + (beg (gnus-point-at-bol)) + (article (gnus-summary-article-number)) + (score (or (cdr (assq (or article gnus-current-article) + gnus-newsgroup-scored)) + gnus-summary-default-score 0)) + (mark (or (gnus-summary-article-mark) gnus-unread-mark)) + (inhibit-read-only t) + (default gnus-summary-default-score) + (default-high gnus-summary-default-high-score) + (default-low gnus-summary-default-low-score) + (downloaded + (and + (boundp 'gnus-agent-article-alist) + gnus-agent-article-alist + ;; Optimized for when gnus-summary-highlight-line is + ;; called multiple times for articles in ascending + ;; order (i.e. initial generation of summary buffer). + (progn + (unless (and + (eq gnus-summary-highlight-line-downloaded-alist + gnus-agent-article-alist) + (<= (caar gnus-summary-highlight-line-downloaded-cached) + article)) + (setq gnus-summary-highlight-line-downloaded-alist + gnus-agent-article-alist) + (setq gnus-summary-highlight-line-downloaded-cached + gnus-agent-article-alist)) + (let (n) + (while (and (< (caar gnus-summary-highlight-line-downloaded-cached) + article) + (setq n (cdr gnus-summary-highlight-line-downloaded-cached))) + (setq gnus-summary-highlight-line-downloaded-cached n))) + (and (eq (caar gnus-summary-highlight-line-downloaded-cached) article) + (cdar gnus-summary-highlight-line-downloaded-cached)))))) (let ((face (funcall (gnus-summary-highlight-line-0)))) (unless (eq face (get-text-property beg 'face)) (gnus-put-text-property-excluding-characters-with-faces diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 350c069..396953d 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -1685,7 +1685,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 2642a89..7250d14 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -768,7 +768,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 1234d2f..c84a42c 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 858a4db..141493a 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2567,7 +2567,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 9c79e91..ae97c7e 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 4ff3e70..301086c 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -739,7 +739,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) @@ -910,7 +910,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 4ae7fb9..dca6038 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1357,7 +1357,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 e3021ce..fc3d52c 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 48afccd..4338eb9 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 65b85e7..417d7a4 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, @@ -117,7 +117,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'. @@ -455,7 +455,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 f6a556a..df4e317 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -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 @@ -833,7 +833,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 e0bda9e..d6177cc 100644 --- a/lisp/nnsoup.el +++ b/lisp/nnsoup.el @@ -159,7 +159,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 43cd7f6..08e2bdf 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 @@ -530,7 +530,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 d003251..34dd3fd 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 9598f7d..7414ede 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 @@ -40,7 +40,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