X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr.el;h=c065b60c92170a6659661f324578e10d8b418156;hp=133f9ea5a65e8794eab59999aa8011e52eacc594;hb=941e6592512a8107ff913dea4c7cf5d16d2eb722;hpb=b80cf402f0afc69967fedf0ffdd8efe41cff1144

diff --git a/lisp/shr.el b/lisp/shr.el
index 133f9ea5a..c065b60c9 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -142,7 +142,7 @@ fit these criteria."
   (browse-url (widget-get widget :url)))
 
 (defun shr-tag-img (cont)
-  (when (and (plusp (current-column))
+  (when (and (> (current-column) 0)
 	     (not (eq shr-state 'image)))
     (insert "\n"))
   (let ((start (point-marker)))
@@ -242,7 +242,7 @@ fit these criteria."
 	(insert " "))
       (dolist (elem (split-string text))
 	(setq column (current-column))
-	(when (plusp column)
+	(when (> column 0)
 	  (cond
 	   ((> (+ column (length elem) 1) shr-width)
 	    (insert "\n"))
@@ -250,7 +250,7 @@ fit these criteria."
 	    (insert " "))))
 	(setq first nil)
 	(when (and (bolp)
-		   (plusp shr-indentation))
+		   (> shr-indentation 0))
 	  (insert (make-string shr-indentation ? )))
 	;; The shr-start is a special variable that is used to pass
 	;; upwards the first point in the buffer where the text really