diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/nnimap.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index c6eaa54c692..0c5aaf32d42 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -36,7 +36,6 @@ | |||
| 36 | (require 'nnoo) | 36 | (require 'nnoo) |
| 37 | (require 'netrc) | 37 | (require 'netrc) |
| 38 | (require 'utf7) | 38 | (require 'utf7) |
| 39 | (require 'parse-time) | ||
| 40 | (require 'nnmail) | 39 | (require 'nnmail) |
| 41 | 40 | ||
| 42 | (autoload 'auth-source-forget+ "auth-source") | 41 | (autoload 'auth-source-forget+ "auth-source") |
| @@ -1097,12 +1096,8 @@ textual parts.") | |||
| 1097 | (let ((result | 1096 | (let ((result |
| 1098 | (nnimap-command | 1097 | (nnimap-command |
| 1099 | "UID SEARCH SENTBEFORE %s" | 1098 | "UID SEARCH SENTBEFORE %s" |
| 1100 | (format-time-string | 1099 | (let ((system-time-locale "C")) |
| 1101 | (format "%%d-%s-%%Y" | 1100 | (upcase (format-time-string "%d-%b-%Y" cutoff)))))) |
| 1102 | (upcase | ||
| 1103 | (car (rassoc (decoded-time-month (decode-time cutoff)) | ||
| 1104 | parse-time-months)))) | ||
| 1105 | cutoff)))) | ||
| 1106 | (and (car result) | 1101 | (and (car result) |
| 1107 | (delete 0 (mapcar #'string-to-number | 1102 | (delete 0 (mapcar #'string-to-number |
| 1108 | (cdr (assoc "SEARCH" (cdr result))))))))))) | 1103 | (cdr (assoc "SEARCH" (cdr result))))))))))) |