[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] replace letf with cl-letf in org-mime
From: |
Eric Abrahamsen |
Subject: |
Re: [O] replace letf with cl-letf in org-mime |
Date: |
Mon, 30 Mar 2015 16:34:16 +0800 |
User-agent: |
Gnus/5.130012 (Ma Gnus v0.12) Emacs/25.0.50 (gnu/linux) |
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