From: teranisi <teranisi>
Date: Wed, 23 Aug 2000 03:49:25 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-network-initialize-session): Call buffer-disable-undo.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=00f4b8e3deede2506fbce295f5a256f0652260d9;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-network-initialize-session): Call buffer-disable-undo.

* elmo-imap4.el (elmo-network-initialize-session):
Set current-buffer as an argument for `buffer-disable-undo'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 34e17e8..31ec0d3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,11 @@
 2000-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-pop3.el (elmo-network-initialize-session): Call
+	buffer-disable-undo.
+
+	* elmo-imap4.el (elmo-network-initialize-session):
+	Set current-buffer as an argument for `buffer-disable-undo'.
+
 	* elmo-pop3.el (elmo-network-close-session): Don't use
 	`process-live-p'.
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 167db28..c11acf5 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1244,7 +1244,7 @@ If optional argument UNMARK is non-nil, unmark."
 	response greeting capability mechanism)
     (with-current-buffer (process-buffer process)
       (elmo-set-buffer-multibyte nil)
-      (buffer-disable-undo)
+      (buffer-disable-undo (current-buffer))
       (make-variable-buffer-local 'elmo-imap4-lock)
       (make-local-variable 'elmo-imap4-read-point)
       (setq elmo-imap4-read-point (point-min))
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index d455ad9..612690b 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -294,6 +294,7 @@
 	response capability mechanism)
     (with-current-buffer (process-buffer process)
       (elmo-set-buffer-multibyte nil)
+      (buffer-disable-undo (current-buffer))
       (set-process-filter process 'elmo-pop3-process-filter)
       (make-local-variable 'elmo-pop3-read-point)
       (setq elmo-pop3-read-point (point-min))