From 56de18d2d5db8c8f081e875670d70513a48f9d16 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 May 1997 10:04:36 +0000 Subject: [PATCH] (mime-display-caesar): Don't use `buffer-substring'. --- mime-play.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/mime-play.el b/mime-play.el index 53dd361..85cb14f 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.39 1997-05-07 10:01:07 morioka Exp $ +;; Version: $Id: mime-play.el,v 0.40 1997-05-07 10:04:36 morioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -450,7 +450,7 @@ It is registered to variable `mime-view-quitting-method-alist'." ;;; @ rot13-47 ;;; -(defun mime-display-caesar (beg end cal) +(defun mime-display-caesar (start end cal) "Internal method for mime-view to display ROT13-47-48 message." (let* ((cnum (mime-article/point-content-number beg)) (new-name (format "%s-%s" (buffer-name) cnum)) @@ -459,8 +459,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (charset (cdr (assoc "charset" cal))) (encoding (cdr (assq 'encoding cal))) (mode major-mode) - str) - (setq str (buffer-substring beg end)) + ) (let ((pwin (or (get-buffer-window mother) (get-largest-window))) (buf (get-buffer-create new-name)) @@ -471,7 +470,7 @@ It is registered to variable `mime-view-quitting-method-alist'." ) (setq buffer-read-only nil) (erase-buffer) - (insert str) + (insert-buffer-substring the-buf start end) (goto-char (point-min)) (if (re-search-forward "^\n" nil t) (delete-region (point-min) (match-end 0)) -- 1.7.10.4