Changes committed gnus/lisp (gnus-diary.el nndiary.el nnml.el webmail.el)

Modified: gnus-diary.el nndiary.el nnml.el webmail.el

Fix typos by Juanma Barranquero <[email protected]>.


Index: gnus-diary.el
diff -u gnus/lisp/gnus-diary.el:7.24 gnus/lisp/gnus-diary.el:7.25
--- gnus-diary.el:7.24	Wed Jan 13 11:59:43 2010
+++ gnus-diary.el	Fri Jan 15 01:12:57 2010
@@ -158,7 +158,7 @@
 ;; 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 @@
 ;; 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))))
Index: nndiary.el
diff -u gnus/lisp/nndiary.el:7.24 gnus/lisp/nndiary.el:7.25
--- nndiary.el:7.24	Wed Jan 13 11:59:44 2010
+++ nndiary.el	Fri Jan 15 01:12:57 2010
@@ -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
 ;;   <nnfrom> (even in strings) with <nnto>, and you're done.
 
 ;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods:
@@ -1322,7 +1322,7 @@
     (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 @@
 			    (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 @@
 	))))
 
 (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 @@
 	;; 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)))
Index: nnml.el
diff -u gnus/lisp/nnml.el:7.36 gnus/lisp/nnml.el:7.37
--- nnml.el:7.36	Wed Jan 13 11:59:44 2010
+++ nnml.el	Fri Jan 15 01:12:57 2010
@@ -1200,7 +1200,7 @@
 		;; #### 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)))
Index: webmail.el
diff -u gnus/lisp/webmail.el:7.14 gnus/lisp/webmail.el:7.15
--- webmail.el:7.14	Wed Jan 13 11:59:44 2010
+++ webmail.el	Fri Jan 15 01:12:57 2010
@@ -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")