diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-16 00:04:25 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-16 00:04:25 +0000 |
| commit | 0073e0313a029f5bba231a147f0d4f1bb029dd43 (patch) | |
| tree | 2d6b35eaf1cca21af3ee45411e7a00c65e0ef113 /lisp/gnus/gnus-html.el | |
| parent | 8b6f657390dab08e53e2bca366b26d0b57cd1285 (diff) | |
| download | emacs-0073e0313a029f5bba231a147f0d4f1bb029dd43.tar.gz | |
Allow gnus-html to register image displayer callbacks.
gnus-html.el (gnus-html-wash-images): Register a displayer.
gnus-util.el (gnus-find-text-property-region): Return markers.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 8274e20c8c1..dc2400c0246 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -189,19 +189,26 @@ CHARS is a regexp-like character alternative (e.g., \"[)$]\")." (let* ((handle (mm-get-content-id (setq url (match-string 1 url)))) (image (when handle - (gnus-create-image (mm-with-part handle (buffer-string)) - nil t)))) + (gnus-create-image + (mm-with-part handle (buffer-string)) + nil t)))) (when image (let ((string (buffer-substring start end))) (delete-region start end) - (gnus-put-image (gnus-rescale-image image (gnus-html-maximum-image-size)) + (gnus-put-image (gnus-rescale-image + image (gnus-html-maximum-image-size)) (gnus-string-or string "*") 'cid) (gnus-add-image 'cid image)))) ;; Normal, external URL. - (let ((alt-text (when (string-match "\\(alt\\|title\\)=\"\\([^\"]+\\)" - parameters) - (xml-substitute-special (match-string 2 parameters))))) + (let ((alt-text + (when (string-match "\\(alt\\|title\\)=\"\\([^\"]+\\)" + parameters) + (xml-substitute-special (match-string 2 parameters))))) (gnus-put-text-property start end 'image-url url) + (gnus-put-text-property + start end 'image-displayer + (lambda (url start end) + (gnus-html-display-image url start end))) (if (gnus-html-image-url-blocked-p url (if (buffer-live-p gnus-summary-buffer) |