Mercurial > emacs

comparison lisp/gnus/nnimap.el @ 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 a26d9b55abb6
children d9d12d6d22cc
comparison
equal deleted inserted replaced
40493:94818b20da05 40494:4c7be17ecf55
1 ;;; nnimap.el --- imap backend for Gnus 1 ;;; nnimap.el --- imap backend for Gnus
2 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. 2 ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
3 3
4 ;; Author: Simon Josefsson <jas@pdc.kth.se> 4 ;; Author: Simon Josefsson <jas@pdc.kth.se>
5 ;; Jim Radford <radford@robby.caltech.edu> 5 ;; Jim Radford <radford@robby.caltech.edu>
6 ;; Keywords: mail 6 ;; Keywords: mail
7 7
1086 (list (- ms 1) (+ (expt 2 16) ls)) 1086 (list (- ms 1) (+ (expt 2 16) ls))
1087 (list ms ls)))) 1087 (list ms ls))))
1088 1088
1089 (defun nnimap-date-days-ago (daysago) 1089 (defun nnimap-date-days-ago (daysago)
1090 "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." 1090 "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago."
1091 (let ((date (format-time-string "%d-%b-%Y" 1091 (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago)))
1092 (nnimap-time-substract 1092 (date (format-time-string
1093 (current-time) 1093 (format "%%d-%s-%%Y"
1094 (days-to-time daysago))))) 1094 (capitalize (car (rassoc (nth 4 (decode-time time))
1095 parse-time-months))))
1096 time)))
1095 (if (eq ?0 (string-to-char date)) 1097 (if (eq ?0 (string-to-char date))
1096 (substring date 1) 1098 (substring date 1)
1097 date))) 1099 date)))
1098 1100
1099 (defun nnimap-request-expire-articles-progress () 1101 (defun nnimap-request-expire-articles-progress ()