From ffaf6787c6befd4af9360575d83c7e15b78028f5 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 6 May 2001 08:11:32 +0000 Subject: [PATCH] * mime-view.el (mime-display-message/partial-button): Don't use `mime-add-button'. [cf. ] (mime-view-announcement-for-message/partial): Simplified. --- mime-view.el | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/mime-view.el b/mime-view.el index 6af7784..729d74d 100644 --- a/mime-view.el +++ b/mime-view.el @@ -724,14 +724,7 @@ Each elements are regexp of field-name.") (enriched-decode beg (point-max))))) (defvar mime-view-announcement-for-message/partial - (if (and (>= emacs-major-version 19) window-system) - "\ -\[[ This is message/partial style split message. ]] -\[[ Please press `v' key in this buffer ]] -\[[ or click here by mouse button-2. ]]" - "\ -\[[ This is message/partial style split message. ]] -\[[ Please press `v' key in this buffer. ]]")) + "This is message/partial style split message.") (defun mime-display-message/partial-button (&optional entity situation) (save-restriction @@ -739,10 +732,8 @@ Each elements are regexp of field-name.") (if (not (search-backward "\n\n" nil t)) (insert "\n")) (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) - #'mime-preview-play-current-entity))) + (mime-insert-button mime-view-announcement-for-message/partial + #'mime-preview-play-current-entity))) (defun mime-display-multipart/mixed (entity situation) (let ((children (mime-entity-children entity)) -- 1.7.10.4