Re: [Orgmode] Re: Sending org buffer as mail?

[Sebastian Rose]

Rainer M Krug <address@hidden> 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