* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))