   (next-line n)
   (scroll-up n))
 
-;;(global-set-key [mouse-4] 'scroll-down-in-place)
-;;(global-set-key [mouse-5] 'scroll-up-in-place)
 (global-set-key [C-up] 'scroll-down-in-place)
 (global-set-key [C-down] 'scroll-up-in-place)
 
 
-;; TODO: need to fix highlighting by S-<home>
 (defun smart-beginning-of-line ()
-  "Move point to first non-whitespace character or beginning-of-line.
-Move point to the first non-whitespace character on this line.
-If point was already at that position, move point to beginning of line."
-  (interactive) ; Use (interactive "^") in Emacs 23 to make shift-select work
+  "Move point to first non-whitespace character or beginning-of-line."
+  (interactive) ; Use (interactive "^") in Emacs 23 to make shift-select work 
   (let ((oldpos (point)))
     (back-to-indentation)
     (and (= oldpos (point))
          (beginning-of-line))))
 
+(put 'smart-beginning-of-line 'CUA 'move)
 (global-set-key [home] 'smart-beginning-of-line)
+
 
 
 ;; Backups

  "Return a new file path of a given file path.
If the new path's directories does not exist, create them."
  (let (backup-root bpath)
    (setq backup-root "~/.emacs.d/emacs-backup")
    (setq bpath (concat backup-root fPath "~"))
    (make-directory (file-name-directory bpath) bpath)
    bpath

                            (mode . gnus-article-mode)
                            (name . "^\\.bbdb$")
                            (name . "^\\.newsrc-dribble")))))))
(add-hook 'ibuffer-mode-hook
	  (lambda ()
	    (ibuffer-switch-to-saved-filter-groups "default")))

	
(custom-set-faces
