emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guile/examples/contacts-export
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 ;; 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 ;; under the terms of the GNU General Public License as published by the

2
guile/mu/contact.scm
View File

@ -113,7 +113,7 @@ either \"org-contact\", \"mutt-alias\", \"mutt-ab\",
(string-downcase (or name email))))) (string-downcase (or name email)))))
(cond (cond
((string= form "plain") ((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") ((string= form "org-contact")
(format #f "* ~s\n:PROPERTIES:\n:EMAIL:~a\n:NICK:~a\n:END:" (format #f "* ~s\n:PROPERTIES:\n:EMAIL:~a\n:NICK:~a\n:END:"
(or name email) email nick)) (or name email) email nick))

5
src/mu-msg.c
View File

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