 ;;
 (let (lispdir)
   (if --melpa
-    (progn
-      (require 'package)
-      (package-initialize)
-      (add-to-list 'package-archives
-        '("melpa-stable" . "https://stable.melpa.org/packages/") t)
-      (package-refresh-contents)
-      (setq lispdir "~/.emacs.d/elpa/"))
+      (progn
+        (require 'package)
+        (package-initialize)
+        (add-to-list 'package-archives
+                     '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+        (package-refresh-contents)
+        (setq lispdir "~/.emacs.d/elpa/"))
     (setq lispdir (concat --homebrew-prefix "share/emacs/site-lisp/")))
   (let ((default-directory lispdir))
     (normal-top-level-add-subdirs-to-load-path)))

  "Toggle flag on message(s) from BEG to END."
  (interactive (notmuch-search-interactive-region))
  (if (member "spam" (notmuch-show-get-tags))
    (progn
      (notmuch-search-tag '("+inbox") beg end)
      (notmuch-search-tag '("-spam") beg end))
    (progn
      (notmuch-search-tag '("+spam") beg end)
      (notmuch-search-tag '("-unread") beg end)

  ;; http://www.emacswiki.org/emacs/ExecuteExternalCommand
  (start-process "copy-to-clipboard" "*Messages*" "~/bin/copy.sh" text))
(if (eq system-type 'darwin)
    (setq interprogram-cut-function 'pipe-to-pbcopy))

(defun pbpaste ()
  "Insert the contents of the clipboard."
