From: Paul Eggert Date: Mon, 19 Dec 2011 22:42:41 +0000 (+0000) Subject: Spelling fixes. X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=76ec4b823ceb4bcb6003ea3670815362f5062bfb Spelling fixes. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81447a68e..287a76ebe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2011-12-19 Paul Eggert + + * gnus-art.el (gnus-split-methods): + * gnus-msg.el (gnus-configure-posting-styles): + * gnus-spec.el (gnus-parse-simple-format): + * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p): + * message.el (message-do-actions): Spelling fix. + 2011-12-15 Juri Linkov * mm-decode.el (mm-inline-media-tests): Add missing diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 555c715bc..ea0710bf0 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -669,7 +669,7 @@ non-nil. If the match is a string, it is used as a regexp match on the article. If the match is a symbol, that symbol will be funcalled from the buffer of the article to be saved with the newsgroup as the -parameter. If it is a list, it will be evaled in the same buffer. +parameter. If it is a list, it will be evalled in the same buffer. If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will be diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 58373525f..6ff102338 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1784,7 +1784,7 @@ this is a reply." (and header (string-match (nth 2 match) header))))))) (t - ;; This is a form to be evaled. + ;; This is a form to be evalled. (eval match))))) ;; We have a match, so we set the variables. (dolist (attribute style) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 2345c4fc1..4c5715c67 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -52,7 +52,7 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway." (defvar gnus-group-indentation "") ;; Format specs. The chunks below are the machine-generated forms -;; that are to be evaled as the result of the default format strings. +;; that are to be evalled as the result of the default format strings. ;; We write them in here to get them byte-compiled. That way the ;; default actions will be quite fast, while still retaining the full ;; flexibility of the user-defined format specs. @@ -690,7 +690,7 @@ are supported for %s." (not (and (featurep 'xemacs) gnus-use-correct-string-widths))) (insert (number-to-string pad-width))) - ;; Create the form to be evaled. + ;; Create the form to be evalled. (if (or max-width cut-width ignore-value (and (featurep 'xemacs) gnus-use-correct-string-widths)) diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el index ecd5b3b52..f0009830b 100644 --- a/lisp/gnus-win.el +++ b/lisp/gnus-win.el @@ -242,7 +242,7 @@ See the Gnus manual for an explanation of the syntax used.") (let* ((current-window (or (get-buffer-window (current-buffer)) (selected-window))) (window (or window current-window))) (select-window window) - ;; The SPLIT might be something that is to be evaled to + ;; The SPLIT might be something that is to be evalled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) (symbolp (car split)) (fboundp (car split))) @@ -447,7 +447,7 @@ should have point." (when (consp (car split)) (push 1.0 split) (push 'vertical split)) - ;; The SPLIT might be something that is to be evaled to + ;; The SPLIT might be something that is to be evalled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) (symbolp (car split)) (fboundp (car split))) diff --git a/lisp/message.el b/lisp/message.el index 2b81d403e..ea9c9d144 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4453,7 +4453,7 @@ This function could be useful in `message-setup-hook'." ;; A simple function. ((functionp action) (funcall action)) - ;; Something to be evaled. + ;; Something to be evalled. (t (eval action))))))