[Mew-dist 31] buffer-disable-undo on Summary buffer

[SAKAI Kiyotaka]

draft mode での undo の問題を調べていたときに気がついたのですが、
Summary Mode, Mew Hello の表示バッファでは undo の情報を保持する必要が
ありませんので、以下のようにしませんか？

# mule-1.x でも使えるようにするには、buffer-disable-undo の代わりに
# buffer-flush-undo を使う必要がありますが。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el	1996/11/20 08:23:34	1.1
+++ mew-scan.el	1996/11/20 08:24:50
@@ -35,6 +35,7 @@
 ;; drop folder is meaningless at present.
 (defun mew-summary-inc-body ()
   (set-buffer (get-buffer mew-inbox)) ;; just in case
+  (buffer-disable-undo (current-buffer))
   (if (not (equal major-mode 'mew-summary-mode)) (mew-summary-mode))
   (mew-window-configure (current-buffer) 'summary)
   (mew-current-set 'message nil)
@@ -168,6 +169,7 @@
   (let ((range (car range-erase)) 
 	(erase (car (cdr range-erase))))
     (set-buffer (get-buffer folder)) ;; just in case
+    (buffer-disable-undo (current-buffer))
     (if (not (equal major-mode 'mew-summary-mode)) (mew-summary-mode))
     (mew-window-configure (current-buffer) 'summary)
     (mew-current-set 'message nil)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-demo.el,v
retrieving revision 1.1
diff -u -r1.1 mew-demo.el
--- mew-demo.el	1996/11/20 08:19:30	1.1
+++ mew-demo.el	1996/11/20 08:20:00
@@ -51,6 +51,7 @@
 	 (suf (make-string (1- (- (- wl pl) ul)) 32)))
     (save-window-excursion
       (select-window (get-buffer-window (get-buffer mew-buffer-hello)))
+      (buffer-disable-undo (current-buffer))
       (while list
 	(mew-demo-print (car list) pre suf)
 	(mew-demo-loop)