diff options
| author | Miles Bader <miles@gnu.org> | 2008-05-15 00:26:27 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-05-15 00:26:27 +0000 |
| commit | 4079589f63c958582a74e403e74217d6b9c6c7a2 (patch) | |
| tree | 098815dc95825d1c34abd384ed41aa95eb2e49e2 /lisp/gnus/nnrss.el | |
| parent | 4e02f55c17ab23ecc6be70de41c42a21541b3063 (diff) | |
| download | emacs-4079589f63c958582a74e403e74217d6b9c6c7a2.tar.gz emacs-4079589f63c958582a74e403e74217d6b9c6c7a2.tar.bz2 emacs-4079589f63c958582a74e403e74217d6b9c6c7a2.zip | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1161
Diffstat (limited to 'lisp/gnus/nnrss.el')
| -rw-r--r-- | lisp/gnus/nnrss.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 67417cbb481..ea8197d27db 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el @@ -498,8 +498,11 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s" This function handles the ISO 8601 date format described in <URL:http://www.w3.org/TR/NOTE-datetime>, and also the RFC822 style which RSS 2.0 allows." - (let (case-fold-search vector year month day time zone cts) - (cond ((null date)) + (let (case-fold-search vector year month day time zone cts given) + (cond ((null date)) ; do nothing for this case + ;; if the date is just digits (unix time stamp): + ((string-match "^[0-9]+$" date) + (setq given (seconds-to-time (string-to-number date)))) ;; RFC822 ((string-match " [0-9]+ " date) (setq vector (timezone-parse-date date) @@ -557,7 +560,7 @@ which RSS 2.0 allows." (if zone (concat " " zone) ""))) - (message-make-date)))) + (message-make-date given)))) ;;; data functions |