Patch to gnus to use Noah Friedman's upcoming updated vcard.el

Patch to gnus to use Noah Friedman's upcoming updated vcard.el

[Hamish Macdonald]

After parsing the vcard string, it checks if vcard-pretty-print (a new
function) is available and uses that to format the vcard.  Otherwise
it falls back to vcard-format-string.

This should work fine if the user has either the new or old vcard.el.

Noah hasn't yet released his new version of vcard, but asked me to
check it out since I had some problems with the old package and some
received vcards.

--- gnus-5.8.2/lisp/mm-view.el	Fri Dec  3 14:27:21 1999
+++ /export/users/hamishm/.xemacs/xemacs-packages/lisp/gnus/mm-view.el	Thu Feb  3 16:41:03 2000
@@ -31,7 +31,6 @@
 (eval-and-compile
   (autoload 'gnus-article-prepare-display "gnus-art")
   (autoload 'vcard-parse-string "vcard")
-  (autoload 'vcard-format-string "vcard")
   (autoload 'diff-mode "diff-mode"))
 
 ;;;
@@ -125,9 +124,11 @@
       (mm-insert-inline
        handle
        (concat "\n-- \n"
-	       (vcard-format-string
-		(vcard-parse-string (mm-get-part handle)
-				    'vcard-standard-filter)))))
+	       (let ((str (vcard-parse-string (mm-get-part handle)
+					      'vcard-standard-filter)))
+		 (if (fboundp 'vcard-pretty-print)
+		     (vcard-pretty-print str)
+		   (vcard-format-string str))))))
      (t
       (setq text (mm-get-part handle))
       (let ((b (point))