Mercurial > emacs

diff lisp/gnus/gnus-util.el @ 108949:234c5347118d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synch with Gnus trunk. 2010-06-10 Dan Christensen <jdc@uwo.ca> * gnus-util.el (gnus-user-date): Use gnus-date-get-time. (gnus-dd-mmm): Use gnus-date-get-time. * gnus-sum.el (gnus-thread-latest-date): Use gnus-date-get-time and simplify logic. (gnus-summary-limit-to-age): Use gnus-date-get-time. (gnus-sort-threads): emit message if gnus-sort-threads-loop used.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 10 Jun 2010 00:30:13 +0000
parents aacd4ee6c3af
children b7963ca9e06e
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Wed Jun 09 22:49:43 2010 +0000
+++ b/lisp/gnus/gnus-util.el	Thu Jun 10 00:30:13 2010 +0000
@@ -455,10 +455,10 @@
 
 (defun gnus-user-date (messy-date)
   "Format the messy-date according to gnus-user-date-format-alist.
-Returns \"  ?  \" if there's bad input or if an other error occurs.
+Returns \"  ?  \" if there's bad input or if another error occurs.
 Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."
   (condition-case ()
-      (let* ((messy-date (gnus-float-time (safe-date-to-time messy-date)))
+      (let* ((messy-date (gnus-float-time (gnus-date-get-time messy-date)))
 	     (now (gnus-float-time))
 	     ;;If we don't find something suitable we'll use this one
 	     (my-format "%b %d '%y"))
@@ -477,7 +477,7 @@
 (defun gnus-dd-mmm (messy-date)
   "Return a string like DD-MMM from a big messy string."
   (condition-case ()
-      (format-time-string "%d-%b" (safe-date-to-time messy-date))
+      (format-time-string "%d-%b" (gnus-date-get-time messy-date))
     (error "  -   ")))
 
 (defmacro gnus-date-get-time (date)