Mercurial > emacs
changeset 104734:714ab1b8092b
(imap-send-command): Simplify.
(imap-wait-for-tag): point-max - buffer-size.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 30 Aug 2009 14:23:21 +0000 |
| parents | 9902de48eab4 |
| children | 214b3e5da89a |
| files | lisp/ChangeLog lisp/net/imap.el |
| diffstat | 2 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Aug 30 14:21:34 2009 +0000 +++ b/lisp/ChangeLog Sun Aug 30 14:23:21 2009 +0000 @@ -1,5 +1,8 @@ 2009-08-30 Stefan Monnier <monnier@iro.umontreal.ca> + * 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
--- a/lisp/net/imap.el Sun Aug 30 14:21:34 2009 +0000 +++ b/lisp/net/imap.el Sun Aug 30 14:23:21 2009 +0000 @@ -2004,10 +2004,11 @@ (imap-send-command-1 cmdstr) (setq cmdstr nil) (unwind-protect - (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) - command))) + (setq command + (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE)) + nil ;; abort command if no cont-req + (cons (funcall cmd imap-continuation) + command))) (setq imap-continuation nil))) (t (error "Unknown command type")))) @@ -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)