[Mew-dist 05416] mew-summary-insert (1.93b45)

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

mew-summary-insert() をしたときに、mew-end-of-.*-string が
buffer の先頭に表示されてしまい、本文が隠れてしまいます。

ここに入れていいかどうかは不明ですが、とりあえずパッチです。

-------------- next part --------------
--- mew-mime.el.orig	Thu Jul  2 20:57:43 1998
+++ mew-mime.el	Mon Jul  6 19:46:24 1998
@@ -336,6 +336,7 @@
 		   (end (mew-syntax-get-end stx)))
 	      (erase-buffer)
 	      (insert-buffer-substring (mew-current-get 'cache) begin end)
+	      (mew-message-set-end-of)
 	      (goto-char (point-min))
 	      ))
 	(mew-pop-to-buffer buf)))
-------------- next part --------------
あと、contrib/mew-caeser.el に対する同様のパッチです。

## こちらは、まぁ、どうでもいいのですが ^^;;;
## こっちで、先に気付いたもので……

-------------- next part --------------
--- mew-caesar.el.orig	Mon Apr  6 17:56:28 1998
+++ mew-caesar.el	Mon Jul  6 19:50:41 1998
@@ -3,7 +3,7 @@
 ;;
 ;;                         "Hideyuki SHIRAI" <Shirai at example.com>
 ;;                                            Created: <02/07/1998>
-;;                                Revised: Time-stamp: <03/16/1998 10:06>
+;;                                Revised: Time-stamp: <07/06/1998 19:50>
 ;;
 ;; To use mew-caesar.el, install (tm|SEMI) package or "nkf"
 ;;  , and put the following codes in your .emacs.
@@ -125,9 +125,10 @@
 		   (end (mew-syntax-get-end stx)))
 	      (erase-buffer)
 	      (insert-buffer-substring (mew-current-get 'cache) begin end)
-	      (goto-char (point-min))
-	      (mew-caesar-whole-buffer)))
-	(pop-to-buffer buf)))
+	      (mew-caesar-whole-buffer)
+	      (mew-message-set-end-of)
+	      (goto-char (point-min))))
+	(mew-pop-to-buffer buf)))
     ))
 
 (defun mew-caesar-attach-find-new-xrot ()