mirror of https://github.com/djcb/mu.git
* guile: update some of the examples
This commit is contained in:
parent
0b32a63537
commit
2551e77325
|
@ -2,7 +2,7 @@
|
|||
exec guile -e main -s $0 $@
|
||||
!#
|
||||
;;
|
||||
;; Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
|
||||
;; Copyright (C) 2011-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
|
||||
|
|
|
@ -28,7 +28,7 @@ exec guile -e main -s $0 $@
|
|||
|
||||
|
||||
(use-modules (ice-9 getopt-long) (ice-9 format))
|
||||
(use-modules (mu) (mu message))
|
||||
(use-modules (mu))
|
||||
|
||||
(define (main args)
|
||||
(let* ((optionspec '((muhome (value #t))
|
||||
|
@ -49,7 +49,7 @@ exec guile -e main -s $0 $@
|
|||
(mu:for-each-message
|
||||
(lambda (msg)
|
||||
(if (> (mu:timestamp msg) newer-than)
|
||||
(format #t "~s ~s\n"
|
||||
(format #t "~a ~a\n"
|
||||
(mu:from msg)
|
||||
(mu:subject msg))))
|
||||
query)))))
|
||||
|
|
|
@ -3,7 +3,7 @@ exec guile -e main -s $0 $@
|
|||
!#
|
||||
|
||||
;;
|
||||
;; Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
|
||||
;; Copyright (C) 2011-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
|
||||
|
@ -20,7 +20,6 @@ exec guile -e main -s $0 $@
|
|||
;; along with this program; if not, write to the Free Software Foundation,
|
||||
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
|
||||
|
||||
(use-modules (ice-9 getopt-long) (ice-9 format))
|
||||
(use-modules (mu))
|
||||
|
||||
|
|
Loading…
Reference in New Issue