diff options
| author | Gerd Moellmann <[email protected]> | 2001-10-30 11:24:50 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-10-30 11:24:50 +0000 |
| commit | 6389d65c8c300805388b14ede85ebbba760fca55 (patch) | |
| tree | 4aaca7b7ccf817b1bc4b7ed8976aadd0bd494719 | |
| parent | c30567b792f2a5c5e0aada727c7ef77c8ff4c656 (diff) | |
(nnimap-date-days-ago): Defeat locale.
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 12 |
2 files changed, 11 insertions, 5 deletions
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 <[email protected]> + + * nnimap.el (nnimap-date-days-ago): Defeat locale. + 2001-10-27 Stefan Monnier <[email protected]> * 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 <[email protected]> ;; Jim Radford <[email protected]> @@ -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))) |