Re: [O] replace letf with cl-letf in org-mime

[Nicolas Goaziou]

Hello,

Eric Abrahamsen <address@hidden> writes:

> It's amazing what an effect barky compiler errors can have.

Thanks. However, `cl-flet' is not supported in Emacs 23 so it's not an
option for Org 8.3.

OTOH, most uses of `flet' can be replaced with a plain `lambda' and
funcalls.

> -    (flet ((mp (p) (org-entry-get nil p org-mime-use-property-inheritance)))
> +    (cl-flet ((mp (p) (org-entry-get nil p 
> org-mime-use-property-inheritance)))
>        (let* ((file (buffer-file-name (current-buffer)))
>            (subject (or (mp "MAIL_SUBJECT") (nth 4 (org-heading-components))))
>            (to (mp "MAIL_TO"))

  (let* ((mp (lambda (p) (org-entry-get nil p 
org-mime-use-property-inheritance))))
         (file (buffer-file-name (current-buffer)))
         (subject (or (funcall mp "MAIL_SUBJECT") (nth 4 
(org-heading-components))))
         (to (funcall mp "MAIL_TO"))
     ...)


Regards,

-- 
Nicolas Goaziou