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

[Eric Abrahamsen]

Nicolas Goaziou <address@hidden> writes:

> 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"))
>      ...)

That took longer than I expected...

0001-org-mime.el-Avoid-use-of-letf-cl-letf.patch
Description: Text Data