[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.16 emacs/lisp/gnus/gnus-util.el:1.17
*** emacs/lisp/gnus/gnus-util.el:1.16   Sun Nov 25 10:17:24 2001
--- emacs/lisp/gnus/gnus-util.el        Fri Oct 18 04:41:46 2002
***************
*** 804,810 ****
  ;;;
  
  (defun gnus-parse-netrc (file)
!   "Parse FILE and return an list of all entries in the file."
    (when (file-exists-p file)
      (with-temp-buffer
        (let ((tokens '("machine" "default" "login"
--- 804,810 ----
  ;;;
  
  (defun gnus-parse-netrc (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,990 ****
    (property value start end properties &optional object)
    "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."
    (let (point)
!     (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)))
--- 984,990 ----
    (property value start end properties &optional object)
    "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."
    (let (point)
!     (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,1001 ****
    (property value start end properties &optional object)
    "Like `remove-text-properties', only applied on where PROPERTY is VALUE."
    (let (point)
!     (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)))
--- 995,1001 ----
    (property value start end properties &optional object)
    "Like `remove-text-properties', only applied on where PROPERTY is VALUE."
    (let (point)
!     (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)))