🚀 go-pugleaf

[I originally sent this to gnu.emacs.vm.info, but it hasn't shown up there.  So
here's another try.]

Kyle Jones wrote:

 > Changes since VM 7.14:
...
 > * vm-decode-mime-encoded-words: do charset conversion if needed.
 >   Forgot to add this back when vm-mime-charset-converter-alist
 >   was added.


...


 > *** dist/vm-mime.el.dist	Thu Mar 27 20:34:53 2003
 > --- vm-mime.el	Sat May  3 16:43:45 2003
 > ***************
 > *** 737,739 ****
 >   	(buffer-read-only nil)
 > ! 	charset encoding match-start match-end start end)
 >       (save-excursion
 > --- 737,739 ----
 >   	(buffer-read-only nil)
 > ! 	charset need-conversion encoding match-start match-end start end)
 >       (save-excursion
 > ***************
 > *** 763,764 ****
 > --- 763,767 ----
 >   			   (delete-region (point) end)))
 > + 	  (and need-conversion
 > + 	       (setq charset (vm-mime-charset-convert-region
 > + 			      charset start end)))
 >   	  (vm-mime-charset-decode-region charset start end)

But need-conversion is never set in that function.  This patch just adds the
same code used in vm-decode-mime-message-headers:

*** vm-mime.el.dist	Mon May  5 09:18:43 2003
--- vm-mime.el	Wed May  7 12:20:20 2003
***************
*** 747,753 ****
    	      end (vm-marker (match-end 5)))
    	;; don't change anything if we can't display the
    	;; character set properly.
! 	(if (not (vm-mime-charset-internally-displayable-p charset))
    	    nil
    	  (delete-region end match-end)
    	  (condition-case data
--- 747,755 ----
    	      end (vm-marker (match-end 5)))
    	;; don't change anything if we can't display the
    	;; character set properly.
! 	(if (and (not (vm-mime-charset-internally-displayable-p charset))
! 		 (not (setq need-conversion
! 	
	    (vm-mime-can-convert-charset charset))))
    	    nil
    	  (delete-region end match-end)
    	  (condition-case data

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>