aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2022-05-10 11:07:52 +0200
committerÓscar Nájera <hi@oscarnajera.com>2022-05-10 11:07:52 +0200
commit3d5eb87bdf5edafdac02976a6b4ca2f6666d214c (patch)
treea9faec1e823251aa97c4879ef1dc80c6a721f1ab
parented3260c0e23a2a0a33a640e0fed620277be79184 (diff)
downloaddotfiles-3d5eb87bdf5edafdac02976a6b4ca2f6666d214c.tar.gz
dotfiles-3d5eb87bdf5edafdac02976a6b4ca2f6666d214c.tar.bz2
dotfiles-3d5eb87bdf5edafdac02976a6b4ca2f6666d214c.zip
mail bug fix missing variable
-rwxr-xr-xbin/tagmail6
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/tagmail b/bin/tagmail
index 641706f..d846d73 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -58,13 +58,13 @@ LD_LIBRARY_PATH=$HOME/.guix-profile/lib exec guile -e main -s "$0" "$@"
(define (move-file uidvalidity target-folder)
(lambda (file)
(let* ((target-file (new-path (rename-higher file uidvalidity) target-folder))
- (sub-len (string-prefix-length file target-file)))
+ (sub-len (string-prefix-length file target-file))
+ (do? (not (option-ref options 'dry-run #f))))
(simple-format #t " [~a] ~a -> ~a~%"
(colorize-string "mv" 'BOLD (if do? 'RED 'NONE))
(substring file sub-len)
(substring target-file sub-len))
- (unless (option-ref options 'dry-run #f)
- (rename-file file target-file)))))
+ (when do? (rename-file file target-file)))))
(let* ((mail-repo (assq-ref options 'mail-repo))
(target-folder (format #f "~a~a/~a" mail-repo account end-dir))