From aaae4a55ca34aa913010c0c70319a854f0988834 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 b0007ac8a..5f874d932 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)))