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

Re: ViewCVS



>>>>> In [emacs-w3m : No.02726]
>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:

山岡> http://cvs.namazu.org/emacs-w3m/ のページの下端にある
山岡> Download tarball のボタンを押すと、

山岡> emacs-w3m.tar.gz?tarball=1

山岡> というファイルができます。報告だけですみませんが。

ローカルシステムにセーブするファイル名を、以下のように処理すれば
良いでしょうか?

(let ((url "http://cvs.namazu.org/emacs-w3m/emacs-w3m.tar.gz?tarball=1"))
  (if (and (string-match w3m-url-components-regexp url)
	   (match-beginning 6))
      ;; Strip the query part.
      (substring url 0 (match-beginning 6))
    url))
 => "http://cvs.namazu.org/emacs-w3m/emacs-w3m.tar.gz"

;; こういうものを w3m.el のどこに組み入れるかで、少々悩みそうで
;; すが。:-p
-- 
Katsumi Yamaoka <yamaoka@jpl.org>