Re: something decodes my headers...

[Simon Josefsson <jas@extundo.com>]

Jan Rychter <jan@rychter.com> writes:

>  Simon> I think it might be a bug to invoke mail-extr on 8bit data.
>
> It is. It is really not designed to do that, and it only works for a
> subset of ISO-8859-1. Actually, I have the distinct impression that if
> we removed the 8859-1 support from mail-extr.el, the breakage would be
> noticed by many more people.

Yes.  OTOH, I doubt the Right Thing wrt mail-extr is to patch it.  It
should be rewritten.  But if there is a short patch that solve
problems, I guess it doesn't hurt.  Removing the iso-8859-1 support is
probably not a good thing in practice though, even if I agree in
theory.

>  Simon> Note that if it is bbdb that calls mail-extr, it is probably a
>  Simon> bug in bbdb.  Chopped names could indicate a bug in rfc2047.el
>  Simon> though, there where bugs like this recently (perhaps not fixed?
>  Simon> I recall emacs bugs caused them).
>
> Well, interestingly enough, mail-extract-address-components is being
> called TWICE whenever I enter a message. Once by Gnus, once by BBDB. In
> both cases, an 8-bit string is being passed. Backtraces below, with the
> name of the person in the From: field changed to my spamtrap:
>
>   mail-extract-address-components("full 8bit name <spam@rychter.com>")
>   mm-dissect-buffer(nil nil)

I don't see where the MIME decoding occurs before m-e-a-c is invoked
in that function.  It just seems to invoke (mail-fetch-field "from")
and then m-e-a-c on that string.  Could it be that the incoming
message had raw non-ASCII characters in it?  Does this patch help?
Assuming you leave g-e-a-c to its default value.

--- mm-decode.el.~6.91.~	Fri Apr 25 01:07:04 2003
+++ mm-decode.el	Wed Jun 11 06:37:37 2003
@@ -493,7 +493,8 @@
 	  ;; creates unibyte buffers. This `if', though not a perfect
 	  ;; solution, avoids most of them.
 	  (if from
-	      (setq from (cadr (mail-extract-address-components from))))))
+	      (setq from (cadr (funcall gnus-extract-address-components
+					from))))))
       (when cte
 	(setq cte (mail-header-strip cte)))
       (if (or (not ctl)