alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mm-view: minor improvement to url recognition regexp

Browse Source
This commit is contained in:
djcb
2011-12-12 08:25:52 +02:00
parent ca1f98efad
commit 36c168a418
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
toys/mm/mm-view.el
View File

@ -71,8 +71,8 @@ marking if it still had that."
(:subject (mm/view-header fieldname fieldval)) (:subject (mm/view-header fieldname fieldval))
(:path (mm/view-header fieldname fieldval)) (:path (mm/view-header fieldname fieldval))
(:maildir (mm/view-header fieldname fieldval)) (:maildir (mm/view-header fieldname fieldval))
(:flags (mm/view-header fieldname (format "%S" fieldval))) (:flags (mm/view-header fieldname
(if fieldval (format "%S" fieldval) "")))
;; contact fields ;; contact fields
(:to (mm/view-contacts msg field)) (:to (mm/view-contacts msg field))
(:from (mm/view-contacts msg field)) (:from (mm/view-contacts msg field))
@ -373,7 +373,7 @@ removing '^M' etc."
(add-text-properties p (point-max) '(face mm/view-footer-face)))) (add-text-properties p (point-max) '(face mm/view-footer-face))))
;; this is fairly simplistic... ;; this is fairly simplistic...
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,:]*\\)\\>" (while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,:;]*\\)\\>"
nil t) nil t)
(let ((subst (propertize (match-string-no-properties 0) (let ((subst (propertize (match-string-no-properties 0)
'face 'mm/view-link-face))) 'face 'mm/view-link-face)))