Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 77963:2709877579f2
Alfred M. Szmidt <ams at gnu.org> (tiny change)
(rmail-summary-save-buffer): New command.
(rmail-summary-mode-map): Add rmail-summary-save-buffer.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 07 Jun 2007 06:33:12 +0000 |
parents | e3694f1cb928 |
children | 8e27d63c45eb e9f94688a064 |
comparison
equal
deleted
inserted
replaced
77962:a4a62d3fcf67 | 77963:2709877579f2 |
---|---|
852 (if (buffer-name rmail-buffer) | 852 (if (buffer-name rmail-buffer) |
853 (save-excursion | 853 (save-excursion |
854 (set-buffer rmail-buffer) | 854 (set-buffer rmail-buffer) |
855 (rmail-show-message msg-num t)))))) | 855 (rmail-show-message msg-num t)))))) |
856 (rmail-summary-update-highlight nil))))) | 856 (rmail-summary-update-highlight nil))))) |
857 | |
858 (defun rmail-summary-save-buffer () | |
859 "Save the buffer associated with this RMAIL summary." | |
860 (interactive) | |
861 (save-window-excursion | |
862 (save-excursion | |
863 (switch-to-buffer rmail-buffer) | |
864 (save-buffer)))) | |
865 | |
857 | 866 |
858 (if rmail-summary-mode-map | 867 (if rmail-summary-mode-map |
859 nil | 868 nil |
860 (setq rmail-summary-mode-map (make-keymap)) | 869 (setq rmail-summary-mode-map (make-keymap)) |
861 (suppress-keymap rmail-summary-mode-map) | 870 (suppress-keymap rmail-summary-mode-map) |
921 'rmail-summary-sort-by-correspondent) | 930 'rmail-summary-sort-by-correspondent) |
922 (define-key rmail-summary-mode-map "\C-c\C-s\C-l" | 931 (define-key rmail-summary-mode-map "\C-c\C-s\C-l" |
923 'rmail-summary-sort-by-lines) | 932 'rmail-summary-sort-by-lines) |
924 (define-key rmail-summary-mode-map "\C-c\C-s\C-k" | 933 (define-key rmail-summary-mode-map "\C-c\C-s\C-k" |
925 'rmail-summary-sort-by-labels) | 934 'rmail-summary-sort-by-labels) |
935 (define-key rmail-summary-mode-map "\C-x\C-s" 'rmail-summary-save-buffer) | |
926 ) | 936 ) |
927 | 937 |
928 ;;; Menu bar bindings. | 938 ;;; Menu bar bindings. |
929 | 939 |
930 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap)) | 940 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap)) |