Change to when-let* and if-let*
This commit is contained in:
@ -74,8 +74,8 @@ about this change."
|
||||
|
||||
(defun org-mu4e--pretty-print-fontify-html-part ()
|
||||
"Pretty print and fontify the HTML part of the current buffer."
|
||||
(when-let ((bounds (org-mu4e--bounds-of-mime-part "text/html"))
|
||||
(real-buf (current-buffer)))
|
||||
(when-let* ((bounds (org-mu4e--bounds-of-mime-part "text/html"))
|
||||
(real-buf (current-buffer)))
|
||||
(save-excursion
|
||||
(let ((content
|
||||
(with-temp-buffer
|
||||
@ -145,9 +145,9 @@ Return the newly created buffer."
|
||||
(default-directory org-preview-latex-image-directory)
|
||||
(org-html-postamble nil))
|
||||
(narrow-to-region start (point-max))
|
||||
(if-let ((export-data (org-export-as
|
||||
'html nil t nil
|
||||
org-mime-export-options)))
|
||||
(if-let* ((export-data (org-export-as
|
||||
'html nil t nil
|
||||
org-mime-export-options)))
|
||||
(progn
|
||||
(with-current-buffer buffer
|
||||
(special-mode)
|
||||
|
||||
Reference in New Issue
Block a user