From: Sebastian Rose <sebastian_rose@gmx.de>
To: Rainer M Krug <r.m.krug@gmail.com>
Cc: Oscar Carlsson <oscar.carlsson@gmail.com>,
Jeff Horn <jrhorn424@gmail.com>,
emacs-orgmode@gnu.org
Subject: Re: Re: Sending org buffer as mail?
Date: Thu, 16 Dec 2010 22:34:09 +0100 [thread overview]
Message-ID: <87hbedpfla.fsf@gmx.de> (raw)
In-Reply-To: <4D0A0859.2040809@gmail.com> (Rainer M. Krug's message of "Thu, 16 Dec 2010 13:38:49 +0100")
Rainer M Krug <r.m.krug@gmail.com> writes:
> OK - I asked on the emacs help list, and got a response. I added the
> followig to my emacs.org:
>
> * Add message hook to include selected text as body
> Thanks to Deniz Dogan
> #+begin_src emacs-lisp
> (add-hook 'message-mode-hook
> (lambda ()
> (let (text)
> (with-current-buffer (other-buffer)
> (when (region-active-p)
> (setq text
> (buffer-substring (region-beginning)
> (region-end)))))
> (when text
> (end-of-buffer)
> (insert text)))))
> #+end_src
I finally added an `(if (org-mode-p)' for my local usage:
(add-hook 'message-mode-hook
(lambda ()
(let (text)
(with-current-buffer (other-buffer)
(when (region-active-p)
(setq text
(if (org-mode-p)
(org-export-region-as-ascii (region-beginning)
(region-end) t 'string)
(buffer-substring (region-beginning)
(region-end))))))
(when text
(end-of-buffer)
(insert text)))))
Best wishes
Sebastian
next prev parent reply other threads:[~2010-12-16 21:34 UTC|newest]
Thread overview: 38+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-12-16 8:04 Sending org buffer as mail? Rainer M Krug
2010-12-16 8:17 ` Oscar Carlsson
2010-12-16 8:25 ` Jeff Horn
2010-12-16 8:54 ` Rainer M Krug
2010-12-16 10:38 ` Oscar Carlsson
2010-12-16 10:41 ` Rainer M Krug
2010-12-16 12:38 ` Rainer M Krug
2010-12-16 13:49 ` Oscar Carlsson
2010-12-16 21:27 ` Sebastian Rose
2010-12-16 21:34 ` Sebastian Rose [this message]
2010-12-17 1:06 ` Matt Lundin
2010-12-17 1:27 ` Eric Schulte
2010-12-17 6:48 ` Eric Schulte
2010-12-17 8:57 ` Rainer M Krug
2010-12-17 10:02 ` Eric Schulte
2010-12-17 11:54 ` Matt Lundin
2010-12-17 21:25 ` Eric Schulte
2010-12-19 12:21 ` Niels Giesen
2010-12-19 20:47 ` Samuel Wales
2010-12-19 23:39 ` Eric Schulte
2010-12-21 20:55 ` Niels Giesen
2010-12-27 14:53 ` Eric Schulte
2010-12-27 18:11 ` Niels Giesen
2010-12-28 3:58 ` Eric Schulte
2010-12-27 17:53 ` Samuel Wales
2010-12-17 14:47 ` Jean-Marie Gaillourdet
2010-12-17 21:26 ` Eric Schulte
2010-12-18 23:26 ` Ethan Ligon
2010-12-20 1:46 ` Eric Schulte
2010-12-20 10:20 ` Sébastien Vauban
2010-12-16 10:37 ` Oscar Carlsson
2010-12-16 13:22 ` Eric Schulte
2010-12-16 13:39 ` Rainer M Krug
2010-12-16 14:45 ` Sébastien Vauban
2010-12-16 14:56 ` Eric Schulte
2010-12-16 16:19 ` Sébastien Vauban
2010-12-16 18:20 ` Eric Schulte
2010-12-16 18:29 ` Jeff Horn
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87hbedpfla.fsf@gmx.de \
--to=sebastian_rose@gmx.de \
--cc=emacs-orgmode@gnu.org \
--cc=jrhorn424@gmail.com \
--cc=oscar.carlsson@gmail.com \
--cc=r.m.krug@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).