[Emacs-diffs] Changes to emacs/lisp/gnus/nnimap.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/nnimap.el
diff -c emacs/lisp/gnus/nnimap.el:1.4 emacs/lisp/gnus/nnimap.el:1.5
*** emacs/lisp/gnus/nnimap.el:1.4       Sun Jul 15 13:42:53 2001
--- emacs/lisp/gnus/nnimap.el   Tue Oct 30 06:24:36 2001
***************
*** 1,5 ****
  ;;; nnimap.el --- imap backend for Gnus
! ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  ;;         Jim Radford <address@hidden>
--- 1,5 ----
  ;;; nnimap.el --- imap backend for Gnus
! ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  ;;         Jim Radford <address@hidden>
***************
*** 1088,1097 ****
  
  (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)))))
      (if (eq ?0 (string-to-char date))
        (substring date 1)
        date)))
--- 1088,1099 ----
  
  (defun nnimap-date-days-ago (daysago)
    "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago."
!   (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)))