* mime-view.el: (mime-display-text/x-vcard): Preserve encoding.

diff --git a/ChangeLog b/ChangeLog
index 482cb93..fcb22b7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-11-07  Tanaka Akira  <akr@jaist.ac.jp>
 
+        * mime-view.el: (mime-display-text/x-vcard): Preserve encoding.
+
+1998-11-07  Tanaka Akira  <akr@jaist.ac.jp>
+
         * mime-view.el: (mime-display-text/x-vcard): New function.
         (mime-preview-condition): Set up for 'mime-preview-text/x-vcard.
 

diff --git a/mime-view.el b/mime-view.el
index a707658..2082861 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -466,14 +466,16 @@ Each elements are regexp of field-name.")
     (insert (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]\\)*\\)"
+            "\\(;\\(encoding=\\)quoted-printable:\\)\\(\\(=[0-9A-F][0-9A-F]\\|=\r\n\\|[^\r\n]\\)*\\)"
             nil t)
       (replace-match
-       (string-as-multibyte
-        (mime-decode-string
-         (decode-coding-string
-          (buffer-substring (match-beginning 2) (match-end 2)) 'raw-text-dos)
-         "quoted-printable"))
+       (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))