diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-01 15:34:35 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-01 15:47:15 -0700 |
| commit | fbd2ea1f73f3262636efacfe77ad33dc8a4d826f (patch) | |
| tree | 53387c8bf1efe425dd0a0cc90330cebed405805d /lisp/gnus/nnimap.el | |
| parent | 24b60b75ea544f0c2df740d40592c6665c123523 (diff) | |
| download | emacs-fbd2ea1f73f3262636efacfe77ad33dc8a4d826f.tar.gz | |
Fix two parse-time-months invalid assumptions
* lisp/gnus/nnimap.el: Do not require parse-time.
* lisp/gnus/nnimap.el (nnimap-find-expired-articles):
* lisp/net/pop3.el (pop3-make-date):
Just use system-time-locale and format-time-string; no need to
refer to parse-time-months.
* lisp/net/pop3.el (parse-time-months): Remove defvar.
* lisp/net/tramp-smb.el (tramp-smb-read-file-entry):
Add FIXME comment about this.
Diffstat (limited to 'lisp/gnus/nnimap.el')
| -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 @@ (require 'nnoo) (require 'netrc) (require 'utf7) -(require 'parse-time) (require 'nnmail) (autoload 'auth-source-forget+ "auth-source") @@ -1097,12 +1096,8 @@ textual parts.") (let ((result (nnimap-command "UID SEARCH SENTBEFORE %s" - (format-time-string - (format "%%d-%s-%%Y" - (upcase - (car (rassoc (decoded-time-month (decode-time cutoff)) - parse-time-months)))) - cutoff)))) + (let ((system-time-locale "C")) + (upcase (format-time-string "%d-%b-%Y" cutoff)))))) (and (car result) (delete 0 (mapcar #'string-to-number (cdr (assoc "SEARCH" (cdr result))))))))))) |