Commit d99a4591 authored by Chong Yidong's avatar Chong Yidong
Browse files

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.
parent 4ddf410a
2010-10-03 Chong Yidong <cyd@stupidchicken.com>
* shr.el (shr-insert):
* pop3.el (pop3-movemail):
* gnus-html.el (gnus-html-wash-tags): Don't use plusp, as cl may not be
loaded.
2010-10-03 Glenn Morris <rgm@gnu.org>
 
* nnmairix.el (nnmairix-replace-illegal-chars): Drop Emacs 20 code.
......
......@@ -271,7 +271,7 @@ Use ALT-TEXT for the image string."
(setq tag (match-string 1)
parameters (match-string 2)
start (match-beginning 0))
(when (plusp (length parameters))
(when (> (length parameters) 0)
(set-text-properties 0 (1- (length parameters)) nil parameters))
(delete-region start (point))
(when (search-forward (concat "</" tag ">") nil t)
......
......@@ -149,7 +149,7 @@ Use streaming commands."
(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)
......
......@@ -220,7 +220,7 @@ fit these criteria."
(let (column)
(dolist (elem (split-string text))
(setq column (current-column))
(when (plusp column)
(when (> column 0)
(if (> (+ column (length elem) 1) shr-width)
(insert "\n")
(insert " ")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment