From 0d4d7b4ff10d930c2b25deed594078f2fd0ff0d4 Mon Sep 17 00:00:00 2001 From: "D. LoBraico" Date: Sat, 16 Mar 2013 12:40:12 -0500 Subject: [PATCH] * mu4e: uses correct helper function naming conventions. --- mu4e/mu4e-actions.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/mu4e/mu4e-actions.el b/mu4e/mu4e-actions.el index 3b507470..6558894f 100644 --- a/mu4e/mu4e-actions.el +++ b/mu4e/mu4e-actions.el @@ -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))