diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2011-09-03 11:44:16 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2011-09-03 11:44:16 +0300 |
| commit | a3cf097fd06591ad03de58b85fce803cb8617e65 (patch) | |
| tree | 2936b5c9f51da3a0556a57fc05d9b28958b4d0df /lisp/mail/rmailmm.el | |
| parent | 3d03de90fb6e847d1d395dfdfdde85cf8f70f148 (diff) | |
Fix display by Rmail of bidirectional text in MIME email messages.
lisp/mail/rmailmm.el (rmail-mime-insert-tagline): Insert an extra
newline before and after the tag line, so it doesn't interfere
with determining the paragraph direction of bidirectional text.
Diffstat (limited to 'lisp/mail/rmailmm.el')
| -rw-r--r-- | lisp/mail/rmailmm.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 597068562b5..d3351255583 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -426,7 +426,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where "Insert a tag line for MIME-entity ENTITY. ITEM-LIST is a list of strings or button-elements (list) to be added to the tag line." - (insert "[") + (insert "\n[") (let ((tag (aref (rmail-mime-entity-tagline entity) 0))) (if (> (length tag) 0) (insert (substring tag 1) ":"))) (insert (car (rmail-mime-entity-type entity)) " ") @@ -439,7 +439,7 @@ to the tag line." (if (stringp item) (insert item) (apply 'insert-button item)))) - (insert "]\n")) + (insert "]\n\n")) (defun rmail-mime-update-tagline (entity) "Update the current tag line for MIME-entity ENTITY." |