emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r101768: Avoid using plusp; cl may no


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r101768: Avoid using plusp; cl may not be loaded.
Date: Sun, 03 Oct 2010 15:54:31 -0400
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 101768
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-03 15:54:31 -0400
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el
  lisp/gnus/pop3.el
  lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-03 02:12:55 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-03 19:54:31 +0000
@@ -1,3 +1,10 @@
+2010-10-03  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnmairix.el (nnmairix-replace-illegal-chars): Drop Emacs 20 code.

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2010-10-03 00:33:27 +0000
+++ b/lisp/gnus/gnus-html.el    2010-10-03 19:54:31 +0000
@@ -271,7 +271,7 @@
       (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)

=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-30 08:39:23 +0000
+++ b/lisp/gnus/pop3.el 2010-10-03 19:54:31 +0000
@@ -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)

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-10-03 00:33:27 +0000
+++ b/lisp/gnus/shr.el  2010-10-03 19:54:31 +0000
@@ -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 " ")))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]