Emacs: remove-dup function. (eq. to sort -u)

.emacs.d/functions.el

@@ -16,12 +16,12 @@
   (let ((fill-column (point-max)))
     (fill-region (region-beginning) (region-end) nil)))
 
+
 ;; Remove duplicate lines. (sort -u)
-;; TODO: finish it.
-;; (defun remove-duplicates ()
-;;   (interactive)
-;;   ((shell-command (echo blah)))
-;; )
+(defun remove-dup ()
+  (interactive)
+  (shell-command-on-region (point) (mark) "sort -u" (buffer-name) t)
+)
 
 ;;==============================================================================
 ;; Toggle window split

.muttrc

@@ -82,8 +82,8 @@ folder-hook '$my_ac_work' 'source ~/.mutt/$my_ac_work'
 folder-hook '$my_ac_university' 'source ~/.mutt/$my_ac_university'
 
 ## Switch to default account on startup
-# source "~/.mutt/$my_ac_university"
-source "~/.mutt/$my_ac_personal"
+source "~/.mutt/$my_ac_university"
+# source "~/.mutt/$my_ac_personal"
 # source "~/.mutt/$my_ac_work"
 
 ## Keys