home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / gnu / emacs / gnus / 1446 < prev    next >
Encoding:
Text File  |  1993-01-03  |  1.8 KB  |  51 lines
  1. Xref: sparky gnu.emacs.gnus:1446 news.software.readers:2648
  2. Newsgroups: gnu.emacs.gnus,news.software.readers
  3. Path: sparky!uunet!stanford.edu!EE.Stanford.EDU!sierra!mcgrant
  4. From: mcgrant@rascals.stanford.edu (Michael C. Grant)
  5. Subject: GNUS bug in timezone.el
  6. Message-ID: <MCGRANT.93Jan3173920@rascals.stanford.edu>
  7. Sender: usenet@EE.Stanford.EDU (Usenet)
  8. Organization: Information Systems Laboratory, Stanford University
  9. Date: 3 Jan 93 17:39:20
  10. Lines: 39
  11.  
  12.  
  13. I came across and fixed a rather simple bug in timezone.el for GNUS 3.14.1.
  14. timezone-parse-date fails to handle dates where the month is spelled out
  15. completely, and those occaisonally do come up in newsgroups---and, if they
  16. do, GNUS can't even open that newsgroup (if you're using dates to sort
  17. them, that is).
  18.  
  19. This may have been posted before, but here's the patch to allow the
  20. timezone command to handle these cases.
  21.  
  22. Michael C. Grant
  23. mcgrant@isl.stanford.edu
  24.  
  25.  
  26. *** timezone.el Sun Jan  3 17:36:20 1993
  27. --- timezone.el.dist    Sun Jan  3 17:24:53 1993
  28. ***************
  29. *** 167,176 ****
  30.                  (cdr
  31.                   (assoc
  32.                    (upcase
  33. !                     (substring
  34. !                      (substring date
  35. !                                 (match-beginning month) (match-end month))
  36. !                      0 3))
  37.                    timezone-months-assoc))))
  38.           (setq day
  39.                 (substring date (match-beginning day) (match-end day)))
  40. --- 167,174 ----
  41.                  (cdr
  42.                   (assoc
  43.                    (upcase
  44. !                   (substring date
  45. !                              (match-beginning month) (match-end month)))
  46.                    timezone-months-assoc))))
  47.           (setq day
  48.                 (substring date (match-beginning day) (match-end day)))
  49. --
  50. "Long hair, short hair--what's the difference once the head's blowed off?" (?)
  51.