_spacemacs: Do not track "mu4e" package

1 files changed, 0 insertions, 165 deletions

diff --git a/_spacemacs.d/local/mu4e/mu4e-contrib.el b/_spacemacs.d/local/mu4e/mu4e-contrib.el
deleted file mode 100644
index 156f5b6..0000000
--- a/_spacemacs.d/local/mu4e/mu4e-contrib.el
+++ /dev/null
@@ -1,165 +0,0 @@
-;;; mu4e-contrib.el -- part of mu4e, the mu mail user agent
-;;
-;; Copyright (C) 2013-2016 Dirk-Jan C. Binnema
-
-;; This file is not part of GNU Emacs.
-;;
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Some user-contributed functions for mu4e
-
-;; Contributed by sabof
-
-(require 'mu4e)
-
-(defun mu4e-headers-mark-all-unread-read ()
-  "Put a ! \(read) mark on all visible unread messages."
-  (interactive)
-  (mu4e-headers-mark-for-each-if
-   (cons 'read nil)
-   (lambda (msg param)
-     (memq 'unread (mu4e-msg-field msg :flags)))))
-
-(defun mu4e-headers-flag-all-read ()
-  "Flag all visible messages as \"read\"."
-  (interactive)
-  (mu4e-headers-mark-all-unread-read)
-  (mu4e-mark-execute-all t))
-
-;;;
-
-(defun mu4e-headers-mark-all ()
-  "Mark all messages within current query results and ask user to execute which action."
-  (interactive)
-  (mu4e-headers-mark-for-each-if
-   (cons 'something nil)
-   (lambda (msg param) t))
-  (mu4e-mark-execute-all))
-
-;;;
-
-;;; Bookmark handlers
-;;
-;;  Allow bookmarking a mu4e buffer in regular emacs bookmarks.
-
-;; Probably this can be moved to mu4e-view.el.
-(add-hook 'mu4e-view-mode-hook
-          #'(lambda ()
-              (set (make-local-variable 'bookmark-make-record-function)
-                   'mu4e-view-bookmark-make-record)))
-;; And this can be moved to mu4e-headers.el.
-(add-hook 'mu4e-headers-mode-hook
-          #'(lambda ()
-              (set (make-local-variable 'bookmark-make-record-function)
-                   'mu4e-view-bookmark-make-record)))
-
-(defun mu4e-view-bookmark-make-record ()
-  "Make a bookmark entry for a mu4e buffer. Note that this is an
-emacs bookmark, not to be confused with `mu4e-bookmarks'."
-  (let* ((msg     (mu4e-message-at-point))
-         (maildir (plist-get msg :maildir))
-         (date    (format-time-string "%Y%m%d" (plist-get msg :date)))
-         (query   (format "maildir:%s date:%s" maildir date))
-         (docid   (plist-get msg :docid))
-         (mode    (symbol-name major-mode))
-         (subject (or (plist-get msg :subject) "No subject")))
-    `(,subject
-      ,@(bookmark-make-record-default 'no-file 'no-context)
-        (location . (,query . ,docid))
-        (mode . ,mode)
-        (handler . mu4e-bookmark-jump))))
-
-(defun mu4e-bookmark-jump (bookmark)
-  "Handler function for record returned by `mu4e-view-bookmark-make-record'.
-BOOKMARK is a bookmark name or a bookmark record."
-  (let* ((path  (bookmark-prop-get bookmark 'location))
-         (mode  (bookmark-prop-get bookmark 'mode))
-         (docid (cdr path))
-         (query (car path)))
-    (call-interactively 'mu4e)
-    (mu4e-headers-search query)
-    (sit-for 0.5)
-    (mu4e~headers-goto-docid docid)
-    (mu4e~headers-highlight docid)
-    (unless (string= mode "mu4e-headers-mode")
-      (call-interactively 'mu4e-headers-view-message)
-      (run-with-timer 0.1 nil
-                      (lambda (bmk)
-                        (bookmark-default-handler
-			  `("" (buffer . ,(current-buffer)) .
-			     ,(bookmark-get-bookmark-record bmk))))
-                      bookmark))))
-
-
-
-;;; handling spam with Bogofilter with possibility to define it for SpamAssassin
-;;; contributed by Gour
-
-;;  to add the actions to the menu, you can use something like:
-
-;; (add-to-list 'mu4e-headers-actions
-;;              '("sMark as spam" . mu4e-register-msg-as-spam) t)
-;; (add-to-list 'mu4e-headers-actions
-;;              '("hMark as ham" . mu4e-register-msg-as-ham) t)
-
-(defvar mu4e-register-as-spam-cmd nil
-  "Command for invoking spam processor to register message as spam,
-for example for bogofilter, use \"/usr/bin/bogofilter -Ns < %s\" ")
-
-(defvar mu4e-register-as-ham-cmd nil
-  "Command for invoking spam processor to register message as ham.
-For example for bogofile, use \"/usr/bin/bogofilter -Sn < %s\"")
-
-(defun mu4e-register-msg-as-spam (msg)
-  "Mark message as spam."
-  (interactive)
-  (let* ((path (shell-quote-argument (mu4e-message-field msg :path)))
-         (command (format mu4e-register-as-spam-cmd path))) ;; re-register msg as spam 
-    (shell-command command))
-(mu4e-mark-at-point 'delete nil))
-
-(defun mu4e-register-msg-as-ham (msg)
-  "Mark message as ham."
-  (interactive)
-  (let* ((path (shell-quote-argument(mu4e-message-field msg :path)))
-         (command (format mu4e-register-as-ham-cmd path))) ;; re-register msg as ham
-    (shell-command command))
-(mu4e-mark-at-point 'something nil))
- 
-;; (add-to-list 'mu4e-view-actions
-;;              '("sMark as spam" . mu4e-view-register-msg-as-spam) t)
-;; (add-to-list 'mu4e-view-actions
-;;              '("hMark as ham" . mu4e-view-register-msg-as-ham) t)
-
-(defun mu4e-view-register-msg-as-spam (msg)
-  "Mark message as spam (view mode)."
-  (interactive)
-  (let* ((path (shell-quote-argument (mu4e-message-field msg :path)))
-         (command (format mu4e-register-as-spam-cmd path)))
-    (shell-command command))
-  (mu4e-view-mark-for-delete))
-
-(defun mu4e-view-register-msg-as-ham (msg)
-  "Mark message as ham (view mode)."
-  (interactive)
-  (let* ((path (shell-quote-argument(mu4e-message-field msg :path)))
-         (command (format mu4e-register-as-ham-cmd path)))
-    (shell-command command))
-  (mu4e-view-mark-for-something))
-
-;;; end of spam-filtering functions 
-
-(provide 'mu4e-contrib)