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

This commit is contained in:
djcb 2012-05-04 14:52:45 +03:00
parent 3bb3514198
commit 1bbca9e1eb
3 changed files with 6 additions and 3 deletions

View File

@ -3,7 +3,7 @@ exec guile -e main -s $0 $@
!#
;;
;; Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Copyright (C) 2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;;
;; This program is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the

View File

@ -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))

View File

@ -564,7 +564,10 @@ fill_contact (MuMsgContact *self, InternetAddress *addr,
else
self->address = NULL;
return TRUE;
/* note, the address could NULL e.g. when the recipient is something like
* 'Undisclosed recipients'
*/
return self->address != NULL;
}