Mercurial > emacs
changeset 47938:65eaf21a0a44
(gnus-parse-netrc): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Oct 2002 08:41:46 +0000 |
| parents | a2299d46da2a |
| children | 5f47d61ffbdc |
| files | lisp/gnus/gnus-util.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el Fri Oct 18 08:38:17 2002 +0000 +++ b/lisp/gnus/gnus-util.el Fri Oct 18 08:41:46 2002 +0000 @@ -804,7 +804,7 @@ ;;; (defun gnus-parse-netrc (file) - "Parse FILE and return an list of all entries in the file." + "Parse FILE and return a list of all entries in the file." (when (file-exists-p file) (with-temp-buffer (let ((tokens '("machine" "default" "login" @@ -984,7 +984,7 @@ (property value start end properties &optional object) "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE." (let (point) - (while (and start + (while (and start (setq point (text-property-not-all start end property value))) (gnus-add-text-properties start point properties object) (setq start (text-property-any point end property value))) @@ -995,7 +995,7 @@ (property value start end properties &optional object) "Like `remove-text-properties', only applied on where PROPERTY is VALUE." (let (point) - (while (and start + (while (and start (setq point (text-property-not-all start end property value))) (remove-text-properties start point properties object) (setq start (text-property-any point end property value)))