From 3d8c35d3b0c9c1302d77ed5abbed271360c6eedc Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 18 Oct 2002 08:41:46 +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 329d81a2a33..13bed1d99ed 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.11.4.GIT