"Eric Schulte" 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 writes: > >> Rainer M Krug writes: >> >>> On 12/16/2010 09:25 AM, Jeff Horn wrote: >>>> On Thu, Dec 16, 2010 at 3:17 AM, Oscar Carlsson >>>> 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