From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/19404 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: p0.57: MIMEish uuencoded image throws error Date: 30 Nov 1998 23:42:48 -0500 Organization: Computer Dept of U Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nww4cscaf.fsf@zsh.cs.rochester.edu> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 X-Trace: main.gmane.org 1035157759 11422 80.91.224.250 (20 Oct 2002 23:49:19 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:49:19 +0000 (UTC) Return-Path: 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 XAA09578 for ; Mon, 30 Nov 1998 23:44:12 -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 WAB13773; Mon, 30 Nov 1998 22:44:00 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 30 Nov 1998 22:43:57 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id WAA15830 for ; Mon, 30 Nov 1998 22:43:48 -0600 (CST) 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 XAA09554 for ; Mon, 30 Nov 1998 23:43:40 -0500 (EST) 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 XAA19452 for ; Mon, 30 Nov 1998 23:43:37 -0500 Original-Received: from brain.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by slate.cs.rochester.edu (8.6.9/O) with ESMTP id XAA00343 for ; Mon, 30 Nov 1998 23:43:33 -0500 Original-Received: (from zsh@localhost) by brain.cs.rochester.edu (8.9.0/8.8.5) id XAA01510; Mon, 30 Nov 1998 23:42:49 -0500 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: Karl Kleinpaste's message of "30 Nov 1998 23:02:52 -0500" Original-Lines: 78 User-Agent: Gnus/5.070058 (Pterodactyl Gnus v0.58) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:19404 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:19404 >>>>> "KK" == Karl Kleinpaste writes: KK> A message containing nothing but a uuencoded .jpg throws this error KK> after requesting image display with `1 b': Fixed. ChangeLog: Mon Nov 30 23:38:02 1998 Shenghuo ZHU * mm-uu.el (mm-uu-dissect): Use mm-make-handle. -- Shenghuo :- cut ------------------------------------------------------ --- mm-uu.el 1998/12/01 04:34:33 1.1 +++ mm-uu.el 1998/12/01 04:37:33 @@ -118,16 +118,16 @@ (error nil)))) (if (> start-char text-start) (push - (list (mm-uu-copy-to-buffer text-start start-char) - text-plain-type cte nil nil nil) + (mm-make-handle (mm-uu-copy-to-buffer text-start start-char) + text-plain-type cte) result)) (push (cond ((eq type 'postscript) - (list (mm-uu-copy-to-buffer start-char end-char) - '("application/postscript") nil nil nil nil)) + (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) + '("application/postscript"))) ((eq type 'uu) - (list (mm-uu-copy-to-buffer start-char end-char) + (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) (list (or (and file-name (string-match "\\.[^\\.]+$" file-name) (mailcap-extension-to-mime @@ -135,10 +135,9 @@ "application/octet-stream")) mm-uu-decode-function nil (if (and file-name (not (equal file-name ""))) - (list "attachment" (cons 'filename file-name))) - file-name)) + (list "attachment" (cons 'filename file-name))))) ((eq type 'binhex) - (list (mm-uu-copy-to-buffer start-char end-char) + (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) (list (or (and file-name (string-match "\\.[^\\.]+$" file-name) (mailcap-extension-to-mime @@ -146,18 +145,17 @@ "application/octet-stream")) mm-uu-binhex-decode-function nil (if (and file-name (not (equal file-name ""))) - (list "attachment" (cons 'filename file-name))) - file-name)) + (list "attachment" (cons 'filename file-name))))) ((eq type 'shar) - (list (mm-uu-copy-to-buffer start-char end-char) - '("application/x-shar") nil nil nil nil))) + (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) + '("application/x-shar")))) result) (setq text-start end-char)))) (when result (if (> (point-max) (1+ text-start)) (push - (list (mm-uu-copy-to-buffer text-start (point-max)) - text-plain-type cte nil nil nil) + (mm-make-handle (mm-uu-copy-to-buffer text-start (point-max)) + text-plain-type cte) result)) (setq result (cons "multipart/mixed" (nreverse result)))) result)))