Mercurial > emacs

comparison lisp/mail/rmail.el @ 88167:9f588a03d498

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
88166:d20b1cfca610 88167:9f588a03d498
792 (let ((inhibit-read-only t)) 792 (let ((inhibit-read-only t))
793 (erase-buffer) 793 (erase-buffer)
794 (insert-file-contents-literally file-name) 794 (insert-file-contents-literally file-name)
795 ;; We need to re-initialize rmail-mode later. 795 ;; We need to re-initialize rmail-mode later.
796 (setq major-mode 'fundamental-mode)) 796 (setq major-mode 'fundamental-mode))
797 (switch-to-buffer (get-buffer-create file-name)) 797 (switch-to-buffer
798 (get-buffer-create (file-name-nondirectory file-name)))
798 (insert-file-contents-literally file-name) 799 (insert-file-contents-literally file-name)
799 (setq buffer-file-name file-name)) 800 (setq buffer-file-name file-name))
800 ;; As we have read a file as raw-text, the buffer is set to 801 ;; As we have read a file as raw-text, the buffer is set to
801 ;; unibyte. We must make it multibyte if necessary. 802 ;; unibyte. We must make it multibyte if necessary.
802 (if (and rmail-enable-multibyte 803 (if (and rmail-enable-multibyte
880 (define-key rmail-mode-map "e" 'rmail-edit-current-message) 881 (define-key rmail-mode-map "e" 'rmail-edit-current-message)
881 (define-key rmail-mode-map "f" 'rmail-forward) 882 (define-key rmail-mode-map "f" 'rmail-forward)
882 (define-key rmail-mode-map "g" 'rmail-get-new-mail) 883 (define-key rmail-mode-map "g" 'rmail-get-new-mail)
883 (define-key rmail-mode-map "h" 'rmail-summary) 884 (define-key rmail-mode-map "h" 'rmail-summary)
884 (define-key rmail-mode-map "i" 'rmail-input) 885 (define-key rmail-mode-map "i" 'rmail-input)
885 (define-key rmail-mode-map "j" 'rmail-message) 886 (define-key rmail-mode-map "j" 'rmail-show-message)
886 (define-key rmail-mode-map "k" 'rmail-kill-label) 887 (define-key rmail-mode-map "k" 'rmail-kill-label)
887 (define-key rmail-mode-map "l" 'rmail-summary-by-labels) 888 (define-key rmail-mode-map "l" 'rmail-summary-by-labels)
888 (define-key rmail-mode-map "\e\C-h" 'rmail-summary) 889 (define-key rmail-mode-map "\e\C-h" 'rmail-summary)
889 (define-key rmail-mode-map "\e\C-l" 'rmail-summary-by-labels) 890 (define-key rmail-mode-map "\e\C-l" 'rmail-summary-by-labels)
890 (define-key rmail-mode-map "\e\C-r" 'rmail-summary-by-recipients) 891 (define-key rmail-mode-map "\e\C-r" 'rmail-summary-by-recipients)