procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-edit-mode): Doc fix.

Browse source
This commit is contained in:
Glenn Morris 2009-03-04 04:20:13 +00:00
parent 65ad19205b
commit 24683c51e3
2 changed files with 32 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/ChangeLog
View file

@ -1,3 +1,27 @@
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>
* progmodes/compile.el (compilation-move-to-column):

17
lisp/mail/rmailedit.el
View file

@ -45,19 +45,18 @@
(declare-function rmail-summary-disable "rmailsum" ())
(defun rmail-edit-mode ()
"Major mode for editing the contents of an RMAIL message.
The editing commands are the same as in Text mode, together with two commands
to return to regular RMAIL:
* \\[rmail-abort-edit] cancels the changes
you have made and returns to RMAIL
"Major mode for editing the contents of an Rmail message.
The editing commands are the same as in Text mode, together with
two commands to return to regular Rmail:
* \\[rmail-abort-edit] cancels any changes and returns to Rmail
* \\[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}"
(if (rmail-summary-exists)
(with-current-buffer rmail-summary-buffer
(rmail-summary-disable)))
(let ((rmail-buffer-swapped nil)) ; Prevent change-major-mode-hook
; from unswapping the buffers.
;; Prevent change-major-mode-hook from unswapping the buffers.
(let ((rmail-buffer-swapped nil))
(delay-mode-hooks (text-mode))
(use-local-map rmail-edit-map)
(setq major-mode 'rmail-edit-mode)
@ -69,7 +68,7 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
;; Rmail Edit mode is suitable only for specially formatted data.
(put 'rmail-edit-mode 'mode-class 'special)
(defvar rmail-old-text)
(defvar rmail-old-pruned nil