   (if (eq (desktop-owner) (emacs-pid))
       (desktop-save desktop-dirname)))
 
-;;(add-hook 'auto-save-hook 'my-desktop-save)
-
+;; (add-hook 'auto-save-hook 'my-desktop-save)
 ;; (require 'recentf)
 ;; (recentf-mode 1)
 

       ;; By default the "show hidden multipart" buttons are very bright (and distracting) in my color scheme.
       ;; Make them be the same color as the email's body text.
       (set-face-foreground 'message-mml (face-attribute 'default :foreground))))

;;(add-to-list 'default-frame-alist '(tty-color-mode  . -1))

(defun uniquify-all-lines-region (start end)
  "Find duplicate lines in region START to END keeping first occurrence."

  (let ((inhibit-read-only t))
    (ansi-color-apply-on-region (point-min) (point-max))))

(require 'desktop)

(setq desktop-buffers-not-to-save
