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

Re: w3m-safe-url-regexp



>> On Fri, 01 Feb 2002 15:24:07 +0900
>> $B!V;3!W(B== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

$B;3(B> Dirk Meyer $B$5$s$O(B http: $B$G$"$l2?$G$"$l!"$H$b$+$/I=<($7$?$$$N$G$9$h(B
$B;3(B> $B$M!#(B

$B?=$7Lu$J$$!$LdBj$r4*0c$$$7$F$$$^$7$?!%(B

>> On Fri, 01 Feb 2002 14:59:47 +0900
>> $B!V;3!W(B== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

$B;3(B> $B$H$j$"$($:=5Kv$K$G$-$k$b$C$H$b4JC1$JBP=h$H$7$F(B
$B;3(B> mew-w3m-safe-url-regexp $B$HF1MM$N!"$?$@$7(B defconst $B$G$O$J$/$F(B
$B;3(B> defcustom $B$GDj5A$7$?%*%W%7%g%s$r(B mime-w3m.el $B$H(B Gnus $B$K@_$1$h$&$H(B
$B;3(B> $B;W$$$^$9!#(B

$BN;2r$7$^$7$?!%(B

;; $B$3$l!$$o$6$H%O!<%I%3!<%I$K$7$F$"$C$?$N$G$9$1$I!D!%$^$"!$(BGnus $B$NY]$K(B
;; $B=>$&$?$a$G$9$+$i!$$7$g$&$,$J$$$G$9$M!%(B

$B$=$N>l9g$G$b!$(B

    (defcustom mime-w3m-safe-url-regexp "\\`cid:"
      "*Regular expression matches safe contents.
    Nil means that all contents are safe."
      :group 'mime-w3m
      :type 'string)

$B$H=q$1$PNI$$$@$1$@$H;W$&$7!$!V%G%U%)%k%H$O2?$G$b0BA4!W$H$$$&$N$,D>46E*(B
$B$G$O$J$$$H$b;W$($J$$$N$G!$(B

$B;3(B> $B$H$3$m$,4X?t(B w3m-retrieve $B$G$N07$$$O(B nil $B$,!V2?$G$b0BA4$@$h!W$H$$(B
$B;3(B> $B$&O@M}$K$J$C$F$$$^$;$s$+(B?

$B$3$NO@M}$,LdBj$@!$$H$$$&$N$O$^$@Gl9g$G$b(B w3m-display-inline-images $B$NCM$O(B t $B$K$J$C(B
$B;3(B> $B$F!"%H%0%kF0:n$,$*$+$7$/$J$C$F$7$^$C$F$$$^$9!#(B

$B$=$&$G$9$M!$$G$b!$$3$l(B Gnus $B$K8GM-$NLdBj$G$O$J$$$h$&$J5$$,$7$F$-$^$7$?!%(B
$BIaDL$N(B emacs-w3m $B$G1\Mw$7$F$$$k$H$-$G$b!$0lIt2hA|$N(B retrieve $B$K0l;~E*(B
$B$K<:GT$7$?>l9g$K$O!$3:Ev$9$k2hA|$N%H%0%k$KF1MM$NLdBj$,@8$8$^$9!%(B

$B0J2<$N$h$&$JJQ99$r9M$($F$_$?$N$G$9$,!$$3$N2hA|<~$j$O$-$A$s$HM}2r$7$F$$(B
$B$J$$$N$G!$$^$@(B commit $B$O$7$F$^$;$s!%(B
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.562
diff -u -u -r1.562 w3m.el
--- w3m.el	2002/02/01 01:25:43	1.562
+++ w3m.el	2002/02/01 07:12:41
@@ -1928,6 +1928,7 @@
 			   (and url (string= url iurl)))
 		       (not (eq (get-text-property beg 'w3m-image-status)
 				'on)))
+	      (w3m-add-text-properties beg end '(w3m-image-status on))
 	      (if (get-text-property point 'w3m-image-redundant)
 		  (progn
 		    ;; Insert dummy string instead of redundant image.
@@ -1953,18 +1954,19 @@
 			    (image (let ((w3m-current-buffer (current-buffer)))
 				     (w3m-create-image
 				      iurl no-cache w3m-current-url handler)))
-			  (when (and image
-				     (buffer-live-p (marker-buffer start)))
+			  (when (buffer-live-p (marker-buffer start))
 			    (with-current-buffer (marker-buffer start)
-			      (when (equal url w3m-current-url)
+			      (if image
+				  (when (equal url w3m-current-url)
+				    (let (buffer-read-only)
+				      (w3m-insert-image start end image))
+				    ;; Redisplay
+				    (when w3m-force-redisplay
+				      (sit-for 0)))
 				(let (buffer-read-only)
-				  (w3m-insert-image start end image))
-				;; Redisplay
-				(when w3m-force-redisplay
-				  (sit-for 0))))
+				  (w3m-add-text-properties start end '(w3m-image-status off)))))
 			    (set-marker start nil)
-			    (set-marker end nil))))))))
-	      (w3m-add-text-properties beg end '(w3m-image-status on)))))
+			    (set-marker end nil)))))))))))
       ;; Remove.
       (save-excursion
 	(goto-char (point-min))
-- 
$BEZ20(B $B2mL-(B  ( TSUCHIYA Masatoshi )