1 |
;;; mm-view.el --- functions for viewing MIME objects |
;;; mm-view.el --- functions for viewing MIME objects |
2 |
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 01, 2004 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
197 |
|
|
198 |
(defun mm-insert-inline (handle text) |
(defun mm-insert-inline (handle text) |
199 |
"Insert TEXT inline from HANDLE." |
"Insert TEXT inline from HANDLE." |
200 |
(let ((b (point))) |
(let ((b (point)) |
201 |
|
(inhibit-read-only t)) |
202 |
(insert text) |
(insert text) |
203 |
(mm-handle-set-undisplayer |
(mm-handle-set-undisplayer |
204 |
handle |
handle |