Re: Reload + form

[Hideyuki SHIRAI ( 白井秀行 ) <shirai@xxxxxxxxxxxxxxxxxxx>]

From:  Hideyuki SHIRAI (白井秀行) <shirai@rdmg.mgcs.mei.co.jp> 曰く
Subject: [emacs-w3m:01982] Re: Reload + form
Message-ID: <20011030.192335.09118530.shirai@rdmg.mgcs.mei.co.jp>
Date: Tue, 30 Oct 2001 19:23:35 +0900 (JST)

土> それならば、以下の式で消去できそうだと思うのですけれど…。

土>     (w3m-history-remove-properties '(:forms) w3m-current-url)

白井> おぉ、こんな関数が。。。これから試してみます。

これで↓思ったことが簡単に出来るようになりました。示唆してくださっ
た土屋さんと素晴らしい history を書いて下さった山岡さんに大感謝。

(defun w3m-reload-this-page (&optional arg)
  "Reload current page without cache."
  (interactive "P")
  (let ((post-data (w3m-history-plist-get :post-data nil nil t))
	(form-data (w3m-history-plist-get :forms nil nil t))
	(referer (w3m-history-plist-get :referer nil nil t)))
    (when arg
      (setq w3m-current-image-status (not w3m-current-image-status)))
    (if (and post-data (y-or-n-p "Repost form data? "))
	(w3m-goto-url w3m-current-url 'reload nil post-data referer)
      (when (and (or form-data w3m-current-forms)
		 (not (y-or-n-p "Reuse form data? ")))
	(w3m-history-remove-properties '(:forms) nil nil t)
	(setq w3m-current-forms nil))
      (w3m-goto-url w3m-current-url 'reload nil nil referer))))

# というわけで、これから、証拠隠滅作業に入ります。^^;;;

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)