diff options
| author |  Joost Kremers <joostkremers@fastmail.fm> | 2013-03-31 12:02:29 +0200 |
|---|---|---|
| committer |  Julien Danjou <julien@danjou.info> | 2013-03-31 16:41:05 +0200 |
| commit | 646482203aacdf847d57d0a96263fddcfc33fb61 (patch) | |
| tree | d11466f226d63dc06f8fb08f5781666d0327d7ad | |
| parent | 401ae4c39d6446b4ef38fcc39bdd1951c92402ab (diff) | |
Make mode line text customizable.
Signed-off-by: Julien Danjou <julien@danjou.info>
| -rw-r--r-- | offlineimap.el | 7 |
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)) |