[Emacs-diffs] Changes to pmailedit.el

[Paul Michael Reilly]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Paul Michael Reilly <pmr>       08/08/18 04:51:29

Index: pmailedit.el
===================================================================
RCS file: pmailedit.el
diff -N pmailedit.el
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ pmailedit.el        18 Aug 2008 04:51:28 -0000      1.1
@@ -0,0 +1,157 @@
+;;; pmailedit.el --- "PMAIL edit mode"  Edit the current message
+
+;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008 Free Software Foundation, Inc.
+
+;; Maintainer: FSF
+;; Keywords: mail
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile
+  (require 'pmail)
+  (require 'pmaildesc)
+  (require 'pmailsum))
+
+(defcustom pmail-edit-mode-hook nil
+  "List of functions to call when editing an PMAIL message."
+  :type 'hook
+  :version "21.1"
+  :group 'pmail-edit)
+
+(defvar pmail-old-text)
+
+(defvar pmail-edit-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map text-mode-map)
+    (define-key map "\C-c\C-c" 'pmail-cease-edit)
+    (define-key map "\C-c\C-]" 'pmail-abort-edit)
+    map)
+  "Keymap for `pmail-edit-mode'.")
+
+;; Pmail Edit mode is suitable only for specially formatted data.
+(put 'pmail-edit-mode 'mode-class 'special)
+
+(declare-function pmail-summary-disable "" ())
+(declare-function pmail-summary-enable "pmailsum" ())
+
+(defun pmail-edit-mode ()
+  "Major mode for editing the contents of an PMAIL message.
+The editing commands are the same as in Text mode, together with two commands
+to return to regular PMAIL:
+  *  \\[pmail-abort-edit] cancels the changes
+     you have made and returns to PMAIL
+  *  \\[pmail-cease-edit] makes them permanent.
+This functions runs the normal hook `pmail-edit-mode-hook'.
+\\{pmail-edit-map}"
+  (delay-mode-hooks (text-mode))
+  (use-local-map pmail-edit-map)
+  (setq major-mode 'pmail-edit-mode)
+  (setq mode-name "PMAIL Edit")
+  (if (boundp 'mode-line-modified)
+      (setq mode-line-modified (default-value 'mode-line-modified))
+    (setq mode-line-format (default-value 'mode-line-format)))
+  (if (pmail-summary-exists)
+      (save-excursion
+       (set-buffer pmail-summary-buffer)
+       (pmail-summary-disable)))
+  (run-mode-hooks 'pmail-edit-mode-hook))
+
+(defvar pmail-old-pruned nil)
+(put 'pmail-old-pruned 'permanent-local t)
+
+(defvar pmail-edit-saved-coding-system nil)
+(put 'pmail-edit-saved-coding-system 'permanent-local t)
+
+;;;###autoload
+(defun pmail-edit-current-message ()
+  "Edit the contents of this message."
+  (interactive)
+  (if (= pmail-total-messages 0)
+      (error "No messages in this file"))
+  (make-local-variable 'pmail-old-pruned)
+  (setq pmail-old-pruned (pmail-msg-is-pruned))
+  (make-local-variable 'pmail-edit-saved-coding-system)
+  (setq pmail-edit-saved-coding-system save-buffer-coding-system)
+  (pmail-header-show-headers)
+  (pmail-edit-mode)
+  ;; As the local value of save-buffer-coding-system is deleted by
+  ;; pmail-edit-mode, we restore the original value.
+  (make-local-variable 'save-buffer-coding-system)
+  (setq save-buffer-coding-system pmail-edit-saved-coding-system)
+  (make-local-variable 'pmail-old-text)
+  (setq pmail-old-text (buffer-substring (point-min) (point-max)))
+  (setq buffer-read-only nil)
+  (force-mode-line-update)
+  (if (and (eq (key-binding "\C-c\C-c") 'pmail-cease-edit)
+          (eq (key-binding "\C-c\C-]") 'pmail-abort-edit))
+      (message "Editing: Type C-c C-c to return to Pmail, C-c C-] to abort")
+    (message "%s" (substitute-command-keys
+                  "Editing: Type \\[pmail-cease-edit] to return to Pmail, 
\\[pmail-abort-edit] to abort"))))
+
+(defun pmail-cease-edit ()
+  "Finish editing message; switch back to Pmail proper."
+  (interactive)
+  (when (pmail-summary-exists)
+    (with-current-buffer pmail-summary-buffer
+      (pmail-summary-enable)))
+  ;; Make sure buffer ends with a newline.
+  (save-excursion
+    (goto-char (point-max))
+    (when (/= (preceding-char) ?\n)
+      (insert "\n"))
+    ;; Adjust the marker that points to the end of this message, unless
+    ;; we're at the last message.
+    (when (< pmail-current-message (length pmail-desc-vector))
+       (pmail-desc-set-start (1+ pmail-current-message) (point))))
+  (let ((old pmail-old-text))
+    (force-mode-line-update)
+    (kill-all-local-variables)
+    (pmail-mode-1)
+    (if (boundp 'tool-bar-map)
+       (set (make-local-variable 'tool-bar-map) pmail-tool-bar-map))
+    (pmail-variables)
+    ;; As the local value of save-buffer-coding-system is changed by
+    ;; pmail-variables, we restore the original value.
+    (setq save-buffer-coding-system pmail-edit-saved-coding-system)
+    (unless (and (= (length old) (- (point-max) (point-min)))
+                (string= old (buffer-substring (point-min) (point-max))))
+      (setq old nil)
+      (pmail-set-attribute "edited" t))
+    (save-excursion
+      (pmail-show-message)
+      ;; `pmail-show-message' always hides the headers, so we show them
+      ;; here if they were visible before starting the edit.
+      (when pmail-old-pruned
+       (pmail-header-show-headers))))
+  (run-hooks 'pmail-mode-hook)
+  (setq buffer-read-only t))
+
+(defun pmail-abort-edit ()
+  "Abort edit of current message; restore original contents."
+  (interactive)
+  (delete-region (point-min) (point-max))
+  (insert pmail-old-text)
+  (pmail-cease-edit))
+
+(provide 'pmailedit)
+
+;; arch-tag: 93c22709-a14a-46c1-ab91-52c3f5a0ec12
+;;; pmailedit.el ends here