/[emacs]/emacs/lisp/url/url-http.el
ViewVC logotype

Diff of /emacs/lisp/url/url-http.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by rms, Mon Feb 14 09:58:33 2005 UTC revision 1.11 by lektu, Mon May 16 10:07:31 2005 UTC
# Line 827  the end of the document." Line 827  the end of the document."
827                                                   'text-cursor                                                   'text-cursor
828                                                 'cursor)                                                 'cursor)
829                                         'invisible t))                                         'invisible t))
830              (setq url-http-chunked-length (string-to-int (buffer-substring              (setq url-http-chunked-length (string-to-number (buffer-substring
831                                                            (match-beginning 1)                                                               (match-beginning 1)
832                                                            (match-end 1))                                                               (match-end 1))
833                                                           16)                                                              16)
834                    url-http-chunked-counter (1+ url-http-chunked-counter)                    url-http-chunked-counter (1+ url-http-chunked-counter)
835                    url-http-chunked-start (set-marker                    url-http-chunked-start (set-marker
836                                            (or url-http-chunked-start                                            (or url-http-chunked-start
# Line 904  the end of the document." Line 904  the end of the document."
904                      url-http-content-type (mail-fetch-field "content-type"))                      url-http-content-type (mail-fetch-field "content-type"))
905                (if (mail-fetch-field "content-length")                (if (mail-fetch-field "content-length")
906                    (setq url-http-content-length                    (setq url-http-content-length
907                          (string-to-int (mail-fetch-field "content-length"))))                          (string-to-number (mail-fetch-field "content-length"))))
908                (widen)))                (widen)))
909            (if url-http-transfer-encoding            (if url-http-transfer-encoding
910                (setq url-http-transfer-encoding                (setq url-http-transfer-encoding

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26