Add user functions

Eask

@@ -1,5 +1,5 @@
 (package "message-clean-mode"
-         "0.1.0"
+		 "0.1.0"
 		 "Keep messages buffer clean")
 
 (website-url "https://github.com/jcs-elpa/message-clean-mode")
@@ -9,10 +9,11 @@
 
 (script "test" "echo \"Error: no test specified\" && exit 1")
 
-(source "jcs-elpa")
+(source 'gnu)
+(source 'jcs-elpa)
 
 (depends-on "emacs" "25.1")
 (depends-on "msgu")
 
 (setq network-security-level 'low      ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432
-      byte-compile-error-on-warn nil)
+	  byte-compile-error-on-warn nil)

message-clean-mode.el

@@ -79,6 +79,25 @@
     (`mute #'message-clean-mode--mute)
     (`echo #'message-clean-mode--echo)))
 
+;;
+;; (@* "Util" )
+;;
+
+(defun message-clean-mode--re-enable-mode (modename)
+  "Re-enable the MODENAME."
+  (msgu-silent
+    (funcall-interactively modename -1) (funcall-interactively modename 1)))
+
+(defun message-clean-mode--re-enable-mode-if-was-enabled (modename)
+  "Re-enable the MODENAME if was enabled."
+  (when (boundp modename)
+    (when (symbol-value modename) (message-clean-mode--re-enable-mode modename))
+    (symbol-value modename)))
+
+(defun message-clean-mode--listify (obj)
+  "Turn OBJ to list."
+  (if (listp obj) obj (list obj)))
+
 ;;
 ;; (@* "Core" )
 ;;
@@ -130,5 +149,25 @@
   :group 'message-clean
   (if message-clean-mode (message-clean-mode--enable) (message-clean-mode--disable)))
 
+;;
+;; (@* "Users" )
+;;
+
+(defun message-clean-mode--add-commands (command lst)
+  "Add COMMAND to LST."
+  (let ((commands (message-clean-mode--listify command)))
+    (nconc lst commands)
+    (message-clean-mode--re-enable-mode-if-was-enabled #'message-clean-mode)))
+
+;;;###autoload
+(defun message-clean-mode-add-echo-commands (command)
+  "Add COMMAND to echo list."
+  (message-clean-mode--add-commands command message-clean-mode-echo-commands))
+
+;;;###autoload
+(defun message-clean-mode-add-mute-commands (command)
+  "Add COMMAND to mute list."
+  (message-clean-mode--add-commands command message-clean-mode-mute-commands))
+
 (provide 'message-clean-mode)
 ;;; message-clean-mode.el ends here