Mercurial > emacs

comparison lisp/mail/rmailsum.el @ 77963:2709877579f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))