a patch to mm-uu [Was: Re: Whee!]

[Shenghuo ZHU <zsh@cs.rochester.edu>]

>>>>> "Hrvoje" == Hrvoje Niksic <hniksic@srce.hr> writes:

Hrvoje> It has bugs, though.  If the message is:

Hrvoje> <text 1>
Hrvoje> <uuencode>
Hrvoje> <text 2>

Hrvoje> then <text 1> begins with a spurious newline, and <text 2> is not
Hrvoje> shown at all.

-- 
Shenghuo

:- cut ---------------------------------------------
--- ChangeLog	1998/10/24 20:48:01	1.1
+++ ChangeLog	1998/10/24 20:50:15
@@ -1,3 +1,8 @@
+Sat Oct 24 16:48:51 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* mm-uu.el (mm-uu-dissect): Delete the begining spurious newline
+	and display last part.
+
 Sat Oct 24 20:31:55 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.38 is released.

--- mm-uu.el	1998/10/24 20:33:38	1.1
+++ mm-uu.el	1998/10/24 20:36:20
@@ -76,6 +76,7 @@
     (save-restriction
       (mail-narrow-to-head)
       (goto-char (point-max)))
+    (forward-line)
     (let ((text-start (point)) start-char end-char 
 	  type file-name end-line result)
       (while (re-search-forward mm-uu-begin-line nil t)
@@ -94,6 +95,7 @@
 			(intern (concat "mm-uu-" (symbol-name type) 
 				       "-end-line"))))
 	(when (re-search-forward end-line nil t)
+	  (forward-line)
 	  (setq end-char (point))
 	  (when (or (not (eq type 'binhex))
 		    (setq file-name 
@@ -138,7 +140,7 @@
 	     result)
 	    (setq text-start end-char))))
       (when result
-	(if (> start-char text-start)
+	(if (> (point-max) (1+ text-start))
 	    (push
 	     (list (mm-uu-copy-to-buffer text-start (point-max)) 
 		   '("text/plain") nil nil nil nil)