summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2004-05-19 01:09:14 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2004-05-19 01:09:14 +0000
commit3c8c8c277e0edc58d4d22d53f3a83e2dc770b0bb (patch)
treecf113917076a79126faf0dd36f0f48c33b08e19f
parent933cd61ed486b4900d8771c958f00cffad2f6c48 (diff)
downloademacs-3c8c8c277e0edc58d4d22d53f3a83e2dc770b0bb.tar.gz
emacs-3c8c8c277e0edc58d4d22d53f3a83e2dc770b0bb.tar.bz2
emacs-3c8c8c277e0edc58d4d22d53f3a83e2dc770b0bb.zip
(mm-insert-inline): Make it work in read-only buffer.
-rw-r--r--lisp/gnus/mm-view.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index f7dfdb60f02..69cbd3d8a1d 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -1,5 +1,5 @@
;;; mm-view.el --- functions for viewing MIME objects
-;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 01, 2004 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
@@ -197,7 +197,8 @@
(defun mm-insert-inline (handle text)
"Insert TEXT inline from HANDLE."
- (let ((b (point)))
+ (let ((b (point))
+ (inhibit-read-only t))
(insert text)
(mm-handle-set-undisplayer
handle