vcard issues

[Chris Halverson <cdh@CompleteIS.com>]

I just started receiving email from a new employee who uses Outlook
Express and has created a vcard. I've had it work in the past using
the vcard.el from Noah Friedman, but then I decided to forget about it
and haven't noticed anything good/bad in a while. Currently using
Xemacs 21.4.3, Oort Gnus 0.04 CVS from around the first week in May.

Now, however, this guy's vcard is failing which prevents me from
seeing his mail correctly. The only "strange" thing that may pop up is
that the phone and fax are the same (yes, they should be). I know zero
about vcards, so I'm wondering if there's anything I can do to either
make this "work" or just ignore it. The offending vcard follows
followed by a backtrace from when I try to read the email.

  BEGIN:VCARD
  VERSION:2.1
  N:Langanki;Mark
  FN:Mark Langanki
  ORG:CompleteIS
  TITLE:CTO
  TEL;WORK;VOICE:612-279-2110
  TEL;PAGER;VOICE:Cell =3D 612-865-2928
  TEL;WORK;FAX:612-279-2110
  ADR;WORK;ENCODING=3DQUOTED-PRINTABLE:;;411 Washington Ave =
  N=3D0D=3D0ASuite #300;Minneapolis;MN;55401-1499
  LABEL;WORK;ENCODING=3DQUOTED-PRINTABLE:411 Washington Ave =
  N=3D0D=3D0ASuite #300=3D0D=3D0AMinneapolis, MN 55401-1499
  URL;WORK:http://www.completeis.com
  EMAIL;PREF;INTERNET:mark.langanki@completeis.net
  REV:20010604T234325Z
  END:VCARD

Signaling: (wrong-type-argument characterp ("fax" "612-279-2110"))
  concat("Work: " (("fax" "612-279-2110") ("voice" "612-279-2110")))
  (and result (concat (cdr x) result))
  (let ((result ...)) (and result (concat ... result)))
  (lambda (x) (let (...) (and result ...)))((("tel" "work") . "Work: "))
  mapcar((lambda (x) (let (...) (and result ...))) ((("tel" "work") . "Work: ") (("tel" "home") . "Home: ") (("tel" "fax") . "Fax:  ")))
  (delete nil (mapcar (function ...) (quote ...)))
  vcard-format-get-telephone((("version" "2.1") ("n" "Langanki" "Mark") ("fn" "Mark Langanki") ("org" "CompleteIS") ("title" "CTO") ("tel" ("pager" ...) ("work" ... ...)) ("adr" ("work" ...)) ("label" ("work" ...)) ("url" ("work" "http://www.completeis.com")) ("email" ("pref" ...)) ("rev" "20010604T234325Z")))
  (let* ((name ...) (title ...) (org ...) (addr ...) (tel ...) (lines ...) (col-template ...) (l lines)) (while tel (setcar l ...) (and ... ... ...) (setq l ...) (setq tel ...)) lines)
  vcard-format-lines((("version" "2.1") ("n" "Langanki" "Mark") ("fn" "Mark Langanki") ("org" "CompleteIS") ("title" "CTO") ("tel" ("pager" ...) ("work" ... ...)) ("adr" ("work" ...)) ("label" ("work" ...)) ("url" ("work" "http://www.completeis.com")) ("email" ("pref" ...)) ("rev" "20010604T234325Z")))
  (mapconcat (quote identity) (vcard-format-lines vcard-data) "\n")
  vcard-format-string((("version" "2.1") ("n" "Langanki" "Mark") ("fn" "Mark Langanki") ("org" "CompleteIS") ("title" "CTO") ("tel" ("pager" ...) ("work" ... ...)) ("adr" ("work" ...)) ("label" ("work" ...)) ("url" ("work" "http://www.completeis.com")) ("email" ("pref" ...)) ("rev" "20010604T234325Z")))
  mm-inline-text((#<buffer " *mm*<3>"> ("text/x-vcard" (name . "Mark Langanki.vcf")) quoted-printable nil ("attachment" (filename . "Mark Langanki.vcf")) nil nil nil))
  mm-display-inline((#<buffer " *mm*<3>"> ("text/x-vcard" (name . "Mark Langanki.vcf")) quoted-printable nil ("attachment" (filename . "Mark Langanki.vcf")) nil nil nil))
  mm-display-part((#<buffer " *mm*<3>"> ("text/x-vcard" (name . "Mark Langanki.vcf")) quoted-printable nil ("attachment" (filename . "Mark Langanki.vcf")) nil nil nil) t)
  byte-code("..." [not-attachment type ignored display beg handle string-match throw nil mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t split-string mm-handle-media-type "/" "text" gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -1 (set-buffer gnus-summary-buffer) ((error)) mm-display-part mm-insert-inline mm-get-part gnus-treat-article bufferp 1 text gnus-article-mime-handle-alist id move gnus-article-mime-handles gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset] 7)
  gnus-mime-display-single((#<buffer " *mm*<3>"> ("text/x-vcard" (name . "Mark Langanki.vcf")) quoted-printable nil ("attachment" (filename . "Mark Langanki.vcf")) nil nil nil))
  gnus-mime-display-part((#<buffer " *mm*<3>"> ("text/x-vcard" (name . "Mark Langanki.vcf")) quoted-printable nil ("attachment" (filename . "Mark Langanki.vcf")) nil nil nil))
  mapcar(gnus-mime-display-part ((#<buffer " *mm*<2>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("text/x-vcard" ...) quoted-printable nil ("attachment" ...) nil nil nil)))
  gnus-mime-display-mixed(((#<buffer " *mm*<2>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("text/x-vcard" ...) quoted-printable nil ("attachment" ...) nil nil nil)))
  gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<2>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("text/x-vcard" ...) quoted-printable nil ("attachment" ...) nil nil nil)))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(8092 nil)
  gnus-summary-display-article(8092)
  gnus-summary-next-page(nil)
  call-interactively(gnus-summary-next-page)


Thanks!

cdh

-- 
Chris D. Halverson                         Complete Internet Solutions
(612) 279-2106                             http://www.completeis.com/