From 5341a63925114efce47fae485371e12fa02fc8c6 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 24 Jun 1997 16:15:47 +0000 Subject: [PATCH] (mime-preview/display-message/partial): Use `mime-add-button' again. --- mime-view.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index 815e2b2..51e750b 100644 --- a/mime-view.el +++ b/mime-view.el @@ -6,7 +6,7 @@ ;; Created: 1994/7/13 ;; Renamed: 1994/8/31 from tm-body.el ;; Renamed: 1997/02/19 from tm-view.el -;; Version: $Revision: 0.93 $ +;; Version: $Revision: 0.94 $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -40,7 +40,7 @@ ;;; (defconst mime-view-RCS-ID - "$Id: mime-view.el,v 0.93 1997-06-21 04:14:36 morioka Exp $") + "$Id: mime-view.el,v 0.94 1997-06-24 16:15:47 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -582,8 +582,11 @@ The compressed face will be piped to this command.") (if (not (search-backward "\n\n" nil t)) (insert "\n") ) - (mime-insert-button mime-view-announcement-for-message/partial - (function mime-view-play-current-entity)) + (goto-char (point-max)) + (narrow-to-region (point-max)(point-max)) + (insert mime-view-announcement-for-message/partial) + (mime-add-button (point-min)(point-max) + (function mime-view-play-current-entity)) )) (defun mime-article/get-uu-filename (param &optional encoding) -- 1.7.10.4