summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnmaildir.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2018-09-15 15:00:54 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2018-09-15 15:02:08 -0700
commitd2048949bcd5735c17b4a194fc75d16ba25907ca (patch)
tree74ce8ab4788bfc33f1089f2b8498a0a8fd1f5595 /lisp/gnus/nnmaildir.el
parent3937b5b52af3eb78101dc385ac8dfe7a36e2e624 (diff)
downloademacs-d2048949bcd5735c17b4a194fc75d16ba25907ca.tar.gz
Go back to old method for nnmaildir names
* lisp/gnus/nnmaildir.el (nnmaildir-request-accept-article): Omit leading 0s after "M" in file name. Problem reported by Glenn Morris in: https://lists.gnu.org/r/emacs-devel/2018-09/msg00660.html
Diffstat (limited to 'lisp/gnus/nnmaildir.el')
-rw-r--r--lisp/gnus/nnmaildir.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el
index 48a470c7462..fbabf573c4f 100644
--- a/lisp/gnus/nnmaildir.el
+++ b/lisp/gnus/nnmaildir.el
@@ -1463,7 +1463,7 @@ This variable is set by `nnmaildir-request-article'.")
(unless (string-equal nnmaildir--delivery-time file)
(setq nnmaildir--delivery-time file
nnmaildir--delivery-count 0))
- (setq file (concat file (format-time-string "M%6N" time)))
+ (setq file (concat file "M" (number-to-string (caddr time))))
(setq file (concat file nnmaildir--delivery-pid)
file (concat file "Q" (number-to-string nnmaildir--delivery-count))
file (concat file "." (nnmaildir--system-name))