diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-30 23:35:19 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-30 23:35:19 +0000 |
| commit | a3e01263b117b9f82b4c8d1e2e22f40b5112a749 (patch) | |
| tree | 022a0d2696dbc58bec324144af830f8bada565cd | |
| parent | 929989ffacedcc454c805374a02522033889a886 (diff) | |
| download | emacs-a3e01263b117b9f82b4c8d1e2e22f40b5112a749.tar.gz emacs-a3e01263b117b9f82b4c8d1e2e22f40b5112a749.tar.bz2 emacs-a3e01263b117b9f82b4c8d1e2e22f40b5112a749.zip | |
Use insert-image instead of put-image when putting images into a buffer; This makes all the Gnus image-inserting functions work, I think; by Lars Magne Ingebrigtsen <larsi@gnus.org>.
| -rw-r--r-- | lisp/gnus/gnus-ems.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-html.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el index b7dc4874f6d..ab9782ab36c 100644 --- a/lisp/gnus/gnus-ems.el +++ b/lisp/gnus/gnus-ems.el @@ -278,7 +278,7 @@ (let ((point (or point (point)))) (save-excursion (goto-char point) - (put-image glyph point) + (insert-image glyph (or string " ")) (put-text-property point (point) 'gnus-image-category category) (unless string (put-text-property (1- (point)) (point) diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 9c9908e0693..7bfb3cd785d 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -157,7 +157,7 @@ (set-buffer buffer) (let ((buffer-read-only nil)) (when (gnus-html-put-image file (cadr spec)) - (delete-region (cadr spec) (caddr spec)))))) + (delete-region (1+ (cadr spec)) (caddr spec)))))) (when images (gnus-html-schedule-image-fetching buffer images))))) |