Re: test: empty line missed

[Matt Armstrong <matta@geoworks.com>]

zsh@cs.rochester.edu writes:

> test
> 
> You should find a "test" at the top of this article body.

This fixes it for me (as a patch to pgnus-0.31).

As Vladimir Volovich mentioned, others may not be seeing this problem
if their MTA automatically decodes base64 Content-Transfer-Encoding.

article-decode-charset narrows the region to the headers, then passes
the rest to mm-decode-body.  mm-decode-body assumes the entire
narrowed region is the body, so it feels free to clobber the the first
blank line.  But the first blank line separates the headers from the
body.

The fix is to just step past the blank line before narrowing so
mm-decode-body can't mess with it.  Not as obvious as a
message-narrow-to-body function, but it works.


*** gnus-art.el.orig    Mon Sep 21 18:30:55 1998
--- gnus-art.el Mon Sep 21 18:34:15 1998
***************
*** 960,1007 ****
--- 960,1008 ----
  (defun article-decode-charset (&optional prompt)
    "Decode charset-encoded text in the article.
  If PROMPT (the prefix), prompt for a coding system to use."
    (interactive "P")
    (save-excursion
      (save-restriction
        (message-narrow-to-head)
        (let* ((inhibit-point-motion-hooks t)
             (ct (message-fetch-field "Content-Type" t))
             (cte (message-fetch-field "Content-Transfer-Encoding" t))
             (ctl (and ct (condition-case ()
                              (mail-header-parse-content-type ct)
                            (error nil))))
             (charset (cond
                       (prompt
                        (mm-read-coding-system "Charset to decode: "))
                       (ctl
                        (mail-content-type-get ctl 'charset))
                       (gnus-newsgroup-name
                        (gnus-group-find-parameter
                         gnus-newsgroup-name 'charset))))
             buffer-read-only)
        (goto-char (point-max))
        (widen)
+       (forward-line 1)
        (narrow-to-region (point) (point-max))
        (when (or (not ct)
                  (equal (car ctl) "text/plain"))
          (mm-decode-body
           charset (and cte (intern (downcase
                                     (gnus-strip-whitespace cte))))))))))

-- 
matta