From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18707
Path: main.gmane.org!not-for-mail
From: Carsten Leonhardt <leo@arioch.oche.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Pterodactyl Gnus v0.47 is released
Date: 15 Nov 1998 23:29:27 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <hhn25sk2t4.fsf@arioch.oche.de>
References: <m3ogq8y8j1.fsf@sparky.gnus.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="==-=-="
X-Trace: main.gmane.org 1035157185 7632 80.91.224.250 (20 Oct 2002 23:39:45 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:39:45 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA21828
	for <jason@mailhost.sclp.com>; Sun, 15 Nov 1998 17:31:52 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB29282;
	Sun, 15 Nov 1998 16:31:42 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 15 Nov 1998 16:31:36 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id QAA06260 for <ding@hpc.uh.edu>; Sun, 15 Nov 1998 16:31:24 -0600 (CST)
Original-Received: from sundancer.oche.de (qmailr@sundancer.oche.de [194.94.252.29])
	by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id RAA21813
	for <ding@gnus.org>; Sun, 15 Nov 1998 17:31:13 -0500 (EST)
Original-Received: (qmail 22148 invoked by uid 10); 15 Nov 1998 22:30:52 -0000
Original-Received: (qmail 1969 invoked by uid 666); 15 Nov 1998 22:29:28 -0000
Original-To: ding@gnus.org
In-Reply-To: Lars Magne Ingebrigtsen's message of "15 Nov 1998 22:02:31 +0100"
Original-Lines: 28
User-Agent: Gnus/5.070047 (Pterodactyl Gnus v0.47) XEmacs/21.0 (Irish Goat)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18707
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18707


This is a MIME multipart message.  If you are reading
this, you shouldn't.

--==-=-=


>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

Lars> part has changed to #part, and stuff.

When I 'B m' an article, the article gets a whole set of new (for gnus
vital) headers (the old ones are separated by a newline from the new
ones).

< #multipart type=alternative>
leo
< #part type=text/enriched>
<bold>Carsten</bold>
< #/multipart>

(Lessee if I can multipart...)

...

Gnus hangs when trying to send the above message (I now disabled
multiparting by inserting spaces).

Backtrace:

(Argh! I tried to send this without any mime-stuff, but I get barfed
at for unbalanced parentheses in my mail!) <-> better close this paren 
=:-/

--==-=-=


Signaling: (quit)
  (if (re-search-forward "<#/?\\(multi\\)?part." nil t) (prog1 (buffer-substring beg ...) (unless ... ...)) (buffer-substring beg (goto-char ...)))
)
  (let ((beg ...)) (if (re-search-forward "<#/?\\(multi\\)?part." nil t) (prog1 ... ...) (buffer-substring beg ...)))
)
  mml-read-part()
  (cons (quote contents) (mml-read-part))
)
  (list (quote part) (quote (type . "text/plain")) (cons (quote contents) (mml-read-part)))
)
  (cons (list (quote part) (quote ...) (cons ... ...)) struct)
)
  (setq struct (cons (list ... ... ...) struct))
)
  (push (list (quote part) (quote ...) (cons ... ...)) struct)
)
  (cond ((looking-at "<#multipart") (push ... struct)) ((looking-at "<#part") (push ... struct)) (t (push ... struct)))
)
  (while (and (not ...) (not ...)) (cond (... ...) (... ...) (t ...)))
)
  (let (struct) (while (and ... ...) (cond ... ... ...)) (unless (eobp) (forward-line 1)) (nreverse struct))
)
  mml-parse-1()
  (nconc (mml-read-tag) (mml-parse-1))
)
  (cons (nconc (mml-read-tag) (mml-parse-1)) struct)
)
  (setq struct (cons (nconc ... ...) struct))
)
  (push (nconc (mml-read-tag) (mml-parse-1)) struct)
)
  (cond ((looking-at "<#multipart") (push ... struct)) ((looking-at "<#part") (push ... struct)) (t (push ... struct)))
)
  (while (and (not ...) (not ...)) (cond (... ...) (... ...) (t ...)))
)
  (let (struct) (while (and ... ...) (cond ... ... ...)) (unless (eobp) (forward-line 1)) (nreverse struct))
)
  mml-parse-1()
  (progn (set-syntax-table mml-syntax-table) (mml-parse-1))
)
  (unwind-protect (progn (set-syntax-table mml-syntax-table) (mml-parse-1)) (set-syntax-table table))
)
  (let ((table ...)) (unwind-protect (progn ... ...) (set-syntax-table table)))
)
  mml-parse()
  (let ((cont ...)) (with-temp-buffer (if ... ... ...) (buffer-string)))
)
  mml-generate-mime()
  message-encode-message-body()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit)
--==-=-=



--==-=-=--