Mercurial > emacs

diff lisp/gnus/shr.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 4c31586ca1ca
children 0defef1647a5
line wrap: on
line diff
--- a/lisp/gnus/shr.el	Sun Oct 03 18:43:22 2010 +0200
+++ b/lisp/gnus/shr.el	Sun Oct 03 15:54:31 2010 -0400
@@ -220,7 +220,7 @@
     (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 " ")))