From 30bfeb2f6cf5a2dda7367ed408fc07c2a2500ab4 Mon Sep 17 00:00:00 2001 From: djcb Date: Thu, 24 Nov 2011 00:15:34 +0200 Subject: [PATCH] * update mm --- toys/mm/mm-hdrs.el | 2 +- toys/mm/mm-view.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/toys/mm/mm-hdrs.el b/toys/mm/mm-hdrs.el index e3d0c988..939150bb 100644 --- a/toys/mm/mm-hdrs.el +++ b/toys/mm/mm-hdrs.el @@ -135,7 +135,7 @@ the current list of headers." (error "At point %d, expected docid %d, but got %d" pos docid docid-at-pos)) (mm/hdrs-remove-header docid pos)))) -w;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mm/hdrs-contact-str (contacts) "Turn the list of contacts CONTACTS (with elements (NAME . EMAIL) diff --git a/toys/mm/mm-view.el b/toys/mm/mm-view.el index 0c74dec2..172b0b13 100644 --- 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)