Gnus development mailing list
 help / color / mirror / Atom feed
* vcards in pgnus, kind of
@ 1999-01-23 15:05 Andrew J Cosgriff
  1999-01-23 15:49 ` Lars Magne Ingebrigtsen
  1999-01-23 15:57 ` Lars Magne Ingebrigtsen
  0 siblings, 2 replies; 12+ messages in thread
From: Andrew J Cosgriff @ 1999-01-23 15:05 UTC (permalink / raw)



If you've got vcard.el[1] handy, this'll let you view people's vcard
thangs inline in PGnus.

However, I'm sure there's a better way of adding it all in, and Lars
dude, how do I make it automatically show the part (as opposed to
having to go and click on it first) ?  I kinda thought
mm-user-automatic-display was for this, but it didn't seem to be the
case...

--- mm-decode.el.dist	Sun Jan 24 00:58:50 1999
+++ mm-decode.el	Sun Jan 24 01:10:40 1999
@@ -81,6 +81,7 @@
     ("text/enriched" mm-inline-text t)
     ("text/richtext" mm-inline-text t)
     ("text/html" mm-inline-text (locate-library "w3"))
+    ("text/x-vcard" mm-inline-text (locate-library "vcard"))
     ("message/delivery-status" mm-inline-text t)
     ("text/.*" mm-inline-text t)
     ("audio/wav" mm-inline-audio
@@ -100,8 +101,8 @@
     ("message/delivery-status" . inline)))
 
 (defvar mm-user-automatic-display
-  '("text/plain" "text/enriched" "text/richtext" "text/html" 
-    "image/.*" "message/delivery-status" "multipart/.*"))
+  '("text/plain" "text/enriched" "text/richtext" "text/html"
+  "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*"))
 
 (defvar mm-user-automatic-external-display nil
   "List of MIME type regexps that will be displayed externally automatically.")

--- mm-view.el.dist	Sun Jan 24 00:59:12 1999
+++ mm-view.el	Sun Jan 24 01:20:13 1999
@@ -86,6 +86,8 @@
 	    (enriched-decode (point-min) (point-max))
 	    (setq text (buffer-string)))))
       (mm-insert-inline handle text))
+     ((equal type "x-vcard")
+      (mm-insert-inline handle (vcard-format-string (vcard-parse-string (mm-get-part handle) 'vcard-standard-filter))))
      (t
       (setq text (mm-get-part handle))
       (let ((b (point))


Enjoy,
 Andrew


Footnotes: 
[1]  http://www.splode.com/users/friedman/software/emacs-lisp/#vcard

-- 
Andrew J Cosgriff <ajc@bing.wattle.id.au> exterminate all rational thought !
                  princess tunnel deconstruction sun neocortex


^ permalink raw reply	[flat|nested] 12+ messages in thread

end of thread, other threads:[~1999-01-27  5:10 UTC | newest]

Thread overview: 12+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-01-23 15:05 vcards in pgnus, kind of Andrew J Cosgriff
1999-01-23 15:49 ` Lars Magne Ingebrigtsen
1999-01-23 15:51   ` Michael Cook
1999-01-23 16:00     ` Lars Magne Ingebrigtsen
1999-01-23 15:57 ` Lars Magne Ingebrigtsen
1999-01-24  6:29   ` Andrew J Cosgriff
1999-01-24  6:45     ` Lars Magne Ingebrigtsen
1999-01-25  8:37   ` Steinar Bang
1999-01-25 11:11     ` Lars Magne Ingebrigtsen
1999-01-26 20:25     ` Jack Vinson
1999-01-26 21:13       ` Andrew J Cosgriff
1999-01-27  5:10       ` Lars Magne Ingebrigtsen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).