(gnus-summary-limit-to-singletons): Fix typo.

[gnus] / lisp / gnus-draft.el

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 9d992e4..6873214 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -105,7 +105,9 @@
       (save-restriction
        (message-narrow-to-headers)
        (message-remove-header "date")))
-    (save-buffer)
+    (let ((message-draft-headers
+          (delq 'Date (copy-sequence message-draft-headers))))
+      (save-buffer))
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) group t))
     (push