2001-07-11 04:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nndraft.el (nndraft-request-restore-buffer): Don't remove Date.

	* gnus-draft.el (gnus-draft-edit-message): Remove Date here.
	(gnus-draft-setup): Remove backlog.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8880fe0..508d517 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-07-11 04:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nndraft.el (nndraft-request-restore-buffer): Don't remove Date.
+
+       * gnus-draft.el (gnus-draft-edit-message): Remove Date here.
+       (gnus-draft-setup): Remove backlog.
+
 2001-07-10  Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>
 
        * gnus-logic.el, gnus-srvr.el, gnus-vm.el, nnheaderxm.el, nnoo.el:

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 47b0939..c7d7863 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -98,6 +98,10 @@
     (gnus-summary-mark-as-read article gnus-canceled-mark)
     (gnus-draft-setup article gnus-newsgroup-name t)
     (set-buffer-modified-p t)
+    (save-excursion
+      (save-restriction
+        (message-narrow-to-headers)
+        (message-remove-header "date")))
     (save-buffer)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
@@ -231,6 +235,7 @@
            (forward-line 1)
            (setq ga (message-fetch-field gnus-draft-meta-information-header))
            (message-set-auto-save-file-name))))
+      (gnus-backlog-remove-article group narticle)
       (when (and ga
                 (ignore-errors (setq ga (car (read-from-string ga)))))
        (setq message-post-method

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 1214406..e3b99ef 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -132,7 +132,9 @@
   (when (nndraft-request-article article group server (current-buffer))
     (message-remove-header "xref")
     (message-remove-header "lines")
-    (message-remove-header "date")
+    ;; Articles in nndraft:queue are considered as sent messages.  The
+    ;; Date field should be the time when they are sent.
+    ;;(message-remove-header "date")
     t))
 
 (deffoo nndraft-request-update-info (group info &optional server)