diff options
| -rw-r--r-- | view-conf.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/view-conf.el b/view-conf.el index 1d78947..09f70ee 100644 --- a/view-conf.el +++ b/view-conf.el @@ -138,7 +138,12 @@ If ARG is '(4), view the list of timers." connected: %s, cycles: %d, condition: %s" full-capacity remain "%%" fullp charging connected cycle condition))))) - ((equal arg (list 4)) (list-timers)) + ((equal arg (list 4)) + (list-timers) + (save-match-data + (cond + ((search-forward "mail" nil t) + (goto-char (pos-bol)))))) (t (user-error "Unsupported ARG: %S" arg)))) |