[Mew-Win32 00190] Re: text/x-rot13-47-48

[Hideyuki SHIRAI]

白井です。

From: 小関 さん曰く
Subject: [Mew-Win32 00188] text/x-rot13-47-48
Message-ID: <13529.15520.434.kose at example.com>
Date: Thu, 5 Feb 1998 13:13:43 +0900

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

はじめまして f(^^)

# ずいぶん前にconfirmをMLの方に出されたのをみて ^^;;、まだ登場しな
# いなぁと思っていました。

小関> 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だけだし。:-)

自動でやらない方が、『ワクワク』していいかも知れないですね。
# もともと、独り言モードの様なものだし……

今のところ、(require 'tm-def)してから、以下の様にしています。

# mew-shirai.elの一部です。mew-shirai.elはmew-vars.elの最後で
# requireしています。
## hookでうまく設定できなかったので、遂にオリジナルに手をいれて
## しまいました。一行だけだからよしとしましょう。

そのうち、mew-user名.elとかあったら、自動的にrequireしたりして……

# Image/Tiffは余分だけど、うちの会社の『インターネットファックス』
# というのが、これ使っているから、開発部門に敬意を込めているだけです。

(setq mew-mime-content-type-text-list
      (append
       '("Text/X-Rot13-47-48")
       mew-mime-content-type-text-list))

(setq mew-mime-content-type-binary-list
      (append
       '("Image/Tiff")
      mew-mime-content-type-binary-list))

(setq mew-mime-content-type-list
      (append
       '("Text/X-Rot13-47-48"
	 "Image/Tiff")
       mew-mime-content-type-list))

(setq mew-mime-content-type
      (append
       '(("text/x-rot13.*" ".*\.xrot" nil mew-prog-xrot mew-icon-text)
	 ("image/tiff"  "\\.tif?f$" mew-b64 mew-prog-image mew-icon-image))
       mew-mime-content-type))

(defvar mew-prog-xrot '(mew-mime-text/x-rot () nil))

(defun mew-mime-text/x-rot (begin end &optional params)
  (if (> end begin)
      (save-excursion
	(set-buffer (mew-buffer-message))
	(let ((buffer-read-only nil))
	  (insert-buffer-substring (mew-current-get 'cache) begin end)
	  (goto-char (point-min))  ;;
	  (set-mark (point-min))   ;;
	  (goto-char (point-max))  ;; (mule-caesar-region (point-min) (point-max))
	  (mark)                   ;; と ifでわければ、OKですね。
	  (tm:caesar-region)       ;;
	  (if mew-eof-string
	      (progn
		(goto-char (point-max)) ;; necessary?
		(insert mew-eof-string)))
	  )
	(cond (mew-break-pages 
	       (goto-char (point-min))
	       (mew-message-narrow-to-page)
	       ))
	(set-buffer-modified-p nil) ;; xxx
	))
  )

というように、ほとんどmew-mime-text/plainのパクリです。^^;;;

# 小関さんの方が、x-rot13の意義には沿っていると思います。

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         text/x-rot13-47-48
サイズ:     520 バイト
説明:       独り言
URL:        <http://www.mew.org/pipermail/mew-win32/attachments/19980205/b0d5d81d/attachment.bin>
-------------- next part --------------

--
白井秀行 (Hideyuki SHIRAI)