p0.40 still doesn't produce 1st text/plain portion

p0.40 still doesn't produce 1st text/plain portion

[Karl Kleinpaste]

http://www.cs.cmu.edu/~karl/pgnus/no-plain-again contains 1 screenshot
and the original article.  The image displays fine now, the text/html
help text has been rendered complete with apparent clickability on the
URL, but the article text is AWOL.

--karl

Re: p0.40 still doesn't produce 1st text/plain portion

[Shenghuo ZHU]

>>>>> "Karl" == Karl Kleinpaste <karl@jprc.com> writes:

Karl> http://www.cs.cmu.edu/~karl/pgnus/no-plain-again contains 1
Karl> screenshot and the original article.  The image displays fine
Karl> now, the text/html help text has been rendered complete with
Karl> apparent clickability on the URL, but the article text is AWOL.

1st portion IS produced, although not correctly. The reason is that
there is no header in 1st portion. The attached patch makes gnus show
the whole portion.

BTW: ietf-drums-narrow-to-header may face the same bug.

In GNU Emacs + pgnus 0.40, the html portion is shown before the first
mime-button. Is my W3 too old? (WWW 4.0pre.23, URL p4.0pre.23, MM
1.96)

ClariNet offers photos in MIME multipart format in two resolutions, [Sm]all
and Large [Lg], posted as two articles with the same story. Choose the one
that's best for your network connection and optionally read the other one by
following the USENET or web-browser links. Our web site has full details on
how to use the pictures.[1. text/plain]

-- 
Shenghuo

:- cut -----------------------------------------------
--- ChangeLog	1998/10/26 19:37:04	1.1
+++ ChangeLog	1998/10/26 19:38:50
@@ -1,3 +1,7 @@
+Mon Oct 26 14:37:19 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* mm-decode.el (mm-copy-to-buffer): Make it works when no header.
+
 Sun Oct 25 23:11:44 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.40 is released.

--- mm-decode.el	1998/10/26 19:36:00	1.1
+++ mm-decode.el	1998/10/26 19:36:32
@@ -174,7 +174,7 @@
     (let ((obuf (current-buffer))
 	  beg)
       (goto-char (point-min))
-      (search-forward "\n\n" nil t)
+      (search-forward-regexp "^\n" nil t)
       (setq beg (point))
       (set-buffer (generate-new-buffer " *mm*"))
       (insert-buffer-substring obuf beg)