From: yamaoka <yamaoka>
Date: Wed, 11 Jul 2001 22:39:47 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-04-quimby~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dc10329e613f6cf7baf8349d8c5a4e18bf10b4b0;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e090ffe..51b6613 100644
--- 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,Bm(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 c9a40e7..4b015c1 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -98,6 +98,11 @@
   (let ((article (gnus-summary-article-number)))
     (gnus-summary-mark-as-read article gnus-canceled-mark)
     (gnus-draft-setup-for-editing article gnus-newsgroup-name)
+    (set-buffer-modified-p t)
+    (save-excursion
+      (save-restriction
+	(message-narrow-to-headers)
+	(message-remove-header "date")))
     (message-save-drafts)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
@@ -118,8 +123,8 @@
     (while (setq article (pop articles))
       (gnus-summary-remove-process-mark article)
       (unless (memq article gnus-newsgroup-unsendable)
-	(let ((message-sending-message 
-	       (format "Sending message %d of %d..." 
+	(let ((message-sending-message
+	       (format "Sending message %d of %d..."
 		       (- total (length articles)) total)))
 	  (gnus-draft-send article gnus-newsgroup-name t))
 	(gnus-summary-mark-article article gnus-canceled-mark)))))
@@ -128,7 +133,7 @@
   "Send message ARTICLE."
   (let ((message-syntax-checks (if interactive nil
 				 'dont-check-for-anything-just-trust-me))
-	(message-inhibit-body-encoding (or (not group) 
+	(message-inhibit-body-encoding (or (not group)
 					   (equal group "nndraft:queue")
 					   message-inhibit-body-encoding))
 	(message-send-hook (and group (not (equal group "nndraft:queue"))
@@ -157,17 +162,14 @@
 		    (function
 		     (lambda ()
 		       (interactive)
-		       (funcall message-send-news-function method)
-		       )))
-		   (funcall message-send-news-function method)
-		   )
+		       (funcall message-send-news-function method))))
+		   (funcall message-send-news-function method))
 		  ((eq type 'mail)
 		   (mime-edit-maybe-split-and-send
 		    (function
 		     (lambda ()
 		       (interactive)
-		       (funcall message-send-mail-function)
-		       )))
+		       (funcall message-send-mail-function))))
 		   (funcall message-send-mail-function)
 		   t)))
       (let ((gnus-verbose-backends nil))
@@ -243,6 +245,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
@@ -260,8 +263,7 @@
     (set-buffer gnus-draft-send-draft-buffer)
     (erase-buffer)
     (if (not (gnus-request-restore-buffer article group))
-	(error "Couldn't restore the article")
-      )))
+	(error "Couldn't restore the article"))))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."
diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 5f21751..e40e7cd 100644
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -126,7 +126,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)