From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/27643 Path: main.gmane.org!not-for-mail From: Jim Davidson Newsgroups: gmane.emacs.gnus.general Subject: message forwarding and MIME Date: Sat, 04 Dec 1999 00:59:41 GMT Organization: SunSITE Denmark (sunsite.auc.dk) Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035164633 25622 80.91.224.250 (21 Oct 2002 01:43:53 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:43:53 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA20839 for ; Fri, 3 Dec 1999 20:00:51 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB07854; Fri, 3 Dec 1999 19:00:16 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 03 Dec 1999 19:00:19 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id TAA02633 for ; Fri, 3 Dec 1999 19:00:08 -0600 (CST) Original-Received: from sunsite.auc.dk (sunsite.auc.dk [130.225.51.30]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id TAA20825 for ; Fri, 3 Dec 1999 19:59:43 -0500 (EST) Original-Received: (qmail 4096 invoked by uid 509); 4 Dec 1999 00:59:42 -0000 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: emacs.ding Original-Lines: 12 User-Agent: Gnus/5.070099 (Pterodactyl Gnus v0.99) Emacs/20.4 Original-NNTP-Posting-Host: 216.221.224.44 Original-X-Complaints-To: news@sunsite.auc.dk Original-X-Trace: sunsite.auc.dk 944269181 216.221.224.44 (Sat, 04 Dec 1999 01:59:41 MET) Original-NNTP-Posting-Date: Sat, 04 Dec 1999 01:59:41 MET Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:27643 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:27643 --=-=-= I'm glad that the flag message-forward-as-mime made it into v .99. It would be nice if the non-MIME behavior worked the same as for Gnus 5.7, by inserting the start-separator and end-separator around the message. The following patch (not in CVS) would do that. -- Jim Davidson jdavidso @ csi.com --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=message-forward.patch Content-Description: insert separators around non-MIME forwarding *** message.el.old Wed Dec 01 08:30:56 1999 --- message.el Fri Dec 03 16:24:02 1999 *************** *** 279,284 **** --- 279,296 ---- :type 'file :group 'message-headers) + (defcustom message-forward-start-separator + "------- Start of forwarded message -------\n" + "*Delimiter inserted before forwarded messages." + :group 'message-forwarding + :type 'string) + + (defcustom message-forward-end-separator + "------- End of forwarded message -------\n" + "*Delimiter inserted after forwarded messages." + :group 'message-forwarding + :type 'string) + (defcustom message-make-forward-subject-function 'message-forward-subject-author-subject "*A list of functions that are called to generate a subject header for forwarded messages. *************** *** 3847,3859 **** (message-goto-body) (if message-forward-as-mime (insert "\n\n<#part type=message/rfc822 disposition=inline>\n") ! (insert "\n\n")) (let ((b (point)) e) (mml-insert-buffer cur) (setq e (point)) ! (and message-forward-as-mime ! (insert "<#/part>\n")) (when (and (not current-prefix-arg) message-forward-ignored-headers) (save-restriction --- 3859,3872 ---- (message-goto-body) (if message-forward-as-mime (insert "\n\n<#part type=message/rfc822 disposition=inline>\n") ! (insert message-forward-start-separator)) (let ((b (point)) e) (mml-insert-buffer cur) (setq e (point)) ! (if message-forward-as-mime ! (insert "<#/part>\n") ! (insert message-forward-end-separator)) (when (and (not current-prefix-arg) message-forward-ignored-headers) (save-restriction --=-=-=--