>>>> "sb" == SL Baur <steve(a)xemacs.org>
writes:
sb> Stephen J Turnbull <turnbull(a)sk.tsukuba.ac.jp> writes in
sb> xemacs-beta(a)xemacs.org:
> Here's a message that gives the second kind of bug (split
> encoded words lose).
sb> Gnus + TM is O.K.
This doesn't surprise me. It turns out that VM is doing something
tricky in the buffer and some things that _should_ be markers aren't.
We should ask Ken'ichi what he thinks the correct behavior of
`decode-coding-region' should be; I don't think it should move point,
myself, but I don't know what the "correct" behavior should be if
point starts strictly between START and END.
One problem is in vm-mime.el (vm-mime-charset-decode-region), see my
comments labeled ####:
(defun vm-mime-charset-decode-region (charset start end)
(or (markerp end) (setq end (vm-marker end)))
(cond ((or vm-xemacs-mule-p vm-fsfemacs-mule-p)
(if (or (and vm-xemacs-p (memq (device-type) '(x mswindows)))
(and vm-fsfemacs-p (eq window-system 'x))
nil)
(let ((buffer-read-only nil)
(cell (cdr (vm-string-assoc
charset
vm-mime-mule-charset-to-coding-alist)))
(oend (marker-position end))
;; #### below, VM is jumping right into next week,
;; so make `opoint' a marker:
;; (opoint (point)))
(opoint (vm-marker (point))))
(if cell
(progn
(set-marker end (+ start
(or (decode-coding-region
start end (car cell))
(- oend start))))
(put-text-property start end 'vm-string t)
(put-text-property start end 'vm-charset charset)
(put-text-property start end 'vm-coding (car cell))))
;; In XEmacs 20.0 beta93 decode-coding-region moves point.
;; #### but opoint has moved due to edits! marker
;; version works
(goto-char opoint))))
I'm not submitting this as a patch because it works only partially (I
still get incorrect displays; now in the VM-summary buffer the _first_
encoded word is not getting decoded, although both are correct in the
Presentation buffer). Sorry, I don't have time to investigate this
more carefully and won't have time for a while.
--
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091
__________________________________________________________________________
__________________________________________________________________________
What are those two straight lines for? "Free software rules."