Re: no-cache

[Mito <mit@xxxxxxxxxxxxxxx>]

※ "土" こと tsuchiya@pine.kuee.kyoto-u.ac.jp さんの
   『[emacs-w3m:01135] Re: no-cache』より

土> なんかあんまりな変数名なので、せめて

土>     (defcustom w3m-broken-proxy-cache nil
土>       "*If non nil, cache on proxy server is not used.
土>     This feature should be enabled only if the caching configuration of
土>     your proxy server is broken.  In order to use this feature, you must
土>     apply the patch posted in [emacs-w3m:01119]."
土>       :group 'w3m
土>       :type 'boolean)

土> くらいにしておきませんか?

してみました。

土> パッチを見てみましたが、w3m-halfdump-command-common-arguments を修正す
土> る必要はなく、w3m-command-arguments だけで十分なはずだと思うのですが、
土> 違いますか?

ご指摘のとおり、必要ありませんでした。

土> というわけで、申し訳ないんですけど、パッチを作り直していただけないでしょ
土> うか。

添削ありがとうございました。添付のようなかんじでどうでしょう？
---
6/11 09:52頃
NECソフトウェア新潟 水戸

Index: w3m.el
===================================================================
RCS file: c:/mit/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1.1.8
diff -b -u -b -r1.1.1.8 w3m.el
--- w3m.el	11 Jun 2001 00:40:11 -0000	1.1.1.8
+++ w3m.el	11 Jun 2001 00:49:23 -0000
@@ -262,6 +262,13 @@
   "A small icon image for the url about://emacs-w3m.gif.  It is currently
 encoded in the optimized animated gif format and base64.")
 
+(defcustom w3m-broken-proxy-cache nil
+  "*If non nil, cache on proxy server is not used.
+This feature should be enabled only if the caching configuration of
+your proxy server is broken.  In order to use this feature, you must
+apply the patch posted in [emacs-w3m:01119]."
+  :group 'w3m
+  :type 'boolean)
 
 ;; Generic functions:
 (defun w3m-url-to-file-name (url)
@@ -798,7 +805,7 @@
     "Regexp used in parsing to detect string."))
 
 (defconst w3m-dump-head-source-command-arguments
-  (if (eq w3m-type 'w3mmee) "-dump=extra,head,source" "-dump_extra")
+  (if (eq w3m-type 'w3mmee) '("-dump=extra,head,source") '("-dump_extra"))
   "Arguments for 'dump_extra' execution of w3m.")
 
 (defvar w3m-halfdump-command nil
@@ -2087,13 +2094,18 @@
   (w3m-with-work-buffer
     (delete-region (point-min) (point-max))
     (set-buffer-multibyte nil)
-    (let ((type
+    (let (type
+          (w3m-command-arguments w3m-command-arguments))
+      (when (and no-cache w3m-broken-proxy-cache)
+        (set w3m-command-arguments
+             (append w3m-command-arguments '("-o" "no_cache=1"))))
+      (setq type
 	   (or (unless no-cache
 		 (and (w3m-cache-request-contents url)
 		      (w3m-content-type url)))
 	       (car (if (memq w3m-type '(w3m-mnc w3mmee))
 			(w3m-w3m-dump-head-source url)
-		      (w3m-w3m-dump-source url))))))
+		      (w3m-w3m-dump-source url)))))
       (when type
 	(or no-decode
 	    (w3m-decode-encoded-contents (w3m-content-encoding url))