2001-11-16 Simon Josefsson <jas@extundo.com>

	* message.el (message-insert-importance-high)
	(message-insert-importance-low): Save point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5b926c..b10dbec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-16  Simon Josefsson  <jas@extundo.com>
 
+       * message.el (message-insert-importance-high) 
+       (message-insert-importance-low): Save point.
+
        * mail-source.el (mail-source-fetch-imap): Fix BODY.PEEK return
        value.
 

diff --git a/lisp/message.el b/lisp/message.el
index 9a88ad1..cc34b82 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2085,16 +2085,18 @@ Prefix arg means justify as well."
 (defun message-insert-importance-high ()
   "Insert header to mark message as important."
   (interactive)
-  (message-remove-header "Importance")
-  (message-goto-eoh)
-  (insert "Importance: high\n"))
+  (save-excursion
+    (message-remove-header "Importance")
+    (message-goto-eoh)
+    (insert "Importance: high\n")))
 
 (defun message-insert-importance-low ()
   "Insert header to mark message as unimportant."
   (interactive)
-  (message-remove-header "Importance")
-  (message-goto-eoh)
-  (insert "Importance: low\n"))
+  (save-excursion
+    (message-remove-header "Importance")
+    (message-goto-eoh)
+    (insert "Importance: low\n")))
 
 (defun message-insert-or-toggle-importance ()
   "Insert a \"Importance: high\" header, or cycle through the header values.