bug in mm-uu

bug in mm-uu

[Vladimir Volovich]

Hi,

while digestifying (C-M-d) some mails i'm getting the following error:

Signaling: (wrong-type-argument stringp #<buffer  *mm-uu*<2>>)
  string-match("text/plain" #<buffer  *mm-uu*<2>>)
  mm-automatic-display-p(#<buffer  *mm-uu*<2>>)
  gnus-mime-display-single(((#<buffer  *mm-uu*> ("text/plain") nil nil nil nil) (#<buffer  *mm-uu*<2>> ("application/octet-stream") uudecode-decode-region nil ("attachment" ...) "timer.c.gz")))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(1080 nil)
  gnus-summary-display-article(1080)
  gnus-summary-read-document(nil)
* call-interactively(gnus-summary-read-document)

	Best regards, -- Vladimir.

Re: bug in mm-uu

[Shenghuo ZHU]

>>>>> "VVV" == Vladimir Volovich <vvv@vvv.vsu.ru> writes:

VVV> Hi,
VVV> while digestifying (C-M-d) some mails i'm getting the following error:

VVV> Signaling: (wrong-type-argument stringp #<buffer  *mm-uu*<2>>)
VVV>   string-match("text/plain" #<buffer  *mm-uu*<2>>)
VVV>   mm-automatic-display-p(#<buffer  *mm-uu*<2>>)
VVV>   gnus-mime-display-single(((#<buffer  *mm-uu*> ("text/plain") nil nil nil nil) (#<buffer  *mm-uu*<2>> ("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  <zsh@cs.rochester.edu>
+
+	* mm-uu.el (mm-uu-dissect): Create pseudo multipart head.
+
 Tue Oct 20 20:25:03 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* 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)
 

Re: bug in mm-uu

[Vladimir Volovich]

"ZSH" == Shenghuo ZHU writes:

 ZSH> A patch.

thanks a lot, it solved the prob.

	Best regards, -- Vladimir.