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

>From c967afb70bd7c9039c09d7c7f22388e1eced30fa Mon Sep 17 00:00:00 2001
From: Eric Abrahamsen <e...@ericabrahamsen.net>
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

Reply via email to