From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39948 Path: main.gmane.org!not-for-mail From: "Matt Armstrong" Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] Bug fix for mail-followup-to Date: Sat, 03 Nov 2001 14:09:01 -0700 Sender: owner-ding@hpc.uh.edu Message-ID: <87hesbef4i.fsf@squeaker.lickey.com> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035175577 30665 80.91.224.250 (21 Oct 2002 04:46:17 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:46:17 +0000 (UTC) Return-Path: Original-Received: (qmail 16533 invoked from network); 3 Nov 2001 21:10:31 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 3 Nov 2001 21:10:31 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16082v-0001yH-00; Sat, 03 Nov 2001 15:09:41 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 03 Nov 2001 15:09:22 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id PAA04431 for ; Sat, 3 Nov 2001 15:09:10 -0600 (CST) Original-Received: (qmail 16523 invoked by alias); 3 Nov 2001 21:09:21 -0000 Original-Received: (qmail 16518 invoked from network); 3 Nov 2001 21:09:21 -0000 Original-Received: from hank.lickey.com (64.81.100.235) by gnus.org with SMTP; 3 Nov 2001 21:09:21 -0000 Original-Received: from squeaker.lickey.com (squeaker.lickey.com [192.168.100.10]) by hank.lickey.com (Postfix) with ESMTP id 5C6EBEE30 for ; Sat, 3 Nov 2001 14:09:06 -0700 (MST) Original-Received: from localhost (localhost [127.0.0.1]) by squeaker.lickey.com (Postfix) with ESMTP id E0D76BD48 for ; Sat, 3 Nov 2001 14:09:05 -0700 (MST) Original-Received: by squeaker.lickey.com (Postfix, from userid 1000) id C4914BD2A; Sat, 3 Nov 2001 14:09:04 -0700 (MST) Original-To: ding@gnus.org Original-Lines: 46 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1 (i386-debian-linux-gnu) Mail-Followup-To: ding@gnus.org X-Delivery-Agent: TMDA v0.40/Python 1.5.2 (linux2) X-Virus-Scanned: by AMaViS snapshot-20010714 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:39948 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39948 If you trace through message-send-mail, you'll see that the second call to message-generate-headers -- the one that adds the Mail-Followup-To: header -- erases the previously generated Date:, Message-Id: and Lines: headers. This is bad because only the Lines: header gets subsequently generated, so the Message-Id: and Date: headers must be inserted by the MTA (sendmail, etc.). This patch fixes that: Index: lisp/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 6.825 diff -u -r6.825 ChangeLog --- lisp/ChangeLog 2001/11/01 18:53:26 6.825 +++ lisp/ChangeLog 2001/11/03 20:38:06 @@ -1,3 +1,9 @@ +2001-11-03 Matt Armstrong + + * message.el (message-send-mail): Set message-deletable-headers to + nil around call to message-generate-headers when generating + Mail-Followup-To: (so Message-Id:, Date:, etc. are not deleted). + 2001-11-01 Simon Josefsson * message.el (message-insert-canlock): New variable. Index: lisp/message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 6.145 diff -u -r6.145 message.el --- lisp/message.el 2001/11/01 18:53:26 6.145 +++ lisp/message.el 2001/11/03 20:38:16 @@ -2572,8 +2572,9 @@ message-subscribed-addresses message-subscribed-address-functions) (not (mail-fetch-field "mail-followup-to"))) - (message-generate-headers - `(("Mail-Followup-To" . ,(message-make-mft)))) + (let ((message-deletable-headers nil)) + (message-generate-headers + `(("Mail-Followup-To" . ,(message-make-mft))))) ;; otherwise, delete the MFT header if the field is empty (when (equal "" (mail-fetch-field "mail-followup-to")) (message-remove-header "Mail-Followup-To")))