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



Mew のほうで、<img src="data:xxxx"> で埋め込まれている画像を表

mew-w3m-safe-url-regexp "\\`cid:" となっているのを、
mew-w3m-safe-url-regexp "\\`\\(cid\\|data\\):" とするだけかな?

## https://groups.google.com/d/msgid/mew-ja/467DC098-3A95-40A5-960A-183492B7D717%40beaupix.com

が、上記のようにすると通常の <img src="http://xxxx"> も表示され


→ w3m-fontify() で 'w3m-safe-url-regexp 全面埋め込み
→ point-max() で (insert "\n")
→ w3m-toggle-inline-images()

w3m-toggle-inline-images() は (insert "\n") の後ろで、

(setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))

していて、そこには w3m-safe-url-regexp の property が付いていな

なので、上記のチェックを (point-min) でやるように

(setq safe-regexp (get-text-property beg 'w3m-safe-url-regexp))

と変更すると期待通りに動きました (なぜ、cid だけだとうまく動作

また、beg で絶対大丈夫か?は、今一わかっていません。

## 最近、ごぶさたなので、なにか大嘘をやっているかも

github の使い方相変わらずわかっていないので、mew-w3m.el も含めて
パッチ送ります m(_ _)m
diff --git a/mew-w3m.el b/mew-w3m.el
index 5384ea73..8822c0bd 100644
--- a/mew-w3m.el
+++ b/mew-w3m.el
@@ -111,7 +111,17 @@ Text/Html contents."
 		 (const :tag "Use Cite Mark \"> \"" "&gt;&nbsp;")
 		 (string :tag "Use Other Mark")))
-(defconst mew-w3m-safe-url-regexp "\\`cid:")
+(defcustom mew-w3m-safe-url-regexp "\\`\\(cid\\|data\\):"
+  "Regexp that matches safe url names.
+Some HTML mails might have the trick of spammers using <img> tags.  It
+is likely to be intended to verify whether you have read the mail.
+You can prevent your personal informations from leaking by setting
+this to the regexp which matches the safe url names.  The value of the
+variable `w3m-safe-url-regexp' will be bound with this value.  You may
+set this value to nil if you consider all the urls to be safe."
+  :group 'mime-w3m
+  :type '(choice (regexp :format "%t: %v")
+		 (const :tag "All URLs are safe" nil)))
 ;; Avoid bytecompile errors and warnings.
 (defvar mew-use-text/html)
diff --git a/w3m.el b/w3m.el
index 1b068f33..c513a7ba 100644
--- a/w3m.el
+++ b/w3m.el
@@ -4050,7 +4050,7 @@ variable is non-nil (default=t)."
       (setq beg (point-min)
 	    end (point-max)))
     (unless status
-      (when (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))
+      (when (setq safe-regexp (get-text-property beg 'w3m-safe-url-regexp))
 	;; Scan the buffer for searching for an insecure image url.
 	(setq pos beg)