From: Glenn Morris <rgm@gnu.org>
Date: Thu, 7 Jun 2007 06:38:43 +0000 (+0000)
Subject: Alfred M. Szmidt  <ams at gnu.org>  (tiny change)
X-Git-Tag: emacs-pretest-22.1.90~1385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1c5dbb9d667ac1108b0f1d97e9739212325aebf;p=emacs.git

Alfred M. Szmidt  <ams at gnu.org>  (tiny change)

(rmail-summary-save-buffer): New command.
(rmail-summary-mode-map): Add rmail-summary-save-buffer.
---

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 7da010b3d78..cd0f33bf920 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2007-06-07  Mark H. Weaver  <mhw@netris.org>  (tiny change)
+
+	* NEWS (set-mark-command-repeat-pop): Fix duplicate entry.
+
 2007-06-07  Michael Olson  <mwolson@gnu.org>
 
 	* MORE.STUFF: Update eshell URL.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43b812a4391..26974c65c38 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-07  Alfred M. Szmidt  <ams@gnu.org>  (tiny change)
+
+	* mail/rmailsum.el (rmail-summary-save-buffer): New command.
+	(rmail-summary-mode-map): Add rmail-summary-save-buffer.
+
 2007-06-07  Juanma Barranquero  <lekktu@gmail.com>
 
 	* progmodes/ebrowse.el (ebrowse-member-table):
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 6383722a4be..288f3f24e66 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -854,6 +854,15 @@ Search, the `unseen' attribute is restored.")
 		      (set-buffer rmail-buffer)
 		      (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
@@ -923,6 +932,7 @@ Search, the `unseen' attribute is restored.")
     '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.