diff options
author | Austin Clements <amdragon@MIT.EDU> | 2013-05-29 21:13:45 -0400 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2013-05-31 22:00:52 -0300 |
commit | 04725cfbe5a8905651b3f6a4dcf1f3dce9a085e1 (patch) | |
tree | dc3d2b59c5159be283cf034ae98a3f9b25337598 /emacs/notmuch-lib.el | |
parent | 6bbb91f8b64c20a491cc3501b625753f97e52882 (diff) |
emacs: Record part p-list in a text property
This is similar to what we already do with the message p-list, though
we apply the part's text property to the whole part's text, in
contrast with the message p-list, which is (rather obscurely) only
applied to the first character.
Diffstat (limited to 'emacs/notmuch-lib.el')
-rw-r--r-- | emacs/notmuch-lib.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 59b1ce3f..7c6cf61a 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -360,6 +360,18 @@ OBJECT." below string)) +(defun notmuch-map-text-property (start end prop func &optional object) + "Transform text property PROP using FUNC. + +Applies FUNC to each distinct value of the text property PROP +between START and END of OBJECT, setting PROP to the value +returned by FUNC." + (while (< start end) + (let ((value (get-text-property start prop object)) + (next (next-single-property-change start prop object end))) + (put-text-property start next prop (funcall func value) object) + (setq start next)))) + (defun notmuch-logged-error (msg &optional extra) "Log MSG and EXTRA to *Notmuch errors* and signal MSG. |