[Emacs-diffs] emacs/lisp ChangeLog net/imap.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/30 14:23:24

Modified files:
        lisp           : ChangeLog 
        lisp/net       : imap.el 

Log message:
        (imap-send-command): Simplify.
        (imap-wait-for-tag): point-max - buffer-size.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16063&r2=1.16064
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/imap.el?cvsroot=emacs&r1=1.18&r2=1.19

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16063
retrieving revision 1.16064
diff -u -b -r1.16063 -r1.16064
--- ChangeLog   30 Aug 2009 14:21:34 -0000      1.16063
+++ ChangeLog   30 Aug 2009 14:23:21 -0000      1.16064
@@ -1,5 +1,8 @@
 2009-08-30  Stefan Monnier  <address@hidden>
 
+       * net/imap.el (imap-send-command): Simplify.
+       (imap-wait-for-tag): point-max - buffer-size.
+
        * net/ange-ftp.el (internal-ange-ftp-mode): Use define-derived-mode.
 
        * emacs-lisp/easy-mmode.el (define-minor-mode): Don't use symbol-value

Index: net/imap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/imap.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- net/imap.el 5 Feb 2009 02:34:34 -0000       1.18
+++ net/imap.el 30 Aug 2009 14:23:24 -0000      1.19
@@ -2004,9 +2004,10 @@
               (imap-send-command-1 cmdstr)
               (setq cmdstr nil)
               (unwind-protect
+                  (setq command
                   (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
-                      (setq command nil) ;; abort command if no cont-req
-                    (setq command (cons (funcall cmd imap-continuation)
+                            nil ;; abort command if no cont-req
+                          (cons (funcall cmd imap-continuation)
                                         command)))
                 (setq imap-continuation nil)))
              (t
@@ -2021,7 +2022,7 @@
       (while (and (null imap-continuation)
                  (memq (process-status imap-process) '(open run))
                  (< imap-reached-tag tag))
-       (let ((len (/ (point-max) 1024))
+       (let ((len (/ (buffer-size) 1024))
              message-log-max)
          (unless (< len 10)
            (setq imap-have-messaged t)