From a3e0ec92c00defd34e9cb06459669cb855d0818e Mon Sep 17 00:00:00 2001 From: hayashi Date: Tue, 15 Feb 2000 04:02:39 +0000 Subject: [PATCH] * mime-view.el (mime-follow-current-entity): Try to be compatible with FSF Emacs. --- ChangeLog | 5 +++++ mime-view.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3694179..cf41305 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-02-15 Yoshiki Hayashi + + * mime-view.el (mime-follow-current-entity): Try to be + compatible with FSF Emacs. + 2000-02-14 Yoshiki Hayashi * EMY 1.13.3 is released. diff --git a/mime-view.el b/mime-view.el index d42191a..28f2c23 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1517,8 +1517,13 @@ It calls following-method selected from variable (erase-buffer) (unless header-exists (insert ?\n)) - (insert (buffer-substring-no-properties (car position) - (cdr position) the-buf)) + ;; Compatibility kludge. + ;; FSF Emacs can only take substring of current-buffer. + (insert + (save-excursion + (set-buffer the-buf) + (buffer-substring-no-properties (car position) + (cdr position)))) (goto-char (point-min)) (let ((current-entity (if (and (eq (mime-entity-media-type entity) 'message) -- 1.7.10.4