From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54387 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Problem with "Send bounced message" Date: Tue, 21 Oct 2003 16:21:34 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1066720974 19172 80.91.224.253 (21 Oct 2003 07:22:54 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 21 Oct 2003 07:22:54 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+M2928@lists.math.uh.edu Tue Oct 21 09:22:52 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1ABqqy-0008FQ-00 for ; Tue, 21 Oct 2003 09:22:52 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1ABqqn-0007ME-00; Tue, 21 Oct 2003 02:22:41 -0500 Original-Received: from justine.libertine.org ([66.139.78.221]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1ABqqe-0007M6-00 for ding@lists.math.uh.edu; Tue, 21 Oct 2003 02:22:32 -0500 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id ECD323A004C for ; Tue, 21 Oct 2003 02:22:31 -0500 (CDT) Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 4.24) id 1ABqqc-0001T3-Pu; Tue, 21 Oct 2003 03:22:31 -0400 Original-To: Karl Eichwalder X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.4 (Reasonable Discussion, linux) Cancel-Lock: sha1:NGxUPXOS8vQozvZzWIfU972sjyc= X-Payment: hashcash 1.2 0:031021:ke@gnu.franken.de:fae9d139b902e74f X-Hashcash: 0:031021:ke@gnu.franken.de:fae9d139b902e74f X-Payment: hashcash 1.2 0:031021:ding@gnus.org:3284ea3ae5458ec8 X-Hashcash: 0:031021:ding@gnus.org:3284ea3ae5458ec8 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32041 32041] / [47 12] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:54387 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54387 --=-=-= Hi, >>>>> In >>>>> Karl Eichwalder wrote: > Running "Send bounced message" (S D b) on the attached message does not > work properly. Gnus skips this part: [...] > And sends the included forwarded message only. It is because there is the Return-Path header in the forwarded part of the original message. You may get the correct message by removing it using the `e' command (M-x gnus-summary-edit-article) in advance. I also made a patch (attached) to message.el. Although I cannot have belief that it is effective in all cases. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- message.el~ 2003-10-19 22:09:05 +0000 +++ message.el 2003-10-21 07:20:34 +0000 @@ -6203,16 +6203,20 @@ (mm-insert-part handles) (undo-boundary) (goto-char (point-min)) - (search-forward "\n\n" nil t) - (if (or (and (re-search-forward message-unsent-separator nil t) - (forward-line 1)) - (re-search-forward "^Return-Path:.*\n" nil t)) + (re-search-forward "\n\n+" nil t) + (setq boundary (point)) + (search-forward "\n\n" nil 'move) + (if (or (re-search-backward message-unsent-separator boundary t) + (re-search-backward "^Return-Path:.*\n" boundary t)) ;; We remove everything before the bounced mail. - (delete-region - (point-min) - (if (re-search-forward "^[^ \n\t]+:" nil t) - (match-beginning 0) - (point))) + (progn + (forward-line 1) + (delete-region + (point-min) + (if (re-search-forward "^[^ \n\t]+:" nil t) + (match-beginning 0) + (point)))) + (goto-char boundary) (when (re-search-backward "^.?From .*\n" nil t) (delete-region (match-beginning 0) (match-end 0))))) (mm-enable-multibyte) --=-=-=--