[Mew-Win32 01662] mew-caeser の拡張 (Re: IMAP4)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-Win32 01661] Re: IMAP4
Message-ID: <19990728121505Q.shirai at example.com>
Date: Wed, 28 Jul 1999 12:15:05 +0900

白井> P.P.S
白井> さっき(？)の himi さんのメールで、UTF-8 はいいとして、UTF-8 +
白井> X-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)
	(progn
	  (mew-summary-display nil)
	  (set-buffer (mew-buffer-message))
	  (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))))))

-- 
白井秀行 (mailto:shirai at example.com)