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

[Richard M . Stallman]

Index: emacs/lisp/url/url-util.el
diff -c emacs/lisp/url/url-util.el:1.6 emacs/lisp/url/url-util.el:1.7
*** emacs/lisp/url/url-util.el:1.6      Sun Oct 10 20:39:37 2004
--- emacs/lisp/url/url-util.el  Sat Oct 16 14:59:45 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