Package: xemacs21-basesupport
Version: 2009.02.17-1
Severity: important
When an incoming message contains UTF-8 formatted headers, VM won't save the
inbox but fails with a "no such coding; utf-8" error.
-- System Information:
Debian Release: squeeze/sid
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'stable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.29-1-amd64 (SMP w/2 CPU cores)
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Shell: /bin/sh linked to /bin/bash
Versions of packages xemacs21-basesupport depends on:
ii perl 5.10.0-22 Larry Wall's Practical Extraction
xemacs21-basesupport recommends no packages.
xemacs21-basesupport suggests no packages.
-- no debconf information
-- .vm settings
setq
...
vm-coding-system-priorities '(iso-8859-1 iso-8859-15 utf-8)
...
-- xemacs/init.el settings
;; VM fixes
(defun vm-sort-coding-systems-predicate (a b)
(> (length (memq a vm-coding-system-priorities))
(length (memq b vm-coding-system-priorities))))
(setq vm-coding-system-priorities
'(iso-latin-1 iso-latin-9 mule-utf-8 mac-roman)
mm-coding-system-priorities vm-coding-system-priorities)
; The next line is for a noautoload vm.elc. Otherwise use "vm-mime".
(eval-after-load "vm"
; The next line is for an autoload (default) vm.elc. Otherwise use "vm".
;(eval-after-load "vm-mime"
'(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 'compound-text (find-coding-systems-region
(point-min) (point-max)))))
(cond ((equal charsets '(undecided))
"us-ascii")
(t
(setq charsets
(sort charsets 'vm-sort-coding-systems-predicate))
(while charsets
(let ((cs (coding-system-get (pop charsets)
'mime-charset)))
(if cs
(throw 'done (symbol-name cs))))))))
(and (re-search-forward "[^\000-\177]" nil t)
(throw 'done (or vm-mime-8bit-composition-charset
"iso-8859-1")))
(throw 'done vm-mime-7bit-composition-charset)))))))
---
(set-input-mode (car (current-input-mode))
(nth 1 (current-input-mode))
0)
Best regards,
Fredrik
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
