[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: no confirmation that email sent when setting coding system
From: |
Kenichi Handa |
Subject: |
Re: no confirmation that email sent when setting coding system |
Date: |
Wed, 7 Aug 2002 21:24:59 +0900 (JST) |
User-agent: |
SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.1.30 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI) |
In article <address@hidden>, "Robert J. Chassell" <address@hidden> writes:
> Sometimes (as with two recent bug reports to Kai), Mail mode asks me
> which coding system to use (I have been choosing the default it
> offers, which in this case has been utf-8).
> After I choose the coding sytem, Emacs pops back the mail buffer,
> marked as changed (i.e., ** in the mode line), whereas the usual
> consequence of sending a message is to mark the buffer as unchanged
> (i.e., -- in the mode line).
> Also, in the usual course of events, an old *mail* buffer that is
> marked unchanged is reused; but in this circumstance, it is not.
> (This email message is being written in buffer *mail*<4> !)
I've just committed this change. Could you please try again
with the latest code or with this patch?
---
Ken'ichi HANDA
address@hidden
2002-08-07 Kenichi Handa <address@hidden>
* international/mule-cmds.el (select-safe-coding-system): Call
pop-to-buffer inside save-window-excursion and save-excursion.
Index: mule-cmds.el
===================================================================
RCS file: /cvs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.200
retrieving revision 1.201
diff -u -c -r1.200 -r1.201
cvs server: conflicting specifications of output style
*** mule-cmds.el 5 Aug 2002 16:34:53 -0000 1.200
--- mule-cmds.el 7 Aug 2002 12:21:25 -0000 1.201
***************
*** 676,690 ****
(coding-system-category elt)))
(push elt l))))
! ;; Make sure the offending buffer is displayed.
! (or (stringp from)
! (pop-to-buffer bufname))
! (save-excursion
! (goto-char (unencodable-char-position
! from to (mapcar #'car default-coding-system)))
! ;; Then ask users to select one form CODINGS.
! (unwind-protect
! (save-window-excursion
(with-output-to-temp-buffer "*Warning*"
(save-excursion
(set-buffer standard-output)
--- 676,690 ----
(coding-system-category elt)))
(push elt l))))
! (unwind-protect
! (save-window-excursion
! (save-excursion
! ;; Make sure the offending buffer is displayed.
! (unless (stringp from)
! (pop-to-buffer bufname)
! (goto-char (unencodable-char-position
! from to (mapcar #'car default-coding-system))))
! ;; Then ask users to select one from CODINGS.
(with-output-to-temp-buffer "*Warning*"
(save-excursion
(set-buffer standard-output)