[Emacs-diffs] Changes to emacs/lisp/url/url-file.el

[Stefan Monnier]

Index: emacs/lisp/url/url-file.el
diff -c emacs/lisp/url/url-file.el:1.6 emacs/lisp/url/url-file.el:1.7
*** emacs/lisp/url/url-file.el:1.6      Sun Oct 10 20:36:59 2004
--- emacs/lisp/url/url-file.el  Mon Jun 13 14:32:42 2005
***************
*** 73,80 ****
            func args
            args efs))
    (let ((size (nth 7 (file-attributes name))))
!     (save-excursion
!       (set-buffer buff)
        (goto-char (point-max))
        (if (/= -1 size)
          (insert (format "Content-length: %d\n" size)))
--- 73,79 ----
            func args
            args efs))
    (let ((size (nth 7 (file-attributes name))))
!     (with-current-buffer buff
        (goto-char (point-max))
        (if (/= -1 size)
          (insert (format "Content-length: %d\n" size)))
***************
*** 177,185 ****
      (if (file-directory-p filename)
        ;; A directory is done the same whether we are local or remote
        (url-find-file-dired filename)
!       (save-excursion
!       (setq buffer (generate-new-buffer " *url-file*"))
!       (set-buffer buffer)
        (mm-disable-multibyte)
        (setq url-current-object url)
        (insert "Content-type: " (or content-type "application/octet-stream") 
"\n")
--- 176,183 ----
      (if (file-directory-p filename)
        ;; A directory is done the same whether we are local or remote
        (url-find-file-dired filename)
!       (with-current-buffer
!         (setq buffer (generate-new-buffer " *url-file*"))
        (mm-disable-multibyte)
        (setq url-current-object url)
        (insert "Content-type: " (or content-type "application/octet-stream") 
"\n")