[Mew-dist 16011] buffer-disable-undo()

[Hideyuki SHIRAI ( 白井秀行 )]

ふと気付いたのですが、summary buffer, virtual buffer, message
buffer, cache buffer, scan(pop) の 作業 buffer は
buffer-disable-undo() しておいたほうが環境にやさしい Mew になれ
るのではないかと思います。(普通は :-)undo しないよね、ということ
で。

## 忙しくて invisible も summary-hl もなんにも出来ない。;_;

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-cache.el.orig	Mon Jan  8 21:08:47 2001
+++ mew-cache.el	Mon Jan 22 19:39:08 2001
@@ -136,6 +136,7 @@
       ;;
       (set-buffer cache)
       ;; in cache buffer
+      (buffer-disable-undo)
       (mew-erase-buffer)
       (condition-case errmsg
 	  (setq tim-siz	(mew-insert-message fld msg mew-cs-text-for-read nil))
--- mew-message.el.orig	Mon Jan  8 21:08:48 2001
+++ mew-message.el	Mon Jan 22 19:38:15 2001
@@ -37,6 +37,7 @@
   (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-message-mode-map)
   (setq buffer-read-only t)
+  (buffer-disable-undo)
   (make-local-variable 'page-delimiter)
   (setq page-delimiter mew-page-delimiter)
   (mew-message-toolbar-update)
--- mew-pop.el.orig	Mon Jan 22 20:24:02 2001
+++ mew-pop.el	Mon Jan 22 20:11:24 2001
@@ -126,6 +126,7 @@
       (setq mew-scan-ids nil)
       (save-excursion
 	(set-buffer buf)
+	(buffer-disable-undo)
 	(mew-set-buffer-multibyte nil)))
      (t
       (mew-pop-tear-down pnm)))
--- mew-scan.el.orig	Wed Jan 17 22:54:06 2001
+++ mew-scan.el	Mon Jan 22 20:09:54 2001
@@ -617,6 +617,7 @@
 	  (setq buf (get-buffer-create (mew-scan-buffer-name bnm)))
 	  (save-excursion
 	    (set-buffer buf)
+	    (buffer-disable-undo)
 	    (mew-erase-buffer))
 	  (setq args (append (list "-b"
 				   mew-mail-path
--- mew-summary.el.orig	Mon Jan 22 20:24:02 2001
+++ mew-summary.el	Mon Jan 22 19:37:42 2001
@@ -495,6 +495,7 @@
   (use-local-map mew-summary-mode-map)
   (setq buffer-read-only t)
   (setq truncate-lines t)
+  (buffer-disable-undo)
   ;;
   (make-local-variable 'tab-width)
   (make-local-variable 'search-invisible)
--- mew-virtual.el.orig	Mon Jan 22 20:24:02 2001
+++ mew-virtual.el	Mon Jan 22 19:37:52 2001
@@ -23,6 +23,7 @@
   (use-local-map mew-summary-mode-map)
   (setq buffer-read-only t)
   (setq truncate-lines t)
+  (buffer-disable-undo)
   ;;
   (make-local-variable 'tab-width)
   (make-local-variable 'search-invisible)