[Mew-Win32 00188] text/x-rot13-47-48

[小関 吉則 (KOSEKI Yoshinori)]

こせきです。はじめまして。:-)

shuuic-k> > P.S.2
shuuic-k> > おぉ、mew-os2.elを見ると、x-rot13 に対応していますね。オッフィシャ
shuuic-k> > ルにはダメだろうけど、こういう手があったか、と妙に感心した。
shuuic-k> 
shuuic-k> これ、よくわからないのでどうしても見たい時は nkf してる私...

Shirai> tm:caesar-regionって関数で暗号化/復号化が出来るから、
Shirai> # と以前、私も教えてもらった(mule for win32 MLで)

Shirai> mime-typeに"text/x-rot.*"とでっちあげて、mew-mime-text/plainをコ
Shirai> ピーして  

そうか、そうやるのか、じゃぁ白井さんが作ってくれるまで待とう
かしら。^^;)

私は~/.emacsで読むだけはできるようにしています。

(add-hook 'mew-summary-mode-hook
	  (function
	   (lambda ()
	     (define-key (current-local-map) "\C-c\C-r" 'kose-mew-rot)
	     )))

;;
(require 'mule-caesar)

;;
(defun kose-mew-rot ()
  (interactive)
  (save-excursion
    (set-buffer (get-buffer-create (mew-buffer-message)))
    (setq buffer-read-only nil)
    (mule-caesar-region (point-min) (point-max))
    (setq buffer-read-only t)
      ))

なんて安直なってやつね。:-) 自動でもやらないし。:-)
SEMIだけだし。:-)
--
こせき @ I love GNU, Mule and Meadowのページ作成中
http://www.NetLaputa.ne.jp/~kose/
kose at example.com