From 69e0f1c3c5081bb3b592ff98744ce7271a0e2351 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 21 Oct 2002 09:11:12 +0000 Subject: [PATCH] (gnus-parse-netrc): Fix typo. --- lisp/gnus/gnus-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 69bc453bf62..cd3fb4f1abf 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -804,7 +804,7 @@ ARG is passed to the first function." ;;; (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 @@ Entries without port tokens default to DEFAULTPORT." (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 @@ Entries without port tokens default to DEFAULTPORT." (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))) -- 2.39.2