From ea9c64a81a1141af97e7a79c1140c67e5b30713b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 22 Dec 2008 00:05:51 +0000 Subject: [PATCH] (pmail-save): New function. --- lisp/mail/pmail.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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." -- 2.39.2