summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joost Kremers <joostkremers@fastmail.fm>2013-03-31 12:02:29 +0200
committerGravatar Julien Danjou <julien@danjou.info>2013-03-31 16:41:05 +0200
commit646482203aacdf847d57d0a96263fddcfc33fb61 (patch)
treed11466f226d63dc06f8fb08f5781666d0327d7ad
parent401ae4c39d6446b4ef38fcc39bdd1951c92402ab (diff)
Make mode line text customizable.
Signed-off-by: Julien Danjou <julien@danjou.info>
-rw-r--r--offlineimap.el7
1 files changed, 6 insertions, 1 deletions
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))