aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/nnimap.el9
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)))))))))))