mu4e-draft: fix friendly-name rx
Corner-case, but it was incorrect.
This commit is contained in:
@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user