[Mew-Win32 01661] Re: IMAP4

[Hideyuki SHIRAI ( 白井秀行 )]

From: 小関 吉則 (KOSEKI Yoshinori) <kose at example.com> さん曰く
Subject: [Mew-Win32 01660] Re: IMAP4
Message-ID: <1999Jul28emhtbi5j.kose at example.com>
Date: 28 Jul 1999 11:52:08 +0900

小関> きのうからなんで動かないのかずーーーーーと悩んでた。
小関> 
小関> 白井> 7. なにも考えずに "g" => "%#mh/ml/mew-win32"
小関> 
小関> わっかりましたよん。白井さんちは ~/.mh_profile があってその
小関> 中で MH のフォルダを指定(Path: で)しているでしょ。

おぉ、まだありますよ。~/Mail/scan.form もまだあります。

# 捨てたら二度と書けなそうな気がする。特に scan.form は苦労した
# もんな。

小関> ボクの場合は MH をとっくに捨てたんで ~/.mh_profile がありま
小関> せん。なもんで、MH のフォルダがわかんないんで、

う〜〜ん、ごめん。(__)

P.S.
宴会(？)は、現状の提案で OK です。私ももっといろんな人に参加して
いただきたいです。

# Kさん、Yさんとか名指ししちゃったりして ^^;;;

P.P.S
さっき(？)の himi さんのメールで、UTF-8 はいいとして、UTF-8 +
X-Rot13 部分を簡単に読めるようにしてみました。

(define-key global-map "\C-x9r" 'mew-caesar-rot13) ;; お好みにしてください。

(defun mew-caesar-rot13 (&optional arg)
  (interactive "P")
  (if (or (not (boundp 'mew-mail-path)) (null mew-mail-path))
      (save-excursion
        (require 'mew)
        (mew-init)
        (if (get-buffer mew-buffer-hello)
            (kill-buffer mew-buffer-hello))))
  (save-excursion
    (if (eq major-mode 'mew-summary-mode)
	(let ((mess (or (mew-cache-hit
			 (cons (buffer-name) (mew-summary-message-number)))
			(mew-buffer-message))))
	  (set-buffer mess)
	  (setq arg t)))
    (let ((buffer-read-only nil))
      (if (and (boundp 'mew-use-smiley-mule) mew-use-smiley-mule
	       (fboundp 'smiley-encode-buffer)
	       (eq major-mode 'mew-message-mode))
	  (smiley-encode-buffer))
      (if arg
	  (mew-caesar-region (point-min) (point-max))
	(mew-caesar-region (region-beginning) (region-end))))))

-- 
白井秀行＠わたしゃ、Candies (特にみきちゃん) の大ファンだった。(謎)