🚀 go-pugleaf

I have the problem that vm sents my mails with a charset iso-2022-jp
header rather than utf-8 or latin1.

I use vm 7.19 and emacs 21.4.1

After code research I found the following issue:

vm-mime.el contains

----

(defun vm-determine-proper-charset (beg end)
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (catch 'done
	(goto-char (point-min))
	(if (or vm-xemacs-mule-p 
		(and vm-fsfemacs-mule-p enable-multibyte-characters))
	    (let ((charsets (delq 'ascii (vm-charsets-in-region
					  (point-min) (point-max)))))
	      (cond ((null charsets)
		     "us-ascii")
		    ((cdr charsets)
		     (or (car (cdr
			       (assq (vm-coding-system-name
				      buffer-file-coding-system)
;;; watch the line above ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				     vm-mime-mule-coding-to-charset-alist)))
			 "iso-2022-jp"))
		    (t
		     (or (car (cdr
			       (assoc
				(car charsets)
				vm-mime-mule-charset-to-charset-alist)))
			 "unknown"))))

----

On my system, vm-coding-system-name is an alias for symbol-name, which
returns a *string*.  Hence the above marked assq statement compares
the *string* "utf-8" against the *symbol* utf-8 in 
vm-mime-mule-coding-to-charset-alist.  This lookup fails, thus (assq
...) returns nil, and the hard coded default "iso-2022-jp" is used.

For a quick hack I changed 

   (vm-coding-system-name buffer-file-coding-system)

to just

   buffer-file-coding-system

and this seems to work much better for me.  However I am not too deep
in vm to know about the proper use of vm-coding-system-name alias, so 
I don't expect that my hack is of general use.

Any opinions on that?