From 57674fa6a4ee6c04bd9c4ffef4c3d1829037e301 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Mon, 16 Jan 2006 21:40:14 +0000 Subject: [PATCH] (rmail): Create the buffer using file-name-nondirectory. (rmail-mode-map): Bind j to rmail-show-message instead of rmail-message. --- lisp/mail/ChangeLog | 7 +++++++ lisp/mail/rmail.el | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog index cf44fce39e9..5279734e1ca 100644 --- a/lisp/mail/ChangeLog +++ b/lisp/mail/ChangeLog @@ -1,3 +1,10 @@ +2006-01-16 Alex Schroeder + + * rmail.el (rmail): Create the buffer using + file-name-nondirectory. + (rmail-mode-map): Bind j to rmail-show-message instead of + rmail-message. + 2006-01-16 Henrik Enberg * rmailsum.el (rmail-new-summary): Make sure summary buffer is diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2be7c01a953..f18c12bcfd8 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -794,7 +794,8 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (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 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (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) -- 2.39.2