* small fixes in address generation, mu:contact->string

2012-05-04 14:52:45 +03:00
parent 3bb3514198
commit 1bbca9e1eb
3 changed files with 6 additions and 3 deletions
--- a/guile/mu/contact.scm
+++ b/guile/mu/contact.scm
@ -113,7 +113,7 @@ either \"org-contact\", \"mutt-alias\", \"mutt-ab\",
 	      (string-downcase (or name email)))))
    (cond
      ((string= form "plain")
-	(format #f "~a~a~a" (if name name) (if name " ") email))
+	(format #f "~a~a~a" (or name "") (if name " " "") email))
      ((string= form "org-contact")
 	(format #f "* ~s\n:PROPERTIES:\n:EMAIL:~a\n:NICK:~a\n:END:"
 	  (or name email) email nick))