[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: emacs-wget 0.3.1



From: Masayuki Ataka <ataka@milk.freemail.ne.jp>
Subject: [emacs-w3m:04172] Re: emacs-wget 0.3.1
Date: Mon, 28 Oct 2002 22:42:25 +0900 (JST)

> > 以下の環境で emacs-wget 0.3.1 を使用していますが、wget.exe の引数の順
> > 番がおかしいらしく、file は download できるのですが "failed" と言われ
> > てしまいます。
> > 
> 添付のパッチを試して頂けますか。

> > ちょっと検索したところ、小関さんの日記(※)で同様(?)の報告を見付けました。
> > # 残念ながら対処方法は見あたらなかったのですが...
> > 
> > (※)http://cgi.NetLaputa.ne.jp/~kose/diary/?200207b#200207162
> 
おや、小関さんの書かれている cygwin/wget-1.8.2 の
コマンド引数の順番の問題があるとしたら、上のパッチではダメですね。

前のパッチではなく、こちらのパッチを試して下さい。

                                    ----Input with T-Code!
           http://isweb22.infoseek.co.jp/computer/pop-club
     Masayuki Ataka / 安宅 正之 (ataka@milk.freemail.ne.jp)
Index: ../prog/wget/wget.el
===================================================================
RCS file: /home/m1378502/repository/wget/wget.el,v
retrieving revision 1.37
diff -c -r1.37 wget.el
*** ../prog/wget/wget.el	26 Oct 2002 08:59:19 -0000	1.37
--- ../prog/wget/wget.el	28 Oct 2002 14:16:23 -0000
***************
*** 388,398 ****
    "Wget URI asynchronously.
  Optional argument OPTIONS is a list of options to pass wget
  process."
!   (let* ((args (append  (list uri) options))
  	 (buf  wget-process-buffer)
! 	 (proc (if (and wget-env-command
! 			(not (string= (getenv "LANG") "C")))
! 		   (apply 'start-process "wget" buf wget-env-command "LANG=C" wget-command args)
  		 (apply 'start-process "wget" buf wget-command args)))
  	 (win  (selected-window)))
      (setq wget-process-percent-alist
--- 388,400 ----
    "Wget URI asynchronously.
  Optional argument OPTIONS is a list of options to pass wget
  process."
!   (let* ((args `(,@options ,uri))
  	 (buf  wget-process-buffer)
! 	 (lang (getenv "LANG"))
! 	 (proc (if (and wget-env-command lang
! 			(not (string= lang "C")))
! 		   (apply 'start-process "wget" buf wget-env-command 
! 			  `("LANG=C" ,wget-command ,@args))
  		 (apply 'start-process "wget" buf wget-command args)))
  	 (win  (selected-window)))
      (setq wget-process-percent-alist
***************
*** 617,626 ****
    "Return cons cell of (URI . PROCESS) if PROC is `wget-command' process.
  If not, return nil."
    (let ((command (process-command proc)))
!     (if (string= wget-env-command (car command))
! 	(cons (car (cdr (cdr (cdr command)))) proc)
!       (if (string= wget-command (car command))
! 	  (cons (car (cdr command)) proc)))))
  
  (defun wget-process-file-name (proc)
    "Return file or directory name of URI under wget process PROC."
--- 619,627 ----
    "Return cons cell of (URI . PROCESS) if PROC is `wget-command' process.
  If not, return nil."
    (let ((command (process-command proc)))
!     (when (or (string= wget-env-command (car command))
! 	      (string= wget-command (car command)))
!       (cons (nth (1- (length command)) command) proc))))
  
  (defun wget-process-file-name (proc)
    "Return file or directory name of URI under wget process PROC."