[O] Re: Org minor mode in mail-mode

2011-03-20 Thread Matt Lundin 
René jl...@yahoo.com writes:

 Here is the the configuration I run

(defun turn-on-full-org-mailing ()
  (turn-on-orgstruct++)
  (turn-on-orgtbl)
  (load org-html-mail))

(add-hook 'mail-mode-hook 'turn-on-full-org-mailing)

 Unfortunately with this, calling M-q (fill-paragraph) right after the
 header separator (--text follows this line--) leads to filling the
 header along with the first paragraph of my mail.


[...]


 Any idea on how to make use of org minor mode in mail-mode and still
 be able to fill-paragraph without impacting mail headers? 

The org minor modes set the local value of fill-paragraph-function to
org-fill-paragraph. You can override this by adding a line to your hook
function:

(defun turn-on-full-org-mailing ()
  (turn-on-orgstruct++)
  (turn-on-orgtbl)
  (load org-html-mail)
  (setq fill-paragraph-function 'message-fill-paragraph))

I'm not sure how this will affect calling fill on lists or tables,
however.

A proper fix would probably add a test to org-fill-paragraph to see if
we are in message mode.

Best,
Matt

[O] Re: Org minor mode in mail-mode

2011-03-20 Thread Nicolas 
Hello,

Matt Lundin m...@imapmail.org writes:

 Any idea on how to make use of org minor mode in mail-mode and still
 be able to fill-paragraph without impacting mail headers?

 The org minor modes set the local value of fill-paragraph-function to
 org-fill-paragraph. You can override this by adding a line to your hook
 function:

 (defun turn-on-full-org-mailing ()
   (turn-on-orgstruct++)
   (turn-on-orgtbl)
   (load org-html-mail)
   (setq fill-paragraph-function 'message-fill-paragraph))

 I'm not sure how this will affect calling fill on lists or tables,
 however.

It will break list and tables filling.

 A proper fix would probably add a test to org-fill-paragraph to see if
 we are in message mode.

Another idea would be to change `paragraph-start' and
`paragraph-separate' values when turning on orgstruct and orgtbl.

#+begin_src emacs-lisp
(setq paragraph-start
  (concat
   (regexp-quote mail-header-separator) $\\|
   -- $\\| ; signature delimiter
   ---+$\\|; delimiters for forwarded messages
   page-delimiter $\\| ; spoiler warnings
   .*wrote:$\\|; attribution lines
   message-cite-prefix-regexp $\\| ; empty lines in quoted text
 ; mml tags
   #!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)
   paragraph-start))

(setq paragraph-separate paragraph-start)
#+end_src

Regards,

-- 
Nicolas