[Mew-dist 13651] Re: mew-summary-reedit

[Tak Ota]

鋭い洞察ですね。

白井> ここで、draft を "C-xC-s" の mew-draft-save-buffer ではなくて、
白井> menu の "Files" => "Save buffer" や "M-x save-buffer" で保存する
白井> と、当然 sjis で保存されちゃうので、+draft で "E" したときに
白井> mew-cs-draft で読み込むので ota さんの言われるようになりますね。

まさに上述の通りのことを行っていました。

白井> 最初に、draft を立ち上げるときから mew-cs-draft で拘束してしまう、
白井> に一票。

そう致します。ありがとうございました。

ところで「"\C-x\C-s" の mew-draft-save-buffer」を使っていない理由は普
段非標準の key binding を使用しており save-buffer は別なキーに割当てて
います。さらに "C-x" を別の意味に使用しているので mew-draft-mod-map を
修正するために

  (add-hook 'mew-draft-mode-hook
	    (lambda ()
	      (define-key mew-draft-body-map "\C-x" 'next-line)
	      (define-key mew-draft-mode-map "\C-x" 'next-line)))

ということをやっています。標準をお使いの方々からすれば変態的行為と思わ
れるかもしれませんが私は CP/M 時代からの Word Start バインディングをい
まだにひきずっています。

ところでこのような変態的な人を救うためという言うよりは一般性を高めるた
めに mew-draft.el の中にある次の２行を


(define-key (symbol-value symmap) "\C-x\C-s" 'mew-draft-save-buffer)

...

(define-key mew-draft-mode-map "\C-x\C-s" 'mew-draft-save-buffer)


以下のものに変更してはどうでしょうか？


(substitute-key-definition
 'save-buffer
 'mew-draft-save-buffer
 (symbol-value symmap)
 (current-global-map))

...

(substitute-key-definition
 'save-buffer
 'mew-draft-save-buffer
 'mew-draft-mode-map
 (current-global-map))