From: ueno <ueno>
Date: Mon, 21 Aug 2000 20:49:12 +0000 (+0000)
Subject: * mime-view.el: Add setting for 'vcard-parse-string',
X-Git-Tag: emiko-1_14-pgg-0_1-last-~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=84ccb5913f72adeac2df272de7ca1cff1a82f29d;p=elisp%2Fsemi.git

* 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
--- 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
--- 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)
       "\