[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to pmailedit.el
From: |
Paul Michael Reilly |
Subject: |
[Emacs-diffs] Changes to pmailedit.el |
Date: |
Mon, 18 Aug 2008 04:51:30 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to pmailedit.el,
Paul Michael Reilly <=