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

* mm updates

Browse Source
This commit is contained in:
djcb
2011-10-26 22:00:08 +03:00
parent 39c126b51b
commit 19e93a52f1
3 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -319,8 +319,8 @@ removing '^M' etc."
(save-excursion
;; remove the stupid CRs
(goto-char (point-min))
(while (re-search-forward "[
 ]" nil t)
(while (re-search-forward "[\r\240]" nil t)
(replace-match " " nil t))
;; give the footer a different color...
(goto-char (point-min))
(let ((p (search-forward "\n-- \n" nil t)))
@ -328,7 +328,7 @@ removing '^M' etc."
(add-text-properties p (point-max) '(face mm/view-footer-face))))
;; this is fairly simplistic...
(goto-char (point-min))
(goto-char (point-min))
(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)