* update mm

2011-11-24 00:15:34 +02:00
parent 88dac0fc62
commit 30bfeb2f6c
2 changed files with 2 additions and 2 deletions
--- a/toys/mm/mm-view.el
+++ b/toys/mm/mm-view.el
@ -361,7 +361,7 @@ removing '^M' etc."
 	(add-text-properties p (point-max) '(face mm/view-footer-face))))
    ;; this is fairly simplistic...
    (goto-char (point-min))
-    (while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,]*\\)\\>" nil t)
+    (while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,:]*\\)\\>" nil t)
      (let ((subst (propertize (match-string-no-properties 0)
 		     'face 'mm/view-link-face)))
 	(incf num)