Index: nnrss.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/nnrss.el,v retrieving revision 7.56 diff -c -r7.56 nnrss.el *** nnrss.el 24 Apr 2008 04:19:21 -0000 7.56 --- nnrss.el 12 May 2008 14:20:51 -0000 *************** *** 500,507 **** This function handles the ISO 8601 date format described in , and also the RFC822 style which RSS 2.0 allows." ! (let (case-fold-search vector year month day time zone cts) ! (cond ((null date)) ;; RFC822 ((string-match " [0-9]+ " date) (setq vector (timezone-parse-date date) --- 500,510 ---- This function handles the ISO 8601 date format described in , and also the RFC822 style which RSS 2.0 allows." ! (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,565 **** (if zone (concat " " zone) ""))) ! (message-make-date)))) ;;; data functions --- 562,568 ---- (if zone (concat " " zone) ""))) ! (message-make-date given)))) ;;; data functions