[Emacs-diffs] Changes to emacs/lisp/url/url-auth.el, v [EMACS_22_BASE]

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Chong Yidong <cyd>      08/03/31 22:02:24

Index: url-auth.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-auth.el,v
retrieving revision 1.13.2.8
retrieving revision 1.13.2.9
diff -u -b -r1.13.2.8 -r1.13.2.9
--- url-auth.el 25 Feb 2008 17:11:25 -0000      1.13.2.8
+++ url-auth.el 31 Mar 2008 22:02:24 -0000      1.13.2.9
@@ -188,8 +188,8 @@
                         (string= data (substring file 0 (length data)))))
                    (setq retval (cdr (car byserv))))
                (setq byserv (cdr byserv))))
-         (if (or (and (not retval) prompt) overwrite)
-             (progn
+         (if overwrite
+             (if (and (not retval) prompt)
                (setq user (read-string (url-auth-user-prompt url realm)
                                        (user-real-login-name))
                      pass (read-passwd "Password: ")