From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18000 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: bug in mm-uu Date: 20 Oct 1998 16:43:38 -400 Organization: Computer Dept of U Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <5bzparklqd.fsf@vodka.cs.rochester.edu> References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035156598 3785 80.91.224.250 (20 Oct 2002 23:29:58 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:29:58 +0000 (UTC) Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA18092 for ; Tue, 20 Oct 1998 16:44:21 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB07713; Tue, 20 Oct 1998 15:44:07 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 20 Oct 1998 15:44:07 -0500 (CDT) 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 PAA11032 for ; Tue, 20 Oct 1998 15:43:58 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id QAA18073 for ; Tue, 20 Oct 1998 16:43:43 -0400 (EDT) Original-Received: from slate.cs.rochester.edu (slate.cs.rochester.edu [192.5.53.101]) by cayuga.cs.rochester.edu (8.6.9/O) with ESMTP id QAA25479 for ; Tue, 20 Oct 1998 16:43:38 -0400 Original-Received: from vodka.cs.rochester.edu (vodka.cs.rochester.edu [192.5.53.196]) by slate.cs.rochester.edu (8.6.9/O) with ESMTP id QAA23663 for ; Tue, 20 Oct 1998 16:43:38 -0400 Original-Received: (from zsh@localhost) by vodka.cs.rochester.edu (SMI-8.6/N++) id QAA18517; Tue, 20 Oct 1998 16:43:38 -0400 Original-To: ding@gnus.org X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q In-Reply-To: Vladimir Volovich's message of "20 Oct 1998 23:11:26 +0400" Original-Lines: 60 User-Agent: Gnus/5.070036 (Pterodactyl Gnus v0.36) Emacs/20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18000 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18000 >>>>> "VVV" == Vladimir Volovich writes: VVV> Hi, VVV> while digestifying (C-M-d) some mails i'm getting the following error: VVV> Signaling: (wrong-type-argument stringp #>) VVV> string-match("text/plain" #>) VVV> mm-automatic-display-p(#>) VVV> gnus-mime-display-single(((# ("text/plain") nil nil nil nil) (#> ("application/octet-stream") uudecode-decode-region nil ("attachment" ...) "timer.c.gz"))) VVV> gnus-display-mime() VVV> gnus-article-prepare-display() VVV> gnus-article-prepare(1080 nil) VVV> gnus-summary-display-article(1080) VVV> gnus-summary-read-document(nil) VVV> * call-interactively(gnus-summary-read-document) VVV> Best regards, -- Vladimir. A patch. BTW, Lars added gnus-display-mixed, but no entries in ChangeLog. -- Shenghuo :- cut ------------------------------------------------------------ --- ChangeLog.orig Tue Oct 20 16:30:21 1998 +++ ChangeLog Tue Oct 20 16:24:32 1998 @@ -1,3 +1,7 @@ +Tue Oct 20 16:22:51 1998 Shenghuo ZHU + + * mm-uu.el (mm-uu-dissect): Create pseudo multipart head. + Tue Oct 20 20:25:03 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.36 is released. --- mm-uu.el.orig Tue Oct 20 16:30:27 1998 +++ mm-uu.el Tue Oct 20 16:22:09 1998 @@ -137,13 +137,14 @@ '("application/x-shar") nil nil nil nil))) result) (setq text-start end-char)))) - (if (and result - (> start-char text-start)) - (push - (list (mm-uu-copy-to-buffer text-start (point-max)) - '("text/plain") nil nil nil nil) - result)) - (nreverse result)))) + (when result + (if (> start-char text-start) + (push + (list (mm-uu-copy-to-buffer text-start (point-max)) + '("text/plain") nil nil nil nil) + result)) + (setq result (cons "multipart/mixed" (nreverse result)))) + result))) (provide 'mm-uu)