branch: externals/minimail
commit 7d3b15e4c705633f494d8b748727e24f6d02f49c
Author: Augusto Stoffel <[email protected]>
Commit: Augusto Stoffel <[email protected]>
Fix issue when message subject is nil
---
minimail.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/minimail.el b/minimail.el
index 469ec64903..fb85219c2e 100644
--- a/minimail.el
+++ b/minimail.el
@@ -32,6 +32,7 @@
;;; Code:
+(require 'let-alist)
(require 'gnus-art)
(require 'peg) ;need peg.el from Emacs 30, which is ahead of ELPA
(require 'rx)
@@ -1155,23 +1156,24 @@ Return a cons cell consisting of the account symbol and
mailbox name."
(from
:name "From"
:max-width 30
- :getter ,(lambda (v _) (-get-in v 'envelope 'from))
+ :getter ,(lambda (v _) (let-alist v .envelope.from))
:formatter -format-names)
(subject
:name "Subject"
:max-width 60
:getter ,(lambda (v _)
- (replace-regexp-in-string ;TODO: sanitize here or while
parsing?
- (rx control) ""
- (-get-in v 'envelope 'subject))))
+ (let-alist v
+ (replace-regexp-in-string ;TODO: sanitize here or while
parsing?
+ (rx control) ""
+ (or .envelope.subject "")))))
(date
:name "Date"
:width 12
:getter ,(lambda (v _)
- (let ((current-time-list nil)
- (date (-get-in v 'envelope 'date)))
- (propertize (format "%09x" (encode-time date))
- '-data date)))
+ (let-alist v
+ (propertize (format "%09x" (let ((current-time-list nil))
+ (encode-time .envelope.date)))
+ '-data .envelope.date)))
:formatter -format-date)))
(defun -mailbox-after-insert-line (_table line &rest _)
