summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-13 07:15:49 +0200
committerBastien Guerry <bzg@altern.org>2012-08-13 07:15:49 +0200
commit396e413f6b711129dc27e5d096d66c9a859a2908 (patch)
treee2232f460c0ec346d82172f6bbf952a91d014fe2
parent525e96a97e505994ff3da277f49fd9212e6331bc (diff)
downloadorg-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.el8
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.