From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: Re: replace letf with cl-letf in org-mime Date: Sun, 22 Mar 2015 15:16:33 +0100 Message-ID: <87iodt2k3i.fsf@nicolasgoaziou.fr> References: <87wq29m8zm.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37734) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YZgex-0000H9-B2 for emacs-orgmode@gnu.org; Sun, 22 Mar 2015 10:15:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YZgeu-0000Ai-5K for emacs-orgmode@gnu.org; Sun, 22 Mar 2015 10:15:23 -0400 Received: from relay5-d.mail.gandi.net ([2001:4b98:c:538::197]:56464) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YZget-0000AQ-VG for emacs-orgmode@gnu.org; Sun, 22 Mar 2015 10:15:20 -0400 In-Reply-To: <87wq29m8zm.fsf@ericabrahamsen.net> (Eric Abrahamsen's message of "Sun, 22 Mar 2015 21:56:13 +0800") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Abrahamsen Cc: emacs-orgmode@gnu.org Hello, Eric Abrahamsen 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