Re: Re: Sending org buffer as mail?

From: "Eric Schulte" <schulte.eric@gmail.com>
To: Matt Lundin <mdl@imapmail.org>
Cc: Oscar Carlsson <oscar.carlsson@gmail.com>,
	Jeff Horn <jrhorn424@gmail.com>,
	emacs-orgmode@gnu.org, Rainer M Krug <r.m.krug@gmail.com>
Subject: Re: Re: Sending org buffer as mail?
Date: Thu, 16 Dec 2010 23:48:49 -0700	[thread overview]
Message-ID: <87k4j8rj11.fsf@gmail.com> (raw)
In-Reply-To: 871v5hw5go.fsf@gmail.com

[-- Attachment #1: Type: text/plain, Size: 771 bytes --]

I'm attaching a new version of org-mime.el which incorporates Matt's
function below.  There are now two new functions, `org-mime-org-buffer'
and `org-mime-org-subtree' each of which takes a format argument
specifying the format of the final email, one of 'org, 'ascii, or 'html.

So, for example the following will export the current subtree as ascii
into an email body, using the MAIL_TO, MAIL_CC, and MAIL_BCC properties
to build the email headers, and the headline to set the subject (both
directly from Matt's function below).

(defun org-mime-subtree-to-ascii ()
  (interactive)
  (org-mime-org-subtree 'ascii))

Does this new version of org-mime look like it should be committed?  Are
there any features or changes that should be considered first?

Cheers -- Eric

[-- Attachment #2: org-mime.el --]
[-- Type: application/emacs-lisp, Size: 10447 bytes --]

[-- Attachment #3: Type: text/plain, Size: 3115 bytes --]

"Eric Schulte" <schulte.eric@gmail.com> writes:

> Hi Matt,
>
> This looks great, how would you feel about trying to fold this into
> org-mime, or would you mind if I did so.  I've already mimicked your
> function to set subjects of outgoing emails to match the title of the
> org-mode buffer.  I think that generalizing the org-mime functions to
> operate over either subtrees or whole files, and to output either html
> or plain text should cover all use cases with maximal code re-use.
>
> Thanks for sharing this function.
>
> Cheers -- Eric
>
> Matt Lundin <mdl@imapmail.org> writes:
>
>> Rainer M Krug <r.m.krug@gmail.com> writes:
>>
>>> On 12/16/2010 09:25 AM, Jeff Horn wrote:
>>>> On Thu, Dec 16, 2010 at 3:17 AM, Oscar Carlsson
>>>> <oscar.carlsson@gmail.com> wrote:
>>>>> And then, I can send a org-file by attaching it to a mail in Emacs. Try
>>>>> C-x m to start a new mail buffer, attach with C-c C-a and send with C-c
>>>>> C-c.
>>>
>>> Sounds very interesting - I'll try it out.
>>>
>>> C-x m looks great - I am sure I am going to use it a lot. And gmail is
>>> exactly what I want to use it for.
>>>
>>>> 
>>>> Does this attach the buffer or read it into the message? I thought the
>>>> OP wanted to read-in a buffer. 
>>>
>>> Yes - that was effectively what I am looking for: the possiblility to
>>> write my email in org mode and send the buffer content as the email text.
>>>
>>> Dream: Specify subject, to, cc, bcc (probably even attachments) as
>>> properties, press a key and the org file is send to the addresses.
>>
>> I too have been looking for this functionality for a while, so here's a
>> quick solution. When called on an Org-mode subtree, the following
>> function makes the headline the subject, exports the subtree to ascii,
>> and uses properties ("MAIL_TO", "MAIL_CC", "MAIL_BCC") to specify the
>> addressees:
>>
>> (defun my-org-subtree-to-message ()
>>   (interactive)
>>   (unless (eq major-mode 'org-mode)
>>     (error "Not in org buffer"))
>>   (let ((subject (nth 4 (org-heading-components)))
>> 	(to (org-entry-get nil "MAIL_TO"))
>> 	(cc (org-entry-get nil "MAIL_CC"))
>> 	(bcc (org-entry-get nil "MAIL_BCC"))
>> 	text)
>>     (save-excursion 
>>       (org-mark-subtree)
>>       ;; don't include title in body
>>       (forward-line)
>>       (setq text (org-export-region-as-ascii (point)
>> 					     (mark) t 'string)))
>>     (message-mail to subject `((cc . ,cc) (bcc . ,bcc)) nil)
>>     (when text 
>>       (save-excursion
>> 	(goto-char (point-max))
>> 	(insert text)))))
>>
>> With this function, you can compose emails like this:
>>
>> * My obsequious missive
>>   :PROPERTIES:
>>   :MAIL_TO:  highly_esteemed@gentlemen.net
>>   :MAIL_BCC:  peasants_united@plebeians.org
>>   :END:
>> My most noble sirs,
>>
>> I thank you for gracing this world with your beauteous presence.
>>
>> Humbly yours,
>> An Org-mode user
>>
>> Best,
>> Matt
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode