Mercurial > emacs

diff lisp/gnus/pop3.el @ 110740:ed9ff0bf7851

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid using plusp; cl may not be loaded. * lisp/gnus/shr.el (shr-insert): * lisp/gnus/pop3.el (pop3-movemail): * lisp/gnus/gnus-html.el (gnus-html-wash-tags): Don't use plusp.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 03 Oct 2010 15:54:31 -0400
parents 2b8ece636433
children 141d3f14d8c3
line wrap: on
line diff
--- a/lisp/gnus/pop3.el	Sun Oct 03 18:43:22 2010 +0200
+++ b/lisp/gnus/pop3.el	Sun Oct 03 15:54:31 2010 -0400
@@ -149,7 +149,7 @@
       (let ((size (pop3-stat process)))
 	(setq message-count (car size)
 	      message-total-size (cadr size)))
-      (when (plusp message-count)
+      (when (> message-count 0)
 	(pop3-send-streaming-command
 	 process "RETR" message-count message-total-size)
 	(pop3-write-to-file file)