   (interactive)
   (save-excursion
     (if (and (not (= (current-column) 0))
-	     (re-search-backward "[ \t]" 0 t ))
-	(forward-char))
+             (re-search-backward "[ \t]" 0 t ))
+        (forward-char))
     (let ((retn 0)
-	  (old-column (current-column))
-	  (old-next-line-add-newlines))
+          (old-column (current-column))
+          (old-next-line-add-newlines))
       (setq next-line-add-newlines nil)
       (while (not
-	      (looking-at "^[ \t]*$"))
-	(move-to-column old-column t)
-	(if (and (looking-at "-?[0123456789]+")
-		 (eq (current-column) old-column))
-		(setq retn (+ retn (string-to-number (current-word)))))
-	(next-line)
-	(beginning-of-line))
+              (looking-at "^[ \t]*$"))
+        (move-to-column old-column t)
+        (if (and (looking-at "-?[0123456789]+")
+                 (eq (current-column) old-column))
+            (setq retn (+ retn (string-to-number (current-word)))))
+        (next-line)
+        (beginning-of-line))
       (next-line)
       (next-line)
       (move-end-of-line 0)


;; smtp mail
;; http://obfuscatedcode.wordpress.com/2007/04/26/configuring-emacs-for-gmails-smtp/
(setq user-mail-address "alex.kritikos@gmail.com")
(setq user-full-name "Alex Kritikos")
(setq send-mail-function 'smtpmail-send-it
      message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials
      '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials
      (expand-file-name "~/.authinfo")
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 587
      smtpmail-debug-info t)
(autoload 'compose-mail "smtpmail")
(load "abbrevs" 'noerror)
(add-hook 'mail-mode-hook 'mail-abbrevs-setup)

;; wanderlust
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

;; IMAP
;;(setq elmo-imap4-default-server "imap.gmail.com")
;;(setq elmo-imap4-default-user "alex.kritikos@gmail.com")
;;(setq elmo-imap4-default-authenticate-type 'clear)
;;(setq elmo-imap4-default-port '993)
;;(setq elmo-imap4-default-stream-type 'ssl)
;;(setq elmo-imap4-use-modified-utf7 t)

(autoload 'wl-user-agent-compose "wl-draft" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'wl-user-agent))


;; better buffer names
(require 'uniquify)
(setq uniquify-buffer-name-style   'forward
      uniquify-strip-common-suffix nil
      uniquify-separator           "/"
      uniquify-after-kill-buffer-p t
      uniquify-ignore-buffers-re   "^\\*")

;; ido.el - better buffer and filename completion
(autoload 'ido-mode "ido")
