diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-13 07:15:49 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-13 07:15:49 +0200 |
commit | 396e413f6b711129dc27e5d096d66c9a859a2908 (patch) | |
tree | e2232f460c0ec346d82172f6bbf952a91d014fe2 | |
parent | 525e96a97e505994ff3da277f49fd9212e6331bc (diff) | |
download | org-mode-396e413f6b711129dc27e5d096d66c9a859a2908.tar.gz |
org.el: Fix bug about filling message headers and citations
* org.el (org-fill-paragraph): Make a command. Fix bug about
filling message headers and citations.
-rw-r--r-- | lisp/org.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 63cf234..ead5a47 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20830,7 +20830,7 @@ hierarchy of headlines by UP levels before marking the subtree." (org-move-to-column column) (when (and orgstruct-is-++ (eq pos (point))) (org-let org-fb-vars - '(indent-according-to-mode))))) + (indent-according-to-mode))))) (defun org-indent-drawer () "Indent the drawer at point." @@ -20983,11 +20983,15 @@ width for filling. For convenience, when point is at a plain list, an item or a footnote definition, try to fill the first paragraph within." ;; Falls back on message-fill-paragraph when necessary + (interactive) (if (and (derived-mode-p 'message-mode) (or (not (message-in-body-p)) (save-excursion (move-beginning-of-line 1) (looking-at "> ")))) - (message-fill-paragraph) + (org-let org-fb-vars + (or (and (message-point-in-header-p) (message-fill-field)) + (and (save-excursion (move-beginning-of-line 1) (looking-at "> ")) + (fill-comment-paragraph)))) (save-excursion ;; Move to end of line in order to get the first paragraph within ;; a plain list or a footnote definition. |