From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 22 Dec 2008 00:05:51 +0000 (+0000)
Subject: (pmail-save): New function.
X-Git-Tag: emacs-pretest-23.0.90~920
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea9c64a81a1141af97e7a79c1140c67e5b30713b;p=emacs.git

(pmail-save): New function.
---

diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index b548a69ca79..733ce8c2cb5 100644
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -1000,6 +1000,7 @@ The buffer is expected to be narrowed to just the header of the message."
 ;; I find I can't live without the default M-r command -- rms.
 ;;  (define-key pmail-mode-map "\er"  'pmail-search-backwards)
   (define-key pmail-mode-map "s"      'pmail-expunge-and-save)
+  (define-key pmail-mode-map "\C-x\C-s" 'pmail-save)
   (define-key pmail-mode-map "\es"    'pmail-search)
   (define-key pmail-mode-map "t"      'pmail-toggle-header)
   (define-key pmail-mode-map "u"      'pmail-undelete-previous-message)
@@ -1419,6 +1420,16 @@ Create the buffer if necessary."
       (pmail-select-summary (set-buffer-modified-p nil))
     (pmail-show-message)))
 
+(defun pmail-save ()
+  "Save the PMAIL file."
+  (interactive)
+  (set-buffer pmail-buffer)
+  (pmail-swap-buffers-maybe)
+  (save-buffer)
+  (if (pmail-summary-exists)
+      (pmail-select-summary (set-buffer-modified-p nil))
+    (pmail-show-message)))
+
 (defun pmail-quit ()
   "Quit out of PMAIL.
 Hook `pmail-quit-hook' is run after expunging."