From 51f52cc4d7920e4a8d2a9d682fd71ed3d6a483af Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 15 Jan 2010 00:12:57 +0000 Subject: [PATCH] Fix typos by Juanma Barranquero . --- lisp/gnus-diary.el | 4 ++-- lisp/nndiary.el | 14 +++++++------- lisp/nnml.el | 2 +- lisp/webmail.el | 8 ++++---- 4 files changed, 14 insertions(+), 14 deletions(-) diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el index 9abb387f1..8bd4cfde3 100644 --- a/lisp/gnus-diary.el +++ b/lisp/gnus-diary.el @@ -158,7 +158,7 @@ There are currently two built-in format functions: ;; I just ignore it. ;;;###autoload (defun gnus-user-format-function-d (header) - ;; Returns an aproximative delay string for the next occurence of this + ;; Returns an aproximative delay string for the next occurrence of this ;; message. The delay is given only in the first non zero unit. ;; Code partly stolen from article-make-date-line (let* ((extras (mail-header-extra header)) @@ -195,7 +195,7 @@ There are currently two built-in format functions: ;; I just ignore it. ;;;###autoload (defun gnus-user-format-function-D (header) - ;; Returns a formatted time string for the next occurence of this message. + ;; Returns a formatted time string for the next occurrence of this message. (let* ((extras (mail-header-extra header)) (sched (gnus-diary-header-schedule extras)) (occur (nndiary-next-occurence sched (current-time)))) diff --git a/lisp/nndiary.el b/lisp/nndiary.el index 71c1cd1e1..62a5db6ea 100644 --- a/lisp/nndiary.el +++ b/lisp/nndiary.el @@ -67,7 +67,7 @@ ;; IMHO, nnoo is actually badly designed. A much simpler, and yet more ;; powerful one would be to make *real* functions and variables for a new ;; back end based on another. Lisp is a reflexive language so that's a very -;; easy thing to do: inspect the function's form, replace occurences of +;; easy thing to do: inspect the function's form, replace occurrences of ;; (even in strings) with , and you're done. ;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods: @@ -1322,7 +1322,7 @@ all. This may very well take some time.") (sort res 'time-less-p))) (defun nndiary-last-occurence (sched) - ;; Returns the last occurence of schedule SCHED as an Emacs time struct, or + ;; Returns the last occurrence of schedule SCHED as an Emacs time struct, or ;; nil for permanent schedule or errors. (let ((minute (nndiary-max (nth 0 sched))) (hour (nndiary-max (nth 1 sched))) @@ -1393,7 +1393,7 @@ all. This may very well take some time.") (encode-time 0 minute hour (car days) month year time-zone))) ))))) - ;; There's an upper limit, but we didn't find any last occurence. + ;; There's an upper limit, but we didn't find any last occurrence. ;; This means that the schedule is undecidable. This can happen if ;; you happen to say something like "each Feb 31 until 2038". (progn @@ -1402,8 +1402,8 @@ all. This may very well take some time.") )))) (defun nndiary-next-occurence (sched now) - ;; Returns the next occurence of schedule SCHED, starting from time NOW. - ;; If there's no next occurence, returns the last one (if any) which is then + ;; Returns the next occurrence of schedule SCHED, starting from time NOW. + ;; If there's no next occurrence, returns the last one (if any) which is then ;; in the past. (let* ((today (decode-time now)) (this-minute (nth 1 today)) @@ -1557,12 +1557,12 @@ all. This may very well take some time.") ;; The article should be re-considered as unread if there's a reminder ;; between the group timestamp and the current time. (when (and sched (setq sched (nndiary-next-occurence sched now))) - (let ((reminders ;; add the next occurence itself at the end. + (let ((reminders ;; add the next occurrence itself at the end. (append (nndiary-compute-reminders sched) (list sched)))) (while (and reminders (time-less-p (car reminders) timestamp)) (pop reminders)) ;; The reminders might be empty if the last date is in the past, - ;; or we've got at least the next occurence itself left. All past + ;; or we've got at least the next occurrence itself left. All past ;; dates are renewed. (or (not reminders) (time-less-p (car reminders) now))) diff --git a/lisp/nnml.el b/lisp/nnml.el index cfeb36a0e..fb5fb4411 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -1200,7 +1200,7 @@ Use the nov database for the current group if available." ;; #### already belongs to a range, whereas the corresponding ;; #### article doesn't exist (for example, if you delete an ;; #### article). For that reason, it is important to update - ;; #### the ranges (meaning remove inexistant articles) before + ;; #### the ranges (meaning remove inexistent articles) before ;; #### doing anything on them. ;; 2 a/ read articles: (let ((read (gnus-info-read info))) diff --git a/lisp/webmail.el b/lisp/webmail.el index 599edc6b5..106445d05 100644 --- a/lisp/webmail.el +++ b/lisp/webmail.el @@ -529,7 +529,7 @@ (widen))) (delete-region p (point-max)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -658,7 +658,7 @@ (setq p (point)))) (delete-region p (point-max)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -835,7 +835,7 @@ (setq mime (webmail-netaddress-single-part)) (widen)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -962,7 +962,7 @@ (setq mime (webmail-netaddress-single-part)) (widen)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") -- 2.25.1