emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-24 07:26:49 +02:00
Code Issues Releases Wiki Activity

* some fixes for the retagging action (thanks to Abdó Roig-Maranges)

Browse Source
This commit is contained in:
djcb 2012-12-15 12:06:32 +02:00
parent 9bc27d63ef
commit f7b6c6e6ab
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mu4e/mu4e-actions.el
View File

@ -183,12 +183,16 @@ store your org-contacts."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e-action-tags-header "X-Keywords" (defvar mu4e-action-tags-header "X-Keywords"
"Header where tags are stored.") "Header where tags are stored. Used by `mu4e-action-retag-message'.
Make sure it is one of the headers mu recognizes for storing
tags: X-Keywords, X-Label, Keywords. Also note that changing
this setting on already tagged messages can lead to messages
with multiple tags headers")
(defun mu4e-action-retag-message (msg) (defun mu4e-action-retag-message (msg &optional retag-arg)
"Change tags of a message. Example: +tag \"+long tag\" -oldtag "Change tags of a message. Example: +tag \"+long tag\" -oldtag
adds 'tag' and 'long tag', and removes oldtag." adds 'tag' and 'long tag', and removes oldtag."
(let* ((retag (read-string "Tags: ")) (let* ((retag (or retag-arg (read-string "Tags: ")))
(path (mu4e-message-field msg :path)) (path (mu4e-message-field msg :path))
(maildir (mu4e-message-field msg :maildir)) (maildir (mu4e-message-field msg :maildir))
(oldtags (mu4e-message-field msg :tags)) (oldtags (mu4e-message-field msg :tags))
@ -212,11 +216,17 @@ store your org-contacts."
(setq tagstr (mapconcat 'identity taglist sep)) (setq tagstr (mapconcat 'identity taglist sep))
(setq tagstr (replace-regexp-in-string "[\\/&]" "\\\\\\&" tagstr)) (setq tagstr (replace-regexp-in-string "[\\/&]" "\\\\\\&" tagstr))
;; replaces keywords with sed, restricted to the header (if (string= (shell-command-to-string (format "sed -n '1,/^$/ {/^%s:/I p}' \"%s\""
(call-process "sed" nil nil nil "-i" mu4e-action-tags-header path)) "")
(format "1,/^$/s/^%s:.*$/%s: %s/" header header tagstr) path) ;; Add tags header just before the content
(call-process "sed" nil nil nil "-i"
(format "1,/^$/s/^$/%s: %s\\n/I" header tagstr) path)
(mu4e-message (concat "tagging: " (mapconcat 'identity taglist " "))) ;; replaces keywords with sed, restricted to the header
(call-process "sed" nil nil nil "-i"
(format "1,/^$/s/^%s:.*$/%s: %s/I" header header tagstr) path))
(mu4e-message (concat "tagging: " (mapconcat 'identity taglist ", ")))
(mu4e-refresh-message path maildir))) (mu4e-refresh-message path maildir)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;