From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13767 Path: main.gmane.org!not-for-mail From: Robert Bihlmeyer Newsgroups: gmane.emacs.gnus.general Subject: Entering forwards with C-d Date: 03 Feb 1998 13:34:57 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: multipart/mixed; boundary="Multipart_Tue_Feb__3_13:34:57_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035153072 11017 80.91.224.250 (20 Oct 2002 22:31:12 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:31:12 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id DAA16118 for ; Wed, 4 Feb 1998 03:48:02 -0800 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id FAA13967 for ; Wed, 4 Feb 1998 05:45:01 -0600 (CST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id FAH16855; Wed, 4 Feb 1998 05:45:00 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 04 Feb 1998 05:44:08 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id FAA16837 for ; Wed, 4 Feb 1998 05:43:53 -0600 (CST) Original-Received: (qmail 21087 invoked by uid 504); 4 Feb 1998 11:43:50 -0000 Original-Received: (qmail 21084 invoked from network); 4 Feb 1998 11:43:48 -0000 Original-Received: from pong.ping.at (193.81.13.2) by claymore.vcinet.com with SMTP; 4 Feb 1998 11:43:48 -0000 Original-Received: (from uucp@localhost) by pong.ping.at (8.8.8/8.8.8) with UUCP id MAA05242 for ding@gnus.org; Wed, 4 Feb 1998 12:43:45 +0100 (CET) Original-Received: (qmail 684 invoked by uid 115); 3 Feb 1998 12:34:57 -0000 Original-To: ding@gnus.org X-Attribution: Robbe Original-Lines: 75 X-Mailer: Quassia Gnus v0.21/XEmacs 20.3 - "Vatican City" Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13767 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13767 --Multipart_Tue_Feb__3_13:34:57_1998-1 Content-Type: text/plain; charset=US-ASCII Hi, I was made aware, that you could "enter" digests and forwards with C-d from the summary buffer. This does not work with mimified forwards (multipart/mixed with a message/rfc822 part). Gnus itself produces (with TM, if that matters) such forwards, so it should probably understand them as well. I fixed this by adding recognition of "multipart/mixed" as a possible mime-"digest". Still, the undigested result did not have the right headers (i.e. mime headers instead of rfc822 headers), so I added another line. Now headers are in the right place, which makes replying to message/rfc822-parts possible. Sadly, the digest-group-summary still shows nothing useful (e.g. "[(none)]: (none)"). A patch is below. Robbe --Multipart_Tue_Feb__3_13:34:57_1998-1 Content-Type: text/plain; charset=US-ASCII diff -c qgnus/lisp/nndoc.el~ qgnus/lisp/nndoc.el *** qgnus/lisp/nndoc.el~ Tue Feb 3 13:34:03 1998 --- qgnus/lisp/nndoc.el Tue Feb 3 13:34:03 1998 *************** *** 465,479 **** boundary-id b-delimiter entry) (when (and (re-search-forward ! (concat "^Content-Type: *multipart/digest;[ \t\n]*[ \t]" "boundary=\"\\([^\"\n]*[^\" \t\n]\\)\"") nil t) ! (match-beginning 1)) ! (setq boundary-id (match-string 1) b-delimiter (concat "\n--" boundary-id "[\n \t]+")) (setq entry (assq 'mime-digest nndoc-type-alist)) (setcdr entry (list (cons 'head-end "^ ?$") (cons 'body-begin "^ ?\n") (cons 'article-begin b-delimiter) --- 465,480 ---- boundary-id b-delimiter entry) (when (and (re-search-forward ! (concat "^Content-Type: *multipart/\\(digest\\|mixed\\);[ \t\n]*[ \t]" "boundary=\"\\([^\"\n]*[^\" \t\n]\\)\"") nil t) ! (match-beginning 2)) ! (setq boundary-id (match-string 2) b-delimiter (concat "\n--" boundary-id "[\n \t]+")) (setq entry (assq 'mime-digest nndoc-type-alist)) (setcdr entry (list + (cons 'head-begin "^ ?$") (cons 'head-end "^ ?$") (cons 'body-begin "^ ?\n") (cons 'article-begin b-delimiter) --Multipart_Tue_Feb__3_13:34:57_1998-1 Content-Type: text/plain; charset=US-ASCII -- Robert Bihlmeyer reads: Deutsch, English, MIME, Latin-1, NO SPAM! --Multipart_Tue_Feb__3_13:34:57_1998-1--