Changes committed gnus/lisp (ChangeLog nnrss.el)
"Ted Zlatanov" <[email protected]>
| Newsgroups | gmane.emacs.gnus.commits |
|---|---|
| Message-ID | <[email protected]> |
Modified: ChangeLog nnrss.el (nnrss-normalize-date): Accept Unix-style epoch timestamps. Index: ChangeLog diff -u gnus/lisp/ChangeLog:7.1854 gnus/lisp/ChangeLog:7.1855 --- ChangeLog:7.1854 Wed May 14 21:50:58 2008 +++ ChangeLog Wed May 14 21:51:51 2008 @@ -1,5 +1,7 @@ 2008-05-14 Teodor Zlatanov <[email protected]> + * nnrss.el (nnrss-normalize-date): Accept Unix-style epoch timestamps. + * auth-source.el: Preliminary Tramp docs. (auth-sources): Change the default auth-sources to use EPA .gpg files. Index: nnrss.el diff -u gnus/lisp/nnrss.el:7.56 gnus/lisp/nnrss.el:7.57 --- nnrss.el:7.56 Thu Apr 24 06:19:21 2008 +++ nnrss.el Wed May 14 21:51:51 2008 @@ -500,8 +500,11 @@ 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) @@ -559,7 +562,7 @@ (if zone (concat " " zone) ""))) - (message-make-date)))) + (message-make-date given)))) ;;; data functions