* 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'.

diff --git a/ChangeLog b/ChangeLog
index df4beae..78906ba 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)
     ))