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

* make mu4e-view-url-regexp a public variable

Browse Source 
thus, users can more easily experiment with this
This commit is contained in:
djcb
2014-04-27 11:32:21 +03:00
parent 5cf67c6ea9
commit 205de21783
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-view.el
View File

@ -157,7 +157,7 @@ The first letter of NAME is used as a shortcut character.")
This is to determine what is the parent docid for embedded This is to determine what is the parent docid for embedded
message extracted at some path.") message extracted at some path.")
(defconst mu4e~view-url-regexp (defvar mu4e-view-url-regexp
"\\(\\(https?\\://\\|mailto:\\)[-+\[:alnum:\].?_$%/+&#@!*~,:;=/()]+\\)" "\\(\\(https?\\://\\|mailto:\\)[-+\[:alnum:\].?_$%/+&#@!*~,:;=/()]+\\)"
"Regexp that matches http:/https:/mailto: URLs; match-string 1 "Regexp that matches http:/https:/mailto: URLs; match-string 1
will contain the matched URL, if any.") will contain the matched URL, if any.")
@ -786,7 +786,7 @@ Also number them so they can be opened using `mu4e-view-go-to-url'."
(setq mu4e~view-link-map ;; buffer local (setq mu4e~view-link-map ;; buffer local
(make-hash-table :size 32 :weakness nil)) (make-hash-table :size 32 :weakness nil))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward mu4e~view-url-regexp nil t) (while (re-search-forward mu4e-view-url-regexp nil t)
(let* ((url (match-string 0)) (let* ((url (match-string 0))
(ov (make-overlay (match-beginning 0) (match-end 0)))) (ov (make-overlay (match-beginning 0) (match-end 0))))
(puthash (incf num) url mu4e~view-link-map) (puthash (incf num) url mu4e~view-link-map)