Mercurial > emacs

changeset 110591:ab4cdde63001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(starttls-negotiate): Avoid the cl.el decf function.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sun, 26 Sep 2010 17:30:44 +0200
parents 21047b3216d2
children c06958da83b5
files lisp/ChangeLog lisp/net/gnutls.el
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Sep 26 17:18:47 2010 +0200
+++ b/lisp/ChangeLog	Sun Sep 26 17:30:44 2010 +0200
@@ -1,5 +1,7 @@
 2010-09-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* net/gnutls.el (starttls-negotiate): Avoid the cl.el decf function.
+
 	* net/netrc.el (netrc-store-data): New function.
 
 2010-09-26  Teodor Zlatanov  <tzz@lifelogs.com>
--- a/lisp/net/gnutls.el	Sun Sep 26 17:18:47 2010 +0200
+++ b/lisp/net/gnutls.el	Sun Sep 26 17:30:44 2010 +0200
@@ -82,7 +82,7 @@
           (n 25000))
       (while (and (not (gnutls-error-fatalp ret))
                   (> n 0))
-        (decf n)
+        (setq n (1- n))
         (gnutls-message-maybe
          (setq ret (gnutls-handshake proc))
          "handshake: %s")