[Date Prev][Date Next][Thread Prev][Thread Next][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 )