[Emacs-diffs] Changes to emacs/lisp/url/url-util.el [lexbind]

[Miles Bader]

Index: emacs/lisp/url/url-util.el
diff -c emacs/lisp/url/url-util.el:1.3.2.5 emacs/lisp/url/url-util.el:1.3.2.6
*** emacs/lisp/url/url-util.el:1.3.2.5  Mon Oct 25 04:19:35 2004
--- emacs/lisp/url/url-util.el  Mon Oct 25 04:22:24 2004
***************
*** 192,204 ****
                                                (nth 1 (current-time-zone))
                                                "GMT"))
         (parsed (timezone-parse-date gmt))
!        (day (cdr-safe (assoc (substring raw 0 3) weekday-alist)))
         (year nil)
         (month (car
                 (rassoc
!                 (string-to-int (aref parsed 1)) monthabbrev-alist)))
         )
!     (setq day (or (car-safe (rassoc day weekday-alist))
                  (substring raw 0 3))
          year (aref parsed 0))
      ;; This is needed for plexus servers, or the server will hang trying to
--- 192,204 ----
                                                (nth 1 (current-time-zone))
                                                "GMT"))
         (parsed (timezone-parse-date gmt))
!        (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))
         (year nil)
         (month (car
                 (rassoc
!                 (string-to-int (aref parsed 1)) url-monthabbrev-alist)))
         )
!     (setq day (or (car-safe (rassoc day url-weekday-alist))
                  (substring raw 0 3))
          year (aref parsed 0))
      ;; This is needed for plexus servers, or the server will hang trying to