From e335b46f272e379c14d3f01fad7f6a58fa368a35 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 26 Jan 1999 08:56:39 +0000
Subject: [PATCH] * mime-edit.el (mime-edit-decode-single-part-in-buffer):
 Limit the search bound for the end of
 "Content-Transfer-Encoding" field. * mime-play.el
 (mime-view-caesar): New implementation. * mime-play.el
 (mime-view-caesar): Don't expect called in raw-buffer; use
 `mime-insert-entity'.

---
 ChangeLog    |   14 ++++++++++++++
 mime-edit.el |    2 +-
 mime-play.el |   25 +++++++++----------------
 3 files changed, 24 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index df4beae..78906ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+1999-01-26  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-edit.el (mime-edit-decode-single-part-in-buffer): Limit the
+	search bound for the end of "Content-Transfer-Encoding" field.
+
+1999-01-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-view-caesar): New implementation.
+
+1999-01-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-view-caesar): Don't expect called in
+	raw-buffer; use `mime-insert-entity'.
+
 1999-01-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* mime-w3.el (mime-preview-text/html): Display err if error occurs
diff --git a/mime-edit.el b/mime-edit.el
index a5be4fe..57c1de9 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2679,7 +2679,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	   "^Content-Transfer-Encoding:" limit t)
 	  (let ((beg (match-beginning 0))
 		(hbeg (match-end 0))
-		(end (std11-field-end)))
+		(end (std11-field-end limit)))
 	    (setq encoding
 		  (downcase
 		   (eliminate-top-spaces
diff --git a/mime-play.el b/mime-play.el
index a78389d..66e38f3 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -661,23 +661,16 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 
 (defun mime-view-caesar (entity situation)
   "Internal method for mime-view to display ROT13-47-48 message."
-  (let* ((new-name (format "%s-%s" (buffer-name)
-			   (mime-entity-number entity)))
-	 (mother mime-preview-buffer))
-    (let ((pwin (or (get-buffer-window mother)
-		    (get-largest-window)))
-	  (buf (get-buffer-create new-name)))
-      (set-window-buffer pwin buf)
-      (set-buffer buf)
-      (select-window pwin)
+  (let ((buf (get-buffer-create
+	      (format "%s-%s" (buffer-name) (mime-entity-number entity)))))
+    (with-current-buffer buf
+      (setq buffer-read-only nil)
+      (erase-buffer)
+      (mime-insert-text-content entity)
+      (mule-caesar-region (point-min) (point-max))
+      (set-buffer-modified-p nil)
       )
-    (setq buffer-read-only nil)
-    (erase-buffer)
-    (mime-insert-text-content entity)
-    (mule-caesar-region (point-min) (point-max))
-    (set-buffer-modified-p nil)
-    (set-buffer mother)
-    (view-buffer new-name)
+    (view-buffer buf)
     ))
 
 
-- 
1.7.10.4