Mi fichero .emacs

;;
;;  fichero .emacs de Ignacio Arenaza
;;
;;  Trozos tomados prestados sin ninguna verguenza de diferentes lugares.
;;

(defun linux-c-mode ()
  "C mode con los ajustes por defecto que usa Linus para el kernel."
  (interactive)
  (load "c-mode")
  (c-mode)
  (setq c-indent-level 8)
  (setq c-brace-imaginary-offset 0)
  (setq c-brace-offset -8)
  (setq c-argdecl-indent 8)
  (setq c-label-offset -8)
  (setq c-continued-statement-offset 8)
  (setq indent-tabs-mode nil)
  (setq tab-width 8))


;;
;; --------- Modos iniciales y por defecto ---------------------------------
;;
(setq vc-initial-comment 't)
(setq default-major-mode 'text-mode)
(setq initial-major-mode 'text-mode)
(add-hook 'text-mode-hook
          (function (lambda ()
                      (turn-on-auto-fill))))

;;
;; -------- Habilitar los acentos y demas -----------------------------------
;;
(standard-display-european +1)
(set-input-mode (car (current-input-mode))
                (nth 1 (current-input-mode))
                0)
(set-language-environment "Latin-1")

;;
;; -------- Un poco de todo -------------------------------------------------
;;
(setq make-backup-files nil)            ; no crear ficheros xxx~
(transient-mark-mode +1)
(line-number-mode 't)
(column-number-mode 't)
(setq require-final-newline 'ask)
(require 'icomplete)
(display-time)


;;
;; -------- Usar Supercite para las respuestas de correo o news -------------
;;
(autoload 'sc-cite-original     "supercite" "Supercite 3.1" t)
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
(setq sc-electric-references-p 't)
  ;; Decirle a nuestro gestos de correo que use Supercite 
  ;; para citar el mensaje original
(add-hook 'mail-citation-hook 'sc-cite-original)
  ;; Evitar que Gnus incluya su propia cabecera de atribucion de la cita.
  ;; De lo contrario, tanto Gnus como SC añadiran la atribucion.
(setq news-reply-header-hook nil)
  ;; Esta linea es necesaria para que Gnus use Supercite. (ver gnus-setup.el)
(setq message-cite-function 'sc-cite-original)

;;
;; ------- Configuracion del gestor de correo -------------------------------
;;
  ;; Añadir la firma automaticamente a los mensajes.
(set-variable 'mail-signature 't)


;;
;; ------------ Mailcrypt (para usar PGP/GPG) --------------------------------
;;
(load-library "mailcrypt") 
(mc-setversion "gpg")
  ;; Recordar la contraseña de PGP/GPG durante 60 minutos.
  ;; (poner a 0 para deshabilitar su memorizacion)
(setq mc-passwd-timeout 3600)
  ;; Enganchar mailcrypt con mail-mode
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'mail-mode-hook 'mc-install-write-mode)
  ;; Enganchar mailcrypt con Gnus.
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'message-mode-hook 'mc-install-write-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)
  ;; No ocultar las cabeceras/pies del propio PGP/GPG y mostrarlo todo.
(setq gnus-treat-strip-pgp nil)

;;
;; -------- Algunas combinacions de teclas utiles----------------------------
;;
(global-set-key "\C-g" 'goto-line)
(global-set-key "\M-i" 'indented-text-mode)
(global-set-key "\C-c\c" 'compile)
(global-set-key [?\M-\C-q] 'fill-region)

 
;;
;; -------- Ajuste para AUC TeX ---------------------------------------------
;;
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(require 'tex-site)
(add-hook 'LaTeX-mode-hook
          (function (lambda ()
                      (turn-on-auto-fill)
                      (outline-minor-mode t))))
(setq TeX-dvi-view-command
      (if (eq window-system 'x) "xdvi -s 7" "dvi2tty * | cat -s"))

;;
;; -------- Configuracion para MIME -----------------------------------------
;;
  ;; No partir los attachements en varios mensajes cuando se envie algun
  ;; objeto grande (algunos lectores de correo de Windozw no son capaces
  ;; de decodificar mensaje MIME split/multipart)
(setq mime-editor/split-message 'nil)
  ;; Por defecto, usar codificacion iso-8859-1 para los mensajes.
(setq default-mime-charset 'iso-8859-1)

;;
;; -------- GNUS ---------------------------------------------------------
;;
  ;; Obtener las noticias de eb2ebu.ampr.org via NNTP.
(setq gnus-select-method '(nntp "eb2ebu.ampr.org"))
  ;; No quiero que me muestre los grupos de noticias nuevos cada vez
  ;; que leo las news. Siempre puedo suscribirme a los grupos pulsando
  ;; 'U' en el buffer de todos los grupos (pulsar 'A A' para
  ;; obtenerlo).
(setq gnus-check-new-newsgroups 'ask-server)
  ;; Ordenar los articulos primero segun su score, luego segun su
  ;; numero de articulo (desactivado por ahora).
;;(setq gnus-thread-sort-functions
;;      '(gnus-thread-sort-by-number
;;      (not gnus-thread-sort-by-total-score)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  ;; Ocultar nuestra direccion de correo real, salvo cuando enviamos
  ;; cosas por email.
(setq gnus-posting-styles
      '(
        (".*"
         (address "Ignacio Arenaza ))
        (message-this-is-mail
         (address "Ignacio Arenaza "))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  ;; Usar el metodo nnfolder (un fichero por buzon para todo el correo).
  ;;
(setq gnus-secondary-select-methods '((nnfolder "")))
  ;; El nombre del directorio donde guardar todas los buzones de correo.
  ;;
(setq nnfolder-directory "/home/iarenaza/Mail")
  ;; El nombre del fichero activo para los buzones.
  ;;
(setq nnfolder-active-file "/home/iarenaza/Mail/mbox")
  ;; Guardar copia de todos los mensajes/articuls que enviamos.
  ;; Indicar a Gnus que no lea mensajes de estos buzones y sobre todo,
  ;; que no los expire.
  ;;
(setq gnus-message-archive-method
     '(nnfolder "archive"
               (nnfolder-directory   "~/Mail/archive")
               (nnfolder-active-file "~/Mail/archive/active")
               (nnfolder-get-new-mail nil)
               (nnfolder-inhibit-expiry t)))
  ;; Indicar el buzon donde dejar los articulos de news y el buzon
  ;; donde dejar los mensajes de correo.
  ;;
(setq gnus-message-archive-group
      '((if (message-news-p)
            "sent-news"
          "sent-mail")))
  ;; El nombre del fichero de donde leer el correo nuevo.
  ;;
(setq nnmail-spool-file '"/var/spool/mail/iarenaza")
  ;; Si no es `nil', `nnfolder' leera todo el correo nuevo y lo
  ;; repartira en diferentes buzones (grupos).
  ;;
(setq nnfolder-get-new-mail 't)
  ;; Puesto que hemos dicho que queremos organizar el correo en
  ;; diferentes grupos, indicar cuales son los criterios de
  ;; organizacion. Los grupos debes estar creado a priorio. Ver la
  ;; doc. de Gnus para la sintaxis usada en nnmail-split-method.s
  ;;
(setq nnmail-split-methods 
      '(("mail.linux-alert"
         "Return-Path:.*")
        ("mail.debian-firewall"
         "X-Mailing-List:.*")
        ("mail.personal"
         "")
        )
      )

;; --------- Variables modificadas para ajustes diversos --------------------
;;
(custom-set-variables
 '(ispell-extra-args (quote ("-T" "latin1")))
 '(ps-paper-type (quote a4) t)
 '(mc-gpg-comment "Processed by Mailcrypt 3.5.4 and GPG" t)
 '(Info-additional-directory-list (quote ("/usr/share/info")))
 '(mail-source-delete-incoming t))
(custom-set-faces)