Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Inital 31.1 changes

Browse Source
This commit is contained in:
Zander671
2026-08-24 17:07:24 -07:00
parent fe65b9bbe4
commit fce9247c63
8 changed files with 41 additions and 354 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/org-mu4e-compose.el
+5 -5
View File
@@ -76,16 +76,16 @@ about this change."
(when (and
(re-search-forward (rx bol (literal mail-header-separator) eol)
nil t)
(re-search-forward (rx "<#multipart" (* any) ">")
(re-search-forward (rx "<#multipart" (* not-newline) ">")
nil t)
(re-search-forward (rx "<#part " (* any)
"type=" (literal type) (* any) ">")
(re-search-forward (rx "<#part " (* not-newline)
"type=" (literal type) (* not-newline) ">")
nil t))
(let ((start (match-end 0))
(end (point-max)))
(when (re-search-forward
(rx (or (and "<#/" (or "part" "multipart") ">")
(and "<#part" (* any) ">")))
(and "<#part" (* not-newline) ">")))
nil t)
(setq end (match-beginning 0)))
(cons (1+ start) end)))))
@@ -347,7 +347,7 @@ This returns a hash table of cid -> path."
(goto-char (match-beginning 1))
(let ((start (point))
(src (read (current-buffer))))
(when-let ((file (gethash (substring src 4) cid-map)))
(when-let* ((file (gethash (substring src 4) cid-map)))
(delete-region start (point))
(insert (prin1-to-string (concat "file://" file))))))))))