Commit 24683c51 authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-edit-mode): Doc fix.

parent 65ad1920
2009-03-04 Glenn Morris <rgm@gnu.org>
* mail/rmailedit.el (rmail-edit-mode): Doc fix.
* mail/rmailsort.el: Replace `(function (lambda' by `(lambda'.
(rmail-sort-by-date, rmail-sort-by-subject)
(rmail-sort-by-author, rmail-sort-by-recipient)
(rmail-sort-by-correspondent, rmail-select-correspondent)
(rmail-sort-by-lines, rmail-sort-by-labels, rmail-sort-messages)
(rmail-make-date-sortable): Doc fixes.
(rmail-sort-by-correspondent): Downcase correspondents.
(rmail-sort-by-labels): Make it work.
(rmail-sort-messages): Restore undo if it was initially enabled.
Fix bobp/bolp typo that was adding a line on every sort.
* mail/rmailsum.el (rmail-get-create-summary-buffer): Doc fix.
Disable undo in the summary buffer.
(rmail-summary-sort-by-date, rmail-summary-sort-by-subject)
(rmail-summary-sort-by-author, rmail-summary-sort-by-recipient)
(rmail-summary-sort-by-correspondent, rmail-summary-sort-by-lines)
(rmail-summary-sort-by-labels, rmail-sort-from-summary): Doc fixes.
(rmail-summary-sort-by-labels): Replace `(function (lambda'
by `(lambda'.
2009-03-03 Sam Steingold <sds@gnu.org> 2009-03-03 Sam Steingold <sds@gnu.org>
   
* progmodes/compile.el (compilation-move-to-column): * progmodes/compile.el (compilation-move-to-column):
......
...@@ -45,19 +45,18 @@ ...@@ -45,19 +45,18 @@
(declare-function rmail-summary-disable "rmailsum" ()) (declare-function rmail-summary-disable "rmailsum" ())
(defun rmail-edit-mode () (defun rmail-edit-mode ()
"Major mode for editing the contents of an RMAIL message. "Major mode for editing the contents of an Rmail message.
The editing commands are the same as in Text mode, together with two commands The editing commands are the same as in Text mode, together with
to return to regular RMAIL: two commands to return to regular Rmail:
* \\[rmail-abort-edit] cancels the changes * \\[rmail-abort-edit] cancels any changes and returns to Rmail
you have made and returns to RMAIL
* \\[rmail-cease-edit] makes them permanent. * \\[rmail-cease-edit] makes them permanent.
This functions runs the normal hook `rmail-edit-mode-hook'. This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
\\{rmail-edit-map}" \\{rmail-edit-map}"
(if (rmail-summary-exists) (if (rmail-summary-exists)
(with-current-buffer rmail-summary-buffer (with-current-buffer rmail-summary-buffer
(rmail-summary-disable))) (rmail-summary-disable)))
(let ((rmail-buffer-swapped nil)) ; Prevent change-major-mode-hook ;; Prevent change-major-mode-hook from unswapping the buffers.
; from unswapping the buffers. (let ((rmail-buffer-swapped nil))
(delay-mode-hooks (text-mode)) (delay-mode-hooks (text-mode))
(use-local-map rmail-edit-map) (use-local-map rmail-edit-map)
(setq major-mode 'rmail-edit-mode) (setq major-mode 'rmail-edit-mode)
...@@ -69,7 +68,7 @@ This functions runs the normal hook `rmail-edit-mode-hook'. ...@@ -69,7 +68,7 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
;; Rmail Edit mode is suitable only for specially formatted data. ;; Rmail Edit mode is suitable only for specially formatted data.
(put 'rmail-edit-mode 'mode-class 'special) (put 'rmail-edit-mode 'mode-class 'special)
(defvar rmail-old-text) (defvar rmail-old-text)
(defvar rmail-old-pruned nil (defvar rmail-old-pruned nil
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment