# HG changeset patch # User Alex Schroeder # Date 1137447544 0 # Node ID 9f588a03d498f22cf2f71754b02167846a8fc8ce # Parent d20b1cfca610871c34429b8501db8a5da5e5cf70 (rmail): Create the buffer using file-name-nondirectory. (rmail-mode-map): Bind j to rmail-show-message instead of rmail-message. diff -r d20b1cfca610 -r 9f588a03d498 lisp/mail/rmail.el --- a/lisp/mail/rmail.el Mon Jan 16 21:06:36 2006 +0000 +++ b/lisp/mail/rmail.el Mon Jan 16 21:39:04 2006 +0000 @@ -794,7 +794,8 @@ (insert-file-contents-literally file-name) ;; We need to re-initialize rmail-mode later. (setq major-mode 'fundamental-mode)) - (switch-to-buffer (get-buffer-create file-name)) + (switch-to-buffer + (get-buffer-create (file-name-nondirectory file-name))) (insert-file-contents-literally file-name) (setq buffer-file-name file-name)) ;; As we have read a file as raw-text, the buffer is set to @@ -882,7 +883,7 @@ (define-key rmail-mode-map "g" 'rmail-get-new-mail) (define-key rmail-mode-map "h" 'rmail-summary) (define-key rmail-mode-map "i" 'rmail-input) - (define-key rmail-mode-map "j" 'rmail-message) + (define-key rmail-mode-map "j" 'rmail-show-message) (define-key rmail-mode-map "k" 'rmail-kill-label) (define-key rmail-mode-map "l" 'rmail-summary-by-labels) (define-key rmail-mode-map "\e\C-h" 'rmail-summary)