[PROPOSAL]: Date header and Queued messages

[Xavier Maillard <zedek@gnu-rox.org>]

[-- Attachment #1.1: Type: text/plain, Size: 1410 bytes --]

Hi,

Why do we put the 'Date' header even if the message is pushed into the
queued group ?

For my case it result to something quite annoying since I write my
mails when I am in the train and can't send them before the evening so
it generally result in something with 14/15h late !

Can't we just set this header when the mail is really sent (ie:
dequeued and sent) or at least remove the header when sending it.

I have personally thought to this a long time ago and I am currently
thinking it would be better to do this way. 

My current proposal is to remove the header in `gnus-draft-send`
function if we can ensure we can regenerate the Date header after
otherwise just pass through ;)

So I did something quite simple and it works perfectly for me (I have
been using it since a week now). So in case it is of interest by one of
you, I have enclosed a very small patch that just does the trick.

Any opinion ?

I know I can remove the "date" header just by editing the queued
message again but it is obvious for me to edit all of the queued
messages just to send them with a correct date header.


Regards,

zeDek

P.S: since the patch is really small and given the fact I still do not
have sent my FSF copyrights assignment papers, I hope you will able to
add this upstream otherwise be sure I will send them (the papers) on
Saturday. 

-----%<---------%<---------%<---------%<---------%<---------%<----

[-- Attachment #1.2: draft_date_is_good.diff --]
[-- Type: text/plain, Size: 632 bytes --]

--- gnus-draft.el	2004-01-05 23:37:34.000000000 +0100
+++ /tmp/gnus-draft.el	2004-01-15 09:10:17.000000000 +0100
@@ -154,6 +154,13 @@
 	(skip-syntax-forward "-")
 	(setq move-to (buffer-substring (point) (point-at-eol)))
 	(message-remove-header gnus-agent-target-move-group-header))
+
+      ;; Force Gnus to delete Date to have a newer one
+      ;; First ensure Date is to be regenerated :)
+      (when (memq 'Date message-required-mail-headers)
+        (message-remove-header "Date" t))
+
       (goto-char (point-min))
       (when (re-search-forward
 	     (concat "^" (regexp-quote gnus-agent-meta-information-header) ":")

[-- Attachment #1.3: Type: text/plain, Size: 204 bytes --]

-----%<---------%<---------%<---------%<---------%<---------%<----
-- 
Xavier Maillard
7 rue Jeanne Jugan, 51100 Reims, France
phone: +33 3 26 77 02 21, mobile: +33 6 68 04 64 37
email: zedek@gnu-rox.org

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]