* message.el (message-fix-before-sending): Forward a char.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e4e947..4176bcb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-02  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-fix-before-sending): Forward a char.
+
 2002-03-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-start.el (gnus-read-init-file): Ditto.

diff --git a/lisp/message.el b/lisp/message.el
index 0361df6..c003d87 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2716,8 +2716,8 @@ It should typically alter the sending method in some way or other."
                         (memq (char-charset char)
                               '(eight-bit-control eight-bit-graphic)))))
          (add-text-properties (point) (1+ (point)) '(highlight t))
-         (forward-char)
          (setq found t))
+       (forward-char)
        (skip-chars-forward mm-7bit-chars))
       (when found
        (setq choice
@@ -2739,6 +2739,7 @@ It should typically alter the sending method in some way or other."
            (delete-char 1)
            (if (eq choice ?r)
                (insert ".")))
+         (forward-char)
          (skip-chars-forward mm-7bit-chars))))))
 
 (defun message-add-action (action &rest types)