[evolution] EHTMLEditorView - Don't put quote characters after the anchor when it is in the middle of the quoted

[Tomas Popela <tpopela src gnome org>]

commit 5a0dd1368efc607cea7c0190da7739f319c64a14
Author: Tomas Popela <tpopela redhat com>
Date:   Mon Jul 21 16:58:56 2014 +0200

    EHTMLEditorView - Don't put quote characters after the anchor when it is in the middle of the quoted text

 e-util/e-html-editor-view.c |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)
---
diff --git a/e-util/e-html-editor-view.c b/e-util/e-html-editor-view.c
index 945b60a..0432a01 100644
--- a/e-util/e-html-editor-view.c
+++ b/e-util/e-html-editor-view.c
@@ -3157,10 +3157,14 @@ quote_plain_text_recursive (WebKitDOMDocument *document,
                        goto next_node;
                }
 
-               if (!WEBKIT_DOM_IS_HTMLBR_ELEMENT (node))
+               if (!WEBKIT_DOM_IS_HTMLBR_ELEMENT (node)) {
+                       if (WEBKIT_DOM_IS_HTML_ANCHOR_ELEMENT (prev_sibling)) {
+                               move_next = TRUE;
+                               goto next_node;
+                       }
                        goto not_br;
-               else if (element_has_class (WEBKIT_DOM_ELEMENT (node), "-x-evo-first-br") ||
-                        element_has_class (WEBKIT_DOM_ELEMENT (node), "-x-evo-last-br")) {
+               } else if (element_has_class (WEBKIT_DOM_ELEMENT (node), "-x-evo-first-br") ||
+                          element_has_class (WEBKIT_DOM_ELEMENT (node), "-x-evo-last-br")) {
                        quote_br_node (node, quote_level);
                        node = next_sibling;
                        skip_node = TRUE;