From 646482203aacdf847d57d0a96263fddcfc33fb61 Mon Sep 17 00:00:00 2001 From: Joost Kremers Date: Sun, 31 Mar 2013 12:02:29 +0200 Subject: Make mode line text customizable. Signed-off-by: Julien Danjou --- offlineimap.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'offlineimap.el') diff --git a/offlineimap.el b/offlineimap.el index a00f3ff..6bd8178 100644 --- a/offlineimap.el +++ b/offlineimap.el @@ -71,6 +71,11 @@ This is used when `offlineimap-mode-line-style' is set to 'symbol." :group 'offlineimap :type 'string) +(defcustom offlineimap-mode-line-text "OfflineIMAP: " + "Text used to display OfflineIMAP status in mode-line." + :group 'offlineimap + :type 'string) + (defcustom offlineimap-timestamp nil "Timestamp to add at the beginning of each OffsyncIMAP line." :type 'string @@ -191,7 +196,7 @@ This is used when `offlineimap-mode-line-style' is set to 'symbol." "Update mode line information about OfflineIMAP PROCESS." (setq offlineimap-mode-line-string (propertize - (concat " [OfflineIMAP: " + (concat " [" offlineimap-mode-line-text (let ((status (process-status process))) (if (eq status 'run) (let ((msg-type (process-get process :last-msg-type)) -- cgit v1.2.3