emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e: uses correct helper function naming conventions.

This commit is contained in:
D. LoBraico 2013-03-16 12:40:12 -05:00
parent 8fe98f3853
commit 0d4d7b4ff1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-actions.el
View File

@ -189,7 +189,7 @@ store your org-contacts."
this setting on already tagged messages can lead to messages
with multiple tags headers")
(defun contains-line-matching (regexp path)
(defun mu4e-contains-line-matching (regexp path)
"Determine whether the file at path contains a line matching
the given regexp."
(with-temp-buffer
@ -199,7 +199,7 @@ store your org-contacts."
t
nil))))
(defun replace-first-line-matching (regexp to-string path)
(defun mu4e-replace-first-line-matching (regexp to-string path)
"Replace the first line in the file at path that matches regexp
with the string replace"
(with-temp-file path
@ -237,12 +237,12 @@ store your org-contacts."
(setq tagstr (replace-regexp-in-string "[\\&]" "\\\\\\&" tagstr))
(setq tagstr (replace-regexp-in-string "[/]" "\\&" tagstr))
(if (not (contains-line-matching (concat header ":.*") path))
(if (not (mu4e-contains-line-matching (concat header ":.*") path))
;; Add tags header just before the content
(replace-first-line-matching "^$" (concat header ": " tagstr "\n") path)
(mu4e-replace-first-line-matching "^$" (concat header ": " tagstr "\n") path)
;; replaces keywords, restricted to the header
(replace-first-line-matching
(mu4e-replace-first-line-matching
(concat header ":.*")
(concat header ": " tagstr)
path))