From 6389d65c8c300805388b14ede85ebbba760fca55 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 30 Oct 2001 11:24:50 +0000 Subject: (nnimap-date-days-ago): Defeat locale. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/nnimap.el | 12 +++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) (limited to 'lisp') diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8970d3d625..de61ebb79c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2001-10-30 Simon Josefsson + + * nnimap.el (nnimap-date-days-ago): Defeat locale. + 2001-10-27 Stefan Monnier * gnus-msg.el (gnus-setup-message): Setup reaper for MML buffers. diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index a117ea0778..0d1c57c090 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -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 ;; Jim Radford @@ -1088,10 +1088,12 @@ function is generally only called when Gnus is shutting down." (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))) -- cgit v1.2.3