* mime-view.el: Add setting for 'vcard-parse-string',

`vcard-format-string' and `vcard-filter-html' to autoload "vcard".
Set up for "text/x-vcard".
Add setting for	`fill-flowed' to autoload "flow-fill".
(mime-display-text/plain): Handle "format=flowed".

* SEMI-ELS (semi-modules-to-compile): Add `mime-vcard'.

diff --git a/SEMI-ELS b/SEMI-ELS
index 448caf3..0976657 100644 (file)
--- a/SEMI-ELS
+++ b/SEMI-ELS
@@ -9,6 +9,7 @@
        pgg-def pgg pgg-parse pgg-gpg pgg-pgp5 pgg-pgp mime-pgp
        smime
        semi-def mime-view mime-play mime-partial postpet
+       mime-vcard
        mime-edit
        semi-setup mail-mime-setup))
 

diff --git a/mime-view.el b/mime-view.el
index 824a718..29b3a86 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -669,15 +669,6 @@ Each elements are regexp of field-name.")
    (body . visible)
    (body-presentation-method . mime-display-text/richtext)))
 
-(autoload 'vcard-parse-string "vcard")
-(autoload 'vcard-format-string "vcard")
-
-(ctree-set-calist-strictly
- 'mime-preview-condition
- '((type . text)(subtype . x-vcard)
-   (body . visible)
-   (body-presentation-method . mime-display-text/x-vcard)))
-
 (autoload 'mime-display-application/x-postpet "postpet")
 
 (ctree-set-calist-strictly
@@ -769,20 +760,6 @@ Each elements are regexp of field-name.")
       (enriched-decode beg (point-max))
       )))
 
-(defun mime-display-text/x-vcard (entity situation)
-  (save-restriction
-    (narrow-to-region (point-max)(point-max))
-    (insert
-     (string-as-multibyte
-      (vcard-format-string
-       (vcard-parse-string
-       (mime-entity-content entity)
-       #'vcard-standard-filter))))
-    (if (not (eq (char-after (1- (point))) ?\n))
-        (insert "\n"))
-    (mime-add-url-buttons)
-    (run-hooks 'mime-display-text/x-vcard-hook)))
-
 (defvar mime-view-announcement-for-message/partial
   (if (and (>= emacs-major-version 19) window-system)
       "\