[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el, v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/06/07 06:33:12

Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.144
retrieving revision 1.144.2.1
diff -u -b -r1.144 -r1.144.2.1
--- rmailsum.el 21 Jan 2007 02:59:07 -0000      1.144
+++ rmailsum.el 7 Jun 2007 06:33:12 -0000       1.144.2.1
@@ -855,6 +855,15 @@
                      (rmail-show-message msg-num t))))))
        (rmail-summary-update-highlight nil)))))
 
+(defun rmail-summary-save-buffer ()
+  "Save the buffer associated with this RMAIL summary."
+  (interactive)
+  (save-window-excursion
+    (save-excursion
+      (switch-to-buffer rmail-buffer)
+      (save-buffer))))
+
+
 (if rmail-summary-mode-map
     nil
   (setq rmail-summary-mode-map (make-keymap))
@@ -923,6 +932,7 @@
     'rmail-summary-sort-by-lines)
   (define-key rmail-summary-mode-map "\C-c\C-s\C-k"
     'rmail-summary-sort-by-labels)
+  (define-key rmail-summary-mode-map "\C-x\C-s" 'rmail-summary-save-buffer)
   )
 
 ;;; Menu bar bindings.