mu4e-draft: fix friendly-name rx

Corner-case, but it was incorrect.
This commit is contained in:
Dirk-Jan C. Binnema
2026-05-25 20:42:39 +03:00
committed by Seth Ladygo
parent cbe64d4cae
commit a27398ae39

View File

@ -364,8 +364,9 @@ With HEADERS-ONLY non-nil, only include the headers part."
(defun mu4e--draft-set-friendly-buffer-name () (defun mu4e--draft-set-friendly-buffer-name ()
"Use some friendly name for this draft buffer." "Use some friendly name for this draft buffer."
(let* ((subj (message-field-value "subject")) (let* ((subj (message-field-value "subject"))
(subj (if (or (not subj) (string-match "^[:blank:]*$" subj)) (subj (if (or (not subj)
"No subject" subj))) (string-match-p (rx bos (* blank) eos) subj))
"No subject" subj)))
(rename-buffer (generate-new-buffer-name (rename-buffer (generate-new-buffer-name
(format "\"%s\"" (format "\"%s\""
(truncate-string-to-width subj (truncate-string-to-width subj