                                           nil
                                           t
                                           "\\.")))
-                (setq elfeed-search-filter (concatenate 'string "@2-months-ago +unread +"
+                (setq elfeed-search-filter (concatenate 'string "@2-months-ago -nah +unread +"
                                                         tag))
                 (elfeed-search-update :force)
                 (evil-goto-first-line)))

              'meain/elfeed-open-all)
            (defun meain/elfeed-search-filter ()
              (interactive)
              (setq elfeed-search-filter "@2-months-ago +unread")
              (elfeed-search-update :force)
              (let ((tag (completing-read "Apply tag: "
                                          (remove-if (lambda (x)

              (setq elfeed-search-filter (mapconcat 'identity
                                                    (remove-if-not (lambda (x)
                                                                     (or (string-prefix-p "+" x)
                                                                         (string-prefix-p "-" x)
                                                                         (string-prefix-p "@" x)))
                                                                   (split-string elfeed-search-filter))
                                                    " "))
