diff -c wemiko-unofficial-199911032309/mime-edit.el nisemi-199911032309/mime-edit.el
*** wemiko-unofficial-199911032309/mime-edit.el	Thu Nov  4 08:05:59 1999
--- nisemi-199911032309/mime-edit.el	Thu Nov  4 11:20:49 1999
***************
*** 193,199 ****
       ("css") ; rfc2318
       ("xml") ; rfc2376
       ("x-latex")
!      ;; ("x-rot13-47-48")
       )
      ("message"
       ("external-body"
--- 193,199 ----
       ("css") ; rfc2318
       ("xml") ; rfc2376
       ("x-latex")
!      ("x-rot13-47-48")
       )
      ("message"
       ("external-body"
diff -c wemiko-unofficial-199911032309/mime-view.el nisemi-199911032309/mime-view.el
*** wemiko-unofficial-199911032309/mime-view.el	Thu Nov  4 08:05:59 1999
--- nisemi-199911032309/mime-view.el	Thu Nov  4 11:25:54 1999
***************
*** 453,458 ****
--- 453,470 ----
  
  (ctree-set-calist-strictly
   'mime-preview-condition
+  '((type . text)(subtype . x-rot13-47-48)
+    (body . visible)
+    (body-presentation-method . mime-display-text/x-rot13-47-48)))
+ 
+ (ctree-set-calist-strictly
+  'mime-preview-condition
+  '((type . text)(subtype . x-vcard)
+    (body . visible)
+    (body-presentation-method . mime-display-text/x-vcard)))
+ 
+ (ctree-set-calist-strictly
+  'mime-preview-condition
   '((type . application)(subtype . x-postpet)
     (body . visible)
     (body-presentation-method . mime-display-application/x-postpet)))
***************
*** 523,528 ****
--- 535,575 ----
        (enriched-decode beg (point-max))
        )))
  
+ (defun mime-display-text/x-rot13-47-48 (entity situation)
+   (save-restriction
+     (narrow-to-region (point-max)(point-max))
+     (mime-insert-text-content entity)
+     (run-hooks 'mime-text-decode-hook)
+     (let ((beg (point-min)))
+       (remove-text-properties beg (point-max) '(face nil))
+       (mule-caesar-region beg (point-max))
+       )))
+ 
+ (defun mime-display-text/x-vcard (entity situation)
+   (save-restriction
+     (narrow-to-region (point-max)(point-max))
+     (insert (string-as-multibyte (mime-entity-content entity)))
+     (goto-char (point-min))
+     (while (re-search-forward
+             "\\(;\\(encoding=\\)?quoted-printable:\\)\\(\\(=[0-9A-F][0-9A-F]\\|=\r?\n\\|[^\r\n]\\)*\\)"
+             nil t)
+       (replace-match
+        (concat
+         (buffer-substring (match-beginning 1) (match-end 1))
+         (string-as-multibyte
+          (mime-decode-string
+           (decode-coding-string
+            (buffer-substring (match-beginning 3) (match-end 3)) 'raw-text-dos)
+           "quoted-printable")))
+        t t))
+     (decode-coding-region (point-min) (point-max) 'undecided)
+     (goto-char (point-max))
+     (if (not (eq (char-after (1- (point))) ?\n))
+         (insert "\n"))
+     (mime-add-url-buttons)
+     (run-hooks 'mime-display-text/x-vcard-hook)
+     ))
+ 
  (put 'unpack 'lisp-indent-function 1)
  (defmacro unpack (string &rest body)
    `(let* ((*unpack*string* (string-as-unibyte ,string))
***************
*** 781,797 ****
   'mime-acting-condition
   '((mode . "extract")
     (method . mime-save-content)))
- 
- (ctree-set-calist-strictly
-  'mime-acting-condition
-  '((type . text)(subtype . x-rot13-47)(mode . "play")
-    (method . mime-view-caesar)
-    ))
- (ctree-set-calist-strictly
-  'mime-acting-condition
-  '((type . text)(subtype . x-rot13-47-48)(mode . "play")
-    (method . mime-view-caesar)
-    ))
  
  (ctree-set-calist-strictly
   'mime-acting-condition
--- 828,833 ----
diff -c wemiko-unofficial-199911032309/semi-def.el nisemi-199911032309/semi-def.el
*** wemiko-unofficial-199911032309/semi-def.el	Thu Nov  4 08:09:46 1999
--- nisemi-199911032309/semi-def.el	Thu Nov  4 11:28:34 1999
***************
*** 1,4 ****
! ;;; semi-def.el --- definition module for WEMI -*- coding: iso-8859-4; -*-
  
  ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
  
--- 1,4 ----
! ;;; semi-def.el --- definition module for WEMI -*- coding: iso-2022-jp; -*-
  
  ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.