Mercurial > emacs
diff lisp/mail/rmail.el @ 88167:9f588a03d498
(rmail): Create the buffer using
file-name-nondirectory.
(rmail-mode-map): Bind j to rmail-show-message instead of
rmail-message.
author | Alex Schroeder <alex@gnu.org> |
---|---|
date | Mon, 16 Jan 2006 21:39:04 +0000 |
parents | 080ef9583ad4 |
children | c8c3cfdd5200 |
line wrap: on
line diff
--- 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)