;; $B$a$C$A$c4JC1!#$*$^$1$K%@%5%@%5!#(B(^^;
(autoload 'mule-caesar-region "mule-caesar")
;; $B$A$g$C$H2~NI(B
(defun TT:mew-caesar-message ()
  (interactive)
  (save-excursion
    (set-buffer (mew-buffer-message))
    (let ((buffer-read-only nil))
      (mule-caesar-region (point-min) (point-max))
      (set-buffer-modified-p nil))))

;; $B$3$s$J$b$s$G$9$+$M!<!#(B
;(add-hook 'mew-init-hook
;  (function
;   (lamda ()
;	  (define-key mew-summary-mode-map "R" 'mew-summary-redist)
;	  (define-key mew-summary-mode-map "r" 'TT:mew-caesar-message))))

;; X-Rot13 $B$J(B mail/article $B$r=q$/$K$O!"$3$s$J$N$bMW$k$G$7$g$&!#(B
;(add-hook 'mew-init-hook
;          (function
;           (lambda ()
;             (nconc mew-mime-content-type-text-list
;                    '("Text/X-Rot13-47"))
;             (nconc mew-mime-content-type-list
;                    '("Text/X-Rot13-47")))))

;; $B$s$8$c(B decode $B$7$F$_$^$7$g$&!#(B:-)

;;; $BSxSUSfSu(B "e" $BSC(B zrj-fhzznel-erqvfg $BSzShS<S}S[TST5SZSwgoSSS/ShSw(B...
;;; 
;;; $Bj5PQS9S^(B znpuvar $BS}p_SvnaSuSfS/SUSDSvShS9PR(B(^^;
;;; $BSlS=Sv{-S[b!S2SnSwS\SzPQiRSoS=SZSSS<SZSyPkSwj(SrSu(B
;;; $BS|S-S`S/SySbSvq]heP'(Bejub [erghea]$BP(SrSuqvSsSDSvShS[PQ(B
;;; $Bq8sBSbS=S[(B xgrez $BSvSyS^Su(B zhyr (Zrj) $BS}TUTRTDTxTUSz(B zbhfr phefbe $BS[(B
;;; $BuOSrSuS<S3SDSvShSZS:(B jub $BSrSun|Sz(B Erqvfgevohgr $BSfSnSbSwSz(B
;;; $BSySrSuSfS/SUSDSvSh(B ($Bb}s;S}(B erghea $BS/SvqvSrSuS<SZS:(B...)$BPR(B
;;; 
;;; $BSlSDSvPQtGpbSlSDSyn|SSSyS^SrSu(B ZNVYRE-QNRZBA $BSdSDS}(B
;;; $BSYoS~rSzSySrSuSfS/SUSwSSSUS@S`SvShPR(B
;;; $BPE(B $BSuSSSUSZnaS<SyS9PR(B(^^; $BP5(B $Bj5(B