Commit 2250b351 authored by David Edmondson's avatar David Edmondson Committed by Katsumi Yamaoka
Browse files

lisp/gnus/shr.el: Support <img src="data:...">

parent f4ad7ea1
2013-04-16 David Edmondson <dme@dme.org>
Support <img src="data:...">.
* shr.el (shr-image-from-data): New function.
(shr-tag-img) Use it.
2013-04-14 Andrew Cohen <cohen@bu.edu>
* nnir.el (nnir-request-set-mark): Make sure we are in the right
......
......@@ -593,6 +593,17 @@ size, and full-buffer size."
(put-text-property start (point) type value))))))))))
(kill-buffer image-buffer)))
(defun shr-image-from-data (data)
"Return an image from the data: URI content DATA."
(when (string-match
"\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)"
data)
(let ((param (match-string 4 data))
(payload (url-unhex-string (match-string 5 data))))
(when (string-match "^.*\\(;[ \t]*base64\\)$" param)
(setq payload (base64-decode-string payload)))
payload)))
(defun shr-put-image (data alt &optional flags)
"Put image DATA with a string ALT. Return image."
(if (display-graphic-p)
......@@ -982,6 +993,12 @@ ones, in case fg and bg are nil."
(member (cdr (assq :width cont)) '("0" "1")))
;; Ignore zero-sized or single-pixel images.
)
((and (not shr-inhibit-images)
(string-match "\\`data:" url))
(let ((image (shr-image-from-data (substring url (match-end 0)))))
(if image
(funcall shr-put-image-function image alt)
(insert alt))))
((and (not shr-inhibit-images)
(string-match "\\`cid:" url))
(let ((url (substring url (match-end 0)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment