Mercurial > emacs

changeset 40494:4c7be17ecf55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nnimap-date-days-ago): Defeat locale.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 30 Oct 2001 11:24:36 +0000
parents 94818b20da05
children fee8d33035f4
files lisp/gnus/nnimap.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/nnimap.el	Tue Oct 30 11:11:48 2001 +0000
+++ b/lisp/gnus/nnimap.el	Tue Oct 30 11:24:36 2001 +0000
@@ -1,5 +1,5 @@
 ;;; nnimap.el --- imap backend for Gnus
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <jas@pdc.kth.se>
 ;;         Jim Radford <radford@robby.caltech.edu>
@@ -1088,10 +1088,12 @@
 
 (defun nnimap-date-days-ago (daysago)
   "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago."
-  (let ((date (format-time-string "%d-%b-%Y"
-				  (nnimap-time-substract
-				   (current-time)
-				   (days-to-time daysago)))))
+  (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago)))
+	 (date (format-time-string
+		(format "%%d-%s-%%Y"
+			(capitalize (car (rassoc (nth 4 (decode-time time))
+						 parse-time-months))))
+		time)))
     (if (eq ?0 (string-to-char date))
 	(substring date 1)
       date)))