🚀 go-pugleaf

Silas S. Brown wrote:
 > I have this in my init file:
 >
 > (setq vm-mime-internal-content-type-exceptions '("text/html"))
 > (add-to-list 'vm-mime-type-converter-alist
 >              '("text/html" "text/plain" "lynx -force_html -dump -stdin"))
 >
 > Unfortunately the result is that messages containing MIME
 > types such as
 >
 > Content-type: text/html; charset=gb2312
 >
 > are converted into text/plain OK, but the "charset=gb2312"
 > part is ignored.  (lynx just passes the characters through
 > as it gets them, but VM doesn't interpret the gb2312
 > characters.)
 >
 > I think things like "text/html; charset=gb2312" should be
 > mapped to "text/plain; charset=gb2312" by the above rule,
 > not just to "text/plain".  (Obviously it would be awkward to
 > specify every single character set as a special case; my
 > mail uses rather a lot of them.)

I've been looking at this, to try to come up with a patch for you to
test.  vm-mime-type-converter-alist is only referenced by
vm-mime-can-convert, which is only called by
vm-mime-convert-undisplayable-layout and vm-decode-mime-layout (before
it calls vm-mime-convert-undisplayable-layout).  And
vm-mime-convert-undisplayable-layout already takes care to preserve the
content type parameters in the layout it returns (even if the lisp is a
little awkward):

	(vm-make-layout
	 'type (append (list (nth 1 ooo)) (cdr (vm-mm-layout-type layout)))
	 'qtype (append (list (nth 1 ooo)) (cdr (vm-mm-layout-type layout)))

But right above that, it inserts a "Content-Type" header into the work
buffer, without the parameters.  So perhaps that's what needs to be
tweaked.  Does this patch help?

*** vm-7.18/vm-mime.el.orig	Mon Oct 13 13:30:18 2003
--- vm-7.18/vm-mime.el	Fri Mar  5 10:29:20 2004
***************
*** 1460,1466 ****
   		       ex)
   	      (throw 'done nil)))
   	(goto-char (point-min))
! 	(insert "Content-Type: " (nth 1 ooo) "\n")
   	(insert "Content-Transfer-Encoding: binary\n\n")
   	(set-buffer-modified-p nil)
   	(message "Converting %s to %s... done"
--- 1460,1471 ----
   		       ex)
   	      (throw 'done nil)))
   	(goto-char (point-min))
! 	(insert "Content-Type: " (nth 1 ooo)
!                 (mapconcat (lambda (parameter=value)
!                              (concat "; " parameter=value))
!                            (cdr (vm-mm-layout-type layout))
!                            "")
!                 "\n")
   	(insert "Content-Transfer-Encoding: binary\n\n")
   	(set-buffer-modified-p nil)
   	(message "Converting %s to %s... done"
***************
*** 1467,1474 ****
   		 (car (vm-mm-layout-type layout))
   		 (nth 1 ooo))
   	(vm-make-layout
! 	 'type (append (list (nth 1 ooo)) (cdr (vm-mm-layout-type layout)))
! 	 'qtype (append (list (nth 1 ooo)) (cdr (vm-mm-layout-type layout)))
   	 'encoding "binary"
   	 'id (vm-mm-layout-id layout)
   	 'description (vm-mm-layout-description layout)
--- 1472,1479 ----
   		 (car (vm-mm-layout-type layout))
   		 (nth 1 ooo))
   	(vm-make-layout
! 	 'type (cons (nth 1 ooo) (cdr (vm-mm-layout-type layout)))
! 	 'qtype (cons (nth 1 ooo) (cdr (vm-mm-layout-type layout)))
   	 'encoding "binary"
   	 'id (vm-mm-layout-id layout)
   	 'description (vm-mm-layout-description layout)

-- 
Kevin