-is a possibly empty forest of replies.
-"
- (let ((args '("show" "--format=sexp" "--format-version=1")))
- (if notmuch-show-process-crypto
- (setq args (append args '("--decrypt"))))
+is a possibly empty forest of replies."
+ (let ((args '("show" "--format=sexp" "--format-version=4")))
+ (when notmuch-show-process-crypto
+ (setq args (append args '("--decrypt=true"))))