Emacs -- filtering out echoed message patterns

gistfile1.el

(setq echo-area-silenced-patterns '("Desktop saved"
                                    "Auto saving"
                                    "No changes need to be saved"
                                    "You can run the command"))
 
(defadvice message (before ignorable-message activate compile)
 "Do not echo any messages matching a pattern in `echo-area-silenced-patterns`."
 (let ((current-echo (current-message))
       (incoming-echo (apply 'format (cons format-string args))))
   (when (member-if '(lambda (pattern) (search pattern incoming-echo)) echo-area-silenced-patterns)
     (ad-set-arg 0 current-echo))))