mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(gnus-parse-netrc): Fix typo.

Browse Source
This commit is contained in:
Juanma Barranquero 2002-10-18 08:41:46 +00:00
parent 711a4be3eb
commit 3d8c35d3b0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/gnus-util.el
View File

@ -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)))