Mercurial > emacs
comparison lisp/gnus/pop3.el @ 110740:ed9ff0bf7851
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 |
comparison
equal
deleted
inserted
replaced
| 110739:4379d5736f65 | 110740:ed9ff0bf7851 |
|---|---|
| 147 (pop3-logon process) | 147 (pop3-logon process) |
| 148 (with-current-buffer (process-buffer process) | 148 (with-current-buffer (process-buffer process) |
| 149 (let ((size (pop3-stat process))) | 149 (let ((size (pop3-stat process))) |
| 150 (setq message-count (car size) | 150 (setq message-count (car size) |
| 151 message-total-size (cadr size))) | 151 message-total-size (cadr size))) |
| 152 (when (plusp message-count) | 152 (when (> message-count 0) |
| 153 (pop3-send-streaming-command | 153 (pop3-send-streaming-command |
| 154 process "RETR" message-count message-total-size) | 154 process "RETR" message-count message-total-size) |
| 155 (pop3-write-to-file file) | 155 (pop3-write-to-file file) |
| 156 (unless pop3-leave-mail-on-server | 156 (unless pop3-leave-mail-on-server |
| 157 (pop3-send-streaming-command | 157 (pop3-send-streaming-command |