From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Abrahamsen Subject: [PATCH] org-mime slightly out of date Date: Fri, 09 May 2014 09:50:36 +0800 Message-ID: <87r44367pv.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:58257) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WiZwz-0003EN-Js for emacs-orgmode@gnu.org; Thu, 08 May 2014 21:50:19 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WiZwt-0001ex-Dl for emacs-orgmode@gnu.org; Thu, 08 May 2014 21:50:13 -0400 Received: from plane.gmane.org ([80.91.229.3]:59266) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WiZwt-0001db-6P for emacs-orgmode@gnu.org; Thu, 08 May 2014 21:50:07 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1WiZwq-0005BB-0X for emacs-orgmode@gnu.org; Fri, 09 May 2014 03:50:04 +0200 Received: from 114.248.31.91 ([114.248.31.91]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 09 May 2014 03:50:04 +0200 Received: from eric by 114.248.31.91 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 09 May 2014 03:50:04 +0200 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: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi, org-mime still includes a call to `org-export-grab-title-from-buffer', which doesn't exist any more. The attached patch does the same the way org-export currently does it (I think). Eric --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-Update-org-mime-to-current-export-functions.patch >From c967afb70bd7c9039c09d7c7f22388e1eced30fa Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 8 May 2014 22:32:01 +0800 Subject: [PATCH] Update org-mime to current export functions * /contrib/lisp/org-mime.el (org-mime-send-buffer): This function was using `org-export-grab-title-from-buffer', which no longer exists. --- contrib/lisp/org-mime.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index b0007ac..5f874d9 100644 --- a/contrib/lisp/org-mime.el +++ b/contrib/lisp/org-mime.el @@ -269,8 +269,10 @@ export that region, otherwise export the entire body." (defun org-mime-send-buffer (&optional fmt) (run-hooks 'org-mime-send-buffer-hook) (let* ((region-p (org-region-active-p)) - (subject (org-export-grab-title-from-buffer)) - (file (buffer-file-name (current-buffer))) + (file (buffer-file-name (current-buffer))) + (subject (if (not file) (buffer-name (buffer-base-buffer)) + (file-name-sans-extension + (file-name-nondirectory file)))) (body-start (or (and region-p (region-beginning)) (save-excursion (goto-char (point-min))))) (body-end (or (and region-p (region-end)) (point-max))) -- 1.9.2 --=-=-=--