Toby Speight <[EMAIL PROTECTED]> writes:
[...]
> Here it is, with the usual caveats and zero support. If you manage to
> make something of it, I'd like to hear about it (on the list, unless
> people object).
The attached patch is for BBDB 2.2.
ShengHuo
--- bbdb-xml-print.el 2001/02/24 05:22:44 1.1
+++ bbdb-xml-print.el 2001/02/24 05:29:47
@@ -183,18 +183,20 @@
"<address location=\"%s\">%s\n</address>"
(bbdb-address-location addr)
(concat
- (bbdb-xml-print-if-not-blank-2
- "\n <line>" (bbdb-xml-print-tex-quote (bbdb-address-street1 addr)) "</line>")
- (bbdb-xml-print-if-not-blank-2
- "\n <line>" (bbdb-xml-print-tex-quote (bbdb-address-street2 addr)) "</line>")
- (bbdb-xml-print-if-not-blank-2
- "\n <line>" (bbdb-xml-print-tex-quote (bbdb-address-street3 addr)) "</line>")
+ (mapconcat
+ (lambda (x)
+ (bbdb-xml-print-if-not-blank-2
+ "\n <line>" (bbdb-xml-print-tex-quote x) "</line>"))
+ (bbdb-address-streets addr)
+ "")
(bbdb-xml-print-if-not-blank-2
"\n <city>" (bbdb-xml-print-tex-quote (bbdb-address-city addr)) "</city>")
(bbdb-xml-print-if-not-blank-2
"\n <state>" (bbdb-xml-print-tex-quote (bbdb-address-state addr)) "</state>")
(bbdb-xml-print-if-not-blank-2
- " <zip>" (bbdb-xml-print-tex-quote (bbdb-address-zip-string addr)) "</zip>")))))
+ " <zip>" (bbdb-xml-print-tex-quote (bbdb-address-zip-string addr)) "</zip>")
+ (bbdb-xml-print-if-not-blank-2
+ " <country>" (bbdb-xml-print-tex-quote (bbdb-address-country addr)) "</country>")))))
(setq addrs (cdr addrs)))
;; Notes
