1 files changed, 2 insertions, 9 deletions
diff --git a/aliases.txr b/aliases.txr
index f667918..67874c7 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -14,15 +14,8 @@
      (:method get-decoded-memo (alias)
        (url-decode alias.memo))
      (:method get-html-memo (alias)
-       (let* ((mem alias.(get-decoded-memo))
-              (html (html-encode mem)))
-         (ifa (< (length mem) 60)
-           html
-           `<span title="@(html-encode mem)">         \
-              @(html-encode [mem 0..27])            \ \
-              [<a href="mailto:@mem"                  \
-                  onclick="return false;">...</a>]  \ \
-              @(html-encode [mem -27..t])</span>`)))))
+       (let* ((mem alias.(get-decoded-memo)))
+         (html-encode-with-http mem)))))
 @;
 @(bind selected-alias-keys nil)
 @;