Mercurial > emacs
changeset 88214:259a58cdd236
(rmail-cease-edit): Bugfix.
| author | Alex Schroeder <alex@gnu.org> |
|---|---|
| date | Wed, 18 Jan 2006 22:20:18 +0000 |
| parents | 8b5a826d67e4 |
| children | 83e39e1cce60 |
| files | lisp/mail/rmailedit.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el Wed Jan 18 22:19:05 2006 +0000 +++ b/lisp/mail/rmailedit.el Wed Jan 18 22:20:18 2006 +0000 @@ -1,7 +1,7 @@ ;;; rmailedit.el --- "RMAIL edit mode" Edit the current message -;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, -;; 2005 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, 2005, +;; 2006 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -106,7 +106,6 @@ (message "%s" (substitute-command-keys "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort")))) -;;; mbox: ready (defun rmail-cease-edit () "Finish editing message; switch back to Rmail proper." (interactive) @@ -119,10 +118,10 @@ (goto-char (point-max)) (if (/= (preceding-char) ?\n) (insert "\n")) - ;; Adjust the marker that points to the end of this message, unles + ;; Adjust the marker that points to the end of this message, unless ;; we're at the last message. (when (< rmail-current-message (length rmail-desc-vector)) - (rmail-desc-set-end (1+ rmail-current-message) (point)))) + (rmail-desc-set-start (1+ rmail-current-message) (point)))) (let ((old rmail-old-text)) (force-mode-line-update) (kill-all-local-variables)