[1140] in athena10
Re: errors..
daemon@ATHENA.MIT.EDU (Jonathan A. Solomon)
Thu Feb 12 15:49:41 2009
Date: Thu, 12 Feb 2009 15:48:33 -0500 (EST)
Message-Id: <200902122048.n1CKmXZx014688@biohazard-cafe.mit.edu>
From: "Jonathan A. Solomon" <jsol@MIT.EDU>
To: ucko@debian.org
CC: linerva@MIT.EDU
In-reply-to: <udl7i3vgzo7.fsf@vinegar-pot.mit.edu> (ucko@debian.org)
here's a copy of my .emacs file, which has been renamed out
of the loop until it works......
(unless window-system
(setq key-translation-map (or key-translation-map (make-keymap)))
(define-key key-translation-map (kbd "C-h") (kbd "DEL"))
(define-key key-translation-map (kbd "DEL") (kbd "C-d"))
(global-set-key (kbd "ESC ?") 'help-command)
(setq help-char ??)
(global-set-key (kbd "ESC _") 'set-mark-command))
(menu-bar-mode -1)
(setq rmail-movemail-program "/mit/jsol/krb4-movemail/movemail")
;;;(put 'narrow-to-region 'disabled nil)
;;;(put 'eval-expression 'disabled nil)
;;;(setq rmail-file-name "~/Private/RMAIL")
(setq version-control t)
(setq kept-new-versions 100)
(enable-flow-control)
(setq rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^message-id:\\|^summary-line:\\|^path:\\|^X-mailer:\\|^nntp-posting-host:\\|^sender:\\|^original-to:\\|^resent-message-id:\\|^resent-date:\\|^X-Coding-System:\\|^X-eGroups-Return:\\|^X-Sender:\\|^X-Apparently-To:\\|^content-type:\\|^X-accept-language:\\|^MIME-version:\\|^Content-transfer-encoding:")
(put 'erase-buffer 'disabled nil)
;; Lets have time
(display-time)
;; Auto fill in mail
(setq mail-mode-hook 'turn-on-auto-fill)
;;GNUS a news reader
(autoload 'gnus "gnus" "Read network news." t)
(autoload 'gnus-post-news "gnuspost" "Post a new news." t)
(setq gnus-nntp-service nil)
;;; Swap BackSpace with Delete
(let ((the-table (make-string 128 0)))
(let ((i 0))
(while (< i 128)
(aset the-table i i)
(setq i (1+ i))))
;; Swap ^H and DEL
(aset the-table ?\177 ?\^h)
(aset the-table ?\^h ?\177)
(setq keyboard-translate-table the-table))
