diff options
Diffstat (limited to 'net/jao-frm.el')
| -rw-r--r-- | net/jao-frm.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/net/jao-frm.el b/net/jao-frm.el index d189423..2658687 100644 --- a/net/jao-frm.el +++ b/net/jao-frm.el @@ -1,6 +1,6 @@ ;;; jao-frm.el --- use frm to show mailbox -;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2019 +;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2019, 2020 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Keywords: mail @@ -182,6 +182,7 @@ (list jao-frm-mailboxes))) (t (error "Error in mbox specification. Check `jao-frm-mailboxes'")))) +;;;###autoload (defun jao-frm () "Run frm." (interactive) @@ -202,11 +203,13 @@ (when (and (boundp 'display-time-mode) display-time-mode) (display-time-update))))) +;;;###autoload (defun jao-frm-show-mail-numbers (&optional fmt) (interactive) (let ((counts (jao-frm-mail-counts fmt))) (message (if counts (mapconcat 'identity counts ", ") "No mail")))) +;;;###autoload (defun jao-frm-mail-string () (let ((counts (jao-frm-mail-counts (lambda (m n) |